本文整理汇总了VB.NET中System.Data.StateChangeEventArgs类的典型用法代码示例。如果您正苦于以下问题:VB.NET StateChangeEventArgs类的具体用法?VB.NET StateChangeEventArgs怎么用?VB.NET StateChangeEventArgs使用的例子?那么, 这里精选的类代码示例或许可以为您提供帮助。
在下文中一共展示了StateChangeEventArgs类的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: OnStateChange
' Handler for the OnStateChange event.
Private Sub OnStateChange(ByVal sender As Object, _
ByVal e As StateChangeEventArgs)
PrintEventArgs(e)
End Sub
Sub Main()
FillDataSet()
End Sub
Private Sub FillDataSet()
Dim connectionString As String = GetConnectionString()
Dim queryString As String = _
"SELECT ProductID, UnitPrice from dbo.Products;"
' Create a DataAdapter.
Using dataAdapter As New SqlDataAdapter( _
queryString, connectionString)
' Add the handlers.
AddHandler dataAdapter.SelectCommand.Connection.StateChange, _
AddressOf OnStateChange
' Create a DataSet.
Dim dataSet As New DataSet()
' Fill the DataSet, which fires several StateChange events.
dataAdapter.Fill(dataSet, 0, 5, "Table")
End Using
End Sub
Private Sub PrintEventArgs(ByVal args As StateChangeEventArgs)
Console.WriteLine("StateChangeEventArgs")
Console.WriteLine(" OriginalState= {0} CurrentState= {1}", _
args.OriginalState, args.CurrentState)
End Sub
Private Function GetConnectionString() As String
' To avoid storing the connection string in your code,
' you can retrieve it from a configuration file.
Return "Data Source=(local);Initial Catalog=Northwind;" _
& "Integrated Security=true;"
End Function