01.
02.
strSQL =
"INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) "
& _
03.
"VALUES (@sCustomerID,@sName,@sEmail,@sCountryCode,@sBudget,@sUsed)"
04.
05.
objCmd =
New
System.Data.SqlClient.SqlCommand(strSQL,objConn)
06.
07.
08.
09.
10.
11.
12.
13.
14.
15.
16.
17.
18.
With
objCmd
19.
.Parameters.Add(
New
SqlParameter(
"@sCustomerID"
,
"C005"
))
20.
.Parameters.Add(
New
SqlParameter(
"@sName"
,
"Weerachai Nukitram"
))
21.
.Parameters.Add(
New
SqlParameter(
"@sEmail"
,
"webmaster@thaicreate.com"
))
22.
.Parameters.Add(
New
SqlParameter(
"@sCountryCode"
,
"TH"
))
23.
.Parameters.Add(
New
SqlParameter(
"@sBudget"
,
"2000000"
))
24.
.Parameters.Add(
New
SqlParameter(
"@sUsed"
,
"1000000"
))
25.
End
With
26.
27.
objCmd.ExecuteNonQuery()
28.
29.
lblText.Text = lblText.Text &
"- Record Inserted"
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.