State 属性范例 (VB)

2009-1-8 10:25:12 2621

0 State 属性范例 (VB) 本范例使用 State 属性，在异步连接为开且异步命令正在执行时显示消息。 Public Sub StateX() Dim cnn1 As ADODB.Connection Dim cnn2 As ADODB.Connection Dim cmdChange As ADODB.Command Dim cmdRestore As ADODB.Command Dim strCnn As String ' Open two asynchronous connections, displaying ' a message while connecting. Set cnn1 = New ADODB.Connection Set cnn2 = New ADODB.Connection strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; " cnn1.Open strCnn, , , adAsyncConnect While (cnn1.State = adStateConnecting) Debug.Print "Opening first connection...." Wend cnn2.Open strCnn, , , adAsyncConnect While (cnn2.State = adStateConnecting) Debug.Print "Opening second connection...." Wend ' Create two command objects. Set cmdChange = New ADODB.Command cmdChange.ActiveConnection = cnn1 cmdChange.CommandText = "UPDATE Titles SET type = 'self_help' " & _ "WHERE type = 'psychology'" Set cmdRestore = New ADODB.Command cmdRestore.ActiveConnection = cnn2 cmdRestore.CommandText = "UPDATE Titles SET type = 'psychology' " & _ "WHERE type = 'self_help'" ' Executing the commands, displaying a message ' while they are executing. cmdChange.Execute , , adAsyncExecute While (cmdChange.State = adStateExecuting) Debug.Print "Change command executing...." Wend cmdRestore.Execute , , adAsyncExecute While (cmdRestore.State = adStateExecuting) Debug.Print "Restore command executing...." Wend cnn1.Close cnn2.Close End Sub 0
2009-1-8 10:25:12　　评论淘帖0 相关推荐 • Version 属性范例 (VB) 2502 • StayInSync 属性范例 (VB) 2170 • Sort 属性范例 (VB) 2932 • Optimize 属性范例 (VB) 2865 • 兆易创新GD32E103VB-mbed开发板电路原理图 0 • 基于VB6.0的机车静压试验台程序 3 • 如何访问对象属性 268 • vb语言程序简单设计实例（5款vb语言设计程序分享） 103408 • MaxRecords 属性范例 (VB) 3372 • Item 属性范例 (VB) 2788