模塊：
Public strclid As String
Public cnn As New ADODb.Connection
Public user As String
Sub main()
cnn.Open "driver =microsoft access driver (*.mdb);dbq=" & App.Path & "\..\database\enactus.mdb"
login.Show
End Sub
陳述句，總是顯示cnn=“”
rss.Open "select * from user where name ='" & Text1.Text & "'", cnn, adOpenDynamic, adLockOptimistic
不知道是哪里錯了……
uj5u.com熱心網友回復：
'代碼不全，估計是沒有呼叫cnn資料庫連接Sub main(cnn)
cnn.Open "driver =microsoft access driver (*.mdb);dbq=" & App.Path & "\..\database\enactus.mdb"
End Sub '這個程序必須在模塊或在當前界面，否則這個資料庫連接會丟失。
'在呼叫資料庫連接的界面，必須有
Dim rss As New ADODB.Recordset '宣告
Call main(cnn) '呼叫資料庫連接
rss.Open "select * from user where name ='" & Text1.Text & "'", cnn, adOpenDynamic, adLockOptimistic
'這樣就不會出錯了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/78285.html
標籤：網絡編程
上一篇：電腦編程入門教程
下一篇：大神們考試救急啊拜托啦