01.
Dim
constr
As
String
=
"provider=sqloledb;"
02.
constr &=
"data source=ART-PC;"
03.
constr &=
"initial catalog=book;"
04.
constr &=
"integrated security=sspi"
05.
06.
Dim
conn
As
New
OleDbConnection(constr)
07.
conn.Open()
08.
Dim
ra
As
String
09.
Dim
sql
As
String
10.
sql =
"insert into book_properties(book_id,book_name)values(@id,@name)"
11.
Dim
cmd
As
New
OleDbCommand(sql, conn)
12.
With
cmd
13.
.Parameters.Add(
New
OleDbParameter(
"@id"
, txt_id.Text))
14.
.Parameters.Add(
New
OleDbParameter(
"@name"
, txt_name.Text))
15.
End
With
16.
17.
ra = cmd.ExecuteNonQuery()
18.
MessageBox.Show(
"เพิ่มข้อมูลเรียบร้อยแล้ว "
& ra)
19.
conn.Close()