01.Dim objConn As System.Data.OleDb.OleDbConnection
02.Dim objCmd As System.Data.OleDb.OleDbCommand
03.Dim strConnString,strSQL As String
04.Dim Trans As OleDbTransaction
05.
06.strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
07.objConn = New System.Data.OleDb.OleDbConnection(strConnString)
08.objConn.Open()
09.
10.
11.Trans = objConn.BeginTransaction(IsolationLevel.ReadCommitted)
12.
13.Try
14.
15.
16.strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
17."VALUES ('C005','Weerachai Nukitram','webmaster@thaicreate.com','TH','2000000','1000000')"
18.objCmd = New System.Data.OleDb.OleDbCommand()
19.With objCmd
20..Connection = objConn
21..Transaction = Trans
22..CommandType = CommandType.Text
23..CommandText = strSQL
24.End With
25.objCmd.ExecuteNonQuery()
26.
27.
28.strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
29."VALUES ('C005','Weerachai Nukitram','webmaster@thaicreate.com','TH','2000000','1000000')"
30.objCmd = New System.Data.OleDb.OleDbCommand()
31.With objCmd
32..Connection = objConn
33..Transaction = Trans
34..CommandType = CommandType.Text
35..CommandText = strSQL
36.End With
37.objCmd.ExecuteNonQuery()
38.
39.Trans.Commit()
40.Me.lblText.Text = "Record is commit"
41.
42.Catch ex As Exception
43.Trans.Rollback()
44.
45.Me.lblText.Text = "Record is rollback ("& ex.Message &")"
46.End Try
47.
48.objCmd = Nothing
49.objConn.Close()
50.objConn = Nothing
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
