本文整理汇总了VB.NET中System.Data.SqlClient.SqlDataAdapter.RowUpdating事件的典型用法代码示例。如果您正苦于以下问题:VB.NET SqlDataAdapter.RowUpdating事件的具体用法?VB.NET SqlDataAdapter.RowUpdating怎么用?VB.NET SqlDataAdapter.RowUpdating使用的例子?那么, 这里精选的事件代码示例或许可以为您提供帮助。您也可以进一步了解该事件所在类System.Data.SqlClient.SqlDataAdapter
的用法示例。
在下文中一共展示了SqlDataAdapter.RowUpdating事件的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: OnRowUpdating
' handler for RowUpdating event
Private Shared Sub OnRowUpdating(sender As Object, e As SqlRowUpdatingEventArgs)
PrintEventArgs(e)
End Sub
' handler for RowUpdated event
Private Shared Sub OnRowUpdated(sender As Object, e As SqlRowUpdatedEventArgs)
PrintEventArgs(e)
End Sub
'Entry point which delegates to C-style main Private Function
Public Overloads Shared Sub Main()
System.Environment.ExitCode = Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Public Shared Function Main(args() As String) As Integer
Const connectionString As String = _
"Integrated Security=SSPI;database=Northwind;server=MSSQL1"
Const queryString As String = "SELECT * FROM Products"
' create DataAdapter
Dim adapter As New SqlDataAdapter(queryString, connectionString)
Dim builder As New SqlCommandBuilder(adapter)
' Create and fill DataSet (select only first 5 rows)
Dim dataSet As New DataSet()
adapter.Fill(dataSet, 0, 5, "Table")
' Modify DataSet
Dim table As DataTable = dataSet.Tables("Table")
table.Rows(0)(1) = "new product"
' add handlers
AddHandler adapter.RowUpdating, AddressOf OnRowUpdating
AddHandler adapter.RowUpdated, AddressOf OnRowUpdated
' update, this operation fires two events
'(RowUpdating/RowUpdated) per changed row
adapter.Update(dataSet, "Table")
' remove handlers
RemoveHandler adapter.RowUpdating, AddressOf OnRowUpdating
RemoveHandler adapter.RowUpdated, AddressOf OnRowUpdated
Return 0
End Function
Overloads Private Shared Sub PrintEventArgs(args As SqlRowUpdatingEventArgs)
Console.WriteLine("OnRowUpdating")
Console.WriteLine(" event args: (" & " command=" & args.Command.CommandText & _
" commandType=" & args.StatementType & " status=" & args.Status & ")")
End Sub
Overloads Private Shared Sub PrintEventArgs(args As SqlRowUpdatedEventArgs)
Console.WriteLine("OnRowUpdated")
Console.WriteLine(" event args: (" & " command=" & args.Command.CommandText & _
" commandType=" & args.StatementType & " recordsAffected=" & _
args.RecordsAffected & " status=" & args.Status & ")")
End Sub
End Class
示例2: MainClass
' 导入命名空间
Imports System
Imports System.Data
Imports System.Data.SqlClient
public class MainClass
Shared Sub Main()
Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=MyDatabase")
Dim sql As String = "SELECT FirstName, LastName From Employee"
Try
thisConnection.Open()
Dim thisAdapter As New SqlDataAdapter(sql, thisConnection)
Dim cb As New SqlCommandBuilder(thisAdapter)
Dim ds As New DataSet
thisAdapter.Fill(ds, 0, 1, "Customers")
AddHandler thisAdapter.RowUpdating, AddressOf OnRowUpdating
AddHandler thisAdapter.RowUpdated, AddressOf OnRowUpdated
Dim dt As DataTable = ds.Tables("Customers")
dt.Rows(0)(1) = "The Volcano Corporation"
thisAdapter.Update(ds, "Customers")
RemoveHandler thisAdapter.RowUpdating, AddressOf OnRowUpdating
RemoveHandler thisAdapter.RowUpdated, AddressOf OnRowUpdated
Catch ex As SqlException
Console.WriteLine(ex.Message)
Finally
' Close Connection
thisConnection.Close()
End Try
End Sub
' Handler for OnRowUpdating
Shared Private Sub OnRowUpdating(ByVal sender As Object, ByVal e As SqlRowUpdatingEventArgs)
Console.WriteLine("OnRowUpdating Event")
If Not e.Status = UpdateStatus.Continue Then
Console.WriteLine("RowStatus = " & e.Status.ToString())
End If
End Sub
' Handler for OnRowUpdated
Shared Private Sub OnRowUpdated(ByVal sender As Object, ByVal e As SqlRowUpdatedEventArgs)
Console.WriteLine("OnRowUpdated Event")
Console.WriteLine("Records Affected = " & e.RecordsAffected.ToString())
End Sub
End Class