OleDbtransaction?

[John]

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
-------------------------
"John" <Jo**@discussions.microsoft.com> wrote in message
news:37**********************************@microsof t.com...
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