本文整理匯總了VB.NET中System.Data.OleDb.OleDbDataAdapter.RowUpdating事件的典型用法代碼示例。如果您正苦於以下問題:VB.NET OleDbDataAdapter.RowUpdating事件的具體用法?VB.NET OleDbDataAdapter.RowUpdating怎麽用?VB.NET OleDbDataAdapter.RowUpdating使用的例子?那麽, 這裏精選的事件代碼示例或許可以為您提供幫助。您也可以進一步了解該事件所在類System.Data.OleDb.OleDbDataAdapter
的用法示例。
在下文中一共展示了OleDbDataAdapter.RowUpdating事件的1個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: CreateDataAdapter
Public Sub CreateDataAdapter(ByVal connectionString As String)
Using connection As New OleDbConnection(connectionString)
Dim adapter As New OleDbDataAdapter( _
"SELECT * FROM Customers WHERE CustomerID = 'ALFKI'", connection)
adapter.InsertCommand = New OleDbCommand( _
"INSERT INTO Customers (CustomerID, CompanyName) VALUES(?, ?)", _
connection)
adapter.InsertCommand.Parameters.Add( _
"@CustomerID", OleDbType.VarChar, 5, "CustomerID")
adapter.InsertCommand.Parameters.Add( _
"@CompanyName", OleDbType.VarChar, 30, "CompanyName")
connection.Open()
Dim custDS As New DataSet()
adapter.Fill(custDS, "Customers")
Dim custRow As DataRow = custDS.Tables("Customers").NewRow()
custRow("CustomerID") = "NEWCO"
custRow("CompanyName") = "New Company"
custDS.Tables("Customers").Rows.Add(custRow)
' add handlers
AddHandler adapter.RowUpdating, _
New OleDbRowUpdatingEventHandler(AddressOf OnRowUpdating)
AddHandler adapter.RowUpdated, _
New OleDbRowUpdatedEventHandler(AddressOf OnRowUpdated)
adapter.Update(custDS, "Customers")
' remove handlers
RemoveHandler adapter.RowUpdating, _
New OleDbRowUpdatingEventHandler(AddressOf OnRowUpdating)
RemoveHandler adapter.RowUpdated, _
New OleDbRowUpdatedEventHandler(AddressOf OnRowUpdated)
Dim row As DataRow
For Each row In custDS.Tables("Customers").Rows
If row.HasErrors Then Console.WriteLine(row.RowError)
Next
End Using
End Sub
Sub OnRowUpdating(ByVal sender As Object, _
ByVal args As OleDbRowUpdatingEventArgs)
If args.StatementType = StatementType.Insert Then
Dim writer As System.IO.TextWriter = _
System.IO.File.AppendText("Inserts.log")
writer.WriteLine("{0}: Customer {1} Inserted.", _
DateTime.Now, args.Row("CustomerID"))
writer.Close()
End If
End Sub
Sub OnRowUpdated(ByVal sender As Object, _
ByVal args As OleDbRowUpdatedEventArgs)
If args.Status = UpdateStatus.ErrorsOccurred Then
args.Row.RowError = args.Errors.Message
args.Status = UpdateStatus.SkipCurrentRow
End If
End Sub