剛接觸VB，在做這個登陸頁面時 獲取ID和PWD文本框的值 代碼如下。怎么不正確。報錯 實時錯誤‘91’ 物件變數或With塊變數未設定
Private Sub But_login_Click()
If Text_Id.Text = "" Or Text_Pwd.Text = "" Then
MsgBox "賬號或密碼不能為空", "提示"
Else
Adodc1.Recordset.Find ("AdminID='" & Trim(Text_Id.Text) & "'")
If Adodc1.Recordset.EOF Then
MsgBox "沒有找到相關資訊 請重新輸入", , "提示"
ElseIf Adodc1.Recordset.Fields("PassWord") = Trim(Text_Pwd.Text) Then
MsgBox "歡迎使用圖畫書借閱系統", , "提示"
Else
MsgBox "密碼錯誤，請重試", , "提示"
Text_Pwd.Text = ""
End If
End If
End Sub
uj5u.com熱心網友回復：
adodc1沒有與資料庫建立連接吧uj5u.com熱心網友回復：
原來的代碼應該是使用設計方式設定 ADODC 的連接字串以及 SQL 字串的。首先，你要確認你的 Form 中有 ADODC1。
1 用滑鼠右擊 ADODC1，選右鍵選單 ADODC屬性。
2 在通用頁上，選“Use Connection String"（我的 VB 是英文版，你根據情況選擇對應項）。
3 在提供程式頁上點擊 Build... 按鈕，選 Microsoft Jet 4.0 OLE DB Provider。
4 點擊連接頁，點擊...按鈕，選擇你的資料庫檔案，點確定。
5 點擊 RecordSource 頁，在 Command Text (SQL) 框中輸入 Select * From 你的表名。按確定按鈕。
你這里也可以采用代碼（例如在 Form_Load() 中）：
ADODC1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\yourdb.mdb;“
ADODC1.RecordSource = ”SELECT * FROM yourtable"
注意：Data Source= 后的路徑和資料庫檔案名，以及 RecordSource 中的 yourtable 都要用你的實際名稱替換。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/95281.html
上一篇：求大神！！本人做了很多界面，其中一個界面通過網線與外界取得了連接，其他幾個界面也可以實作嗎？
下一篇：excel篩選后洗掉選中行