为什么不显示结果出来?
'结果显示不出来,Form_load中那msgbox显示Congratulations,Established!'表示已经连接上了,可为什么不跳到myConnection_ConnectComplete呢?
'少哪句话呀,高手帮忙指点一下。我是菜鸟。
Dim WithEvents myConnection As ADODB.Connection
Dim myRecordset As New ADODB.Recordset
Private Sub Form_Load()
Dim myPath As String
Dim srtConec As String
Set myconec = New ADODB.Connection
myPath = App.Path & "\TD.mdb;"
strconec = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
myconec.Open strconec
If strconec <= 0 Then
MsgBox "Connection Failed!"
Else
MsgBox "Congratulations,Established!"
End If
End Sub
Private Sub myConnection_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
Dim strSql As String
ListView1.Top = 0
ListView1.Left = 0
myRecordset.CursorType = adOpenKeyset
myRecordset.LockType = adLockReadOnly
strSql = "select * from TBillInfo"
myRecordset.Open strSql, myConnection, , , adCmdText
ShowListView
myRecordset.Close
myConnection.Close
End Sub
Public Sub ShowListView()
Dim clmHead As ColumnHeader
Dim ListItm As ListItem
Dim i As Integer
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
For i = 0 To myRecordset.Fields.Count - 1
Set clmHead = ListView1.ColumnHeaders.Add()
clmHead.Text = myRecordset.Fields(i).Name
Next
myRecordset.MoveFirst
Do While Not myRecordset.EOF
Set ListItm = ListView1.ListItems.Add()
If IsNull(myRecordset.Fileds(0).Value) Then
ListItm.Text = "NULL"
Else
ListItm.Text = myRecordset.Fields(0).Value
End If
For i = 1 To myRecordset.Fields.Count - 1
If IsUull(myRecordset.Fields(i).Value) Then
ListItm.SubItems(i) = "NULL"
Else
ListItm.SubItems(i) = myRecordset.Fields(i).Value
End If
Next
myRecordset.MoveNext
Loop
ListView1.View = lvwReport
End Sub
Private Sub Form_Resize()
ListView1.Width = Width - 200
ListView1.Height = Height - 400
End Sub
Private Sub Form_Terminate()
Set myRecordset = Nothing
Set myConnection = Nothing
End Sub
--------------------编程问答-------------------- _ConnectComplete 不使用这样的事件,在相关代码的后面,直接写需要的代码 --------------------编程问答-------------------- 那什么时候才能用得到_ConnectComplete这个事件呢?
补充:VB , 数据库(包含打印,安装,报表)