OleDbtransaction?

[Guest]

How can I include the following code in a transaction? How can I set the
Transaction propertity for the call to MyDataAdapter.Update()? Thanks.

' Dim tr as OleDbtransaction = cnn.BeginTransaction
Dim dr As DataRow = MyDataSet.Tables("Customer").NewRow
dr(0) = "Smith"
MyDataSet.Tables("Customer").Rows.Add(dr)
MyDataAdapter.Update(MyDataSet,"Customer")
'tr.Commit

 

[Ken Tucker [MVP]]

Hi,


Dim ds As New DataSet

Dim da As OleDbDataAdapter

Dim strConn As String

Dim strSQL As String

Dim conn As OleDbConnection

strConn = "Provider = Microsoft.Jet.OLEDB.4.0;"

strConn &= "Data Source = Northwind.mdb;"

conn = New OleDbConnection(strConn)

da = New OleDbDataAdapter("Select * From Categories", conn)

da.Fill(ds, "Categories")

DataGrid1.DataSource = ds '.Tables("Categories")

DataGrid1.DataMember = "Categories"

Dim tr As OleDbTransaction

Dim cmdBuild As New OleDbCommandBuilder(da)

Dim cmd As OleDbCommand = cmdBuild.GetUpdateCommand

da.UpdateCommand = cmd

conn.Open()

tr = conn.BeginTransaction

cmd.Transaction = tr

Dim dr As DataRow = ds.Tables("Categories").Rows(0)

Debug.WriteLine(da.UpdateCommand.CommandText)

dr.BeginEdit()

dr.Item("CategoryName") = "Drinks"

dr.EndEdit()

da.Update(ds, "Categories")

tr.Commit()

conn.Close()




Ken
-------------------------
How can I include the following code in a transaction? How can I set the
Transaction propertity for the call to MyDataAdapter.Update()? Thanks.

' Dim tr as OleDbtransaction = cnn.BeginTransaction
Dim dr As DataRow = MyDataSet.Tables("Customer").NewRow
dr(0) = "Smith"
MyDataSet.Tables("Customer").Rows.Add(dr)
MyDataAdapter.Update(MyDataSet,"Customer")
'tr.Commit