Private Sub Command1_Click()
If Trim(Form1.usertype.Text) = "學生" Then
s999 = 0
End If
If Trim(Form1.usertype.Text) = "管理員" Then
s999 = 1
End If
If username.Text = "" Then
MsgBox "用戶名不能為空！！"
username.SetFocus
Exit Sub
End If
If userpwd.Text = "" Then
MsgBox "密碼不能為空！！"
userpwd.SetFocus
Exit Sub
End If
Dim rs As New ADODB.Recordset
Set rs = DataEnv.rsabc ////// 這里出錯了
Dim strsql As String
strsql = "select * from users where yonghuming='" & username.Text & "'"
rs.Open strsql
If userpwd.Text = rs.Fields("mima") And usertype.Text = rs.Fields("quanxian") Then
Form4.Show
Unload Me
Else
MsgBox "用戶名或密碼錯誤，請重新登陸！！"
username.Text = ""
userpwd.Text = ""
End If
rs.Close
End Sub
這是一個系統登陸界面，Set rs = DataEnv.rsabc這行代碼出現了問題，這是什么原因呀？
uj5u.com熱心網友回復：
什么錯誤都不說！
猜：工程的 Data Enviroment 中沒有設計 rsabc；或者資料庫連接不對，rsabc 查詢失敗。
uj5u.com熱心網友回復：
I運行時，錯誤提示是這樣的，不明白什么意思
uj5u.com熱心網友回復：
1 打開“工程”-“參考”，看看是否參考了 Microsoft DataEnvironment Instance 1.0 之類的庫。2 檢查代碼，看是否已經將 DataEnv 實體化，并打開了 rsabc 這樣的記錄集。
uj5u.com熱心網友回復：
Ctrl+R 打開 Project Explorer。第3個按鈕 Toggle Folders 要按下狀態。
工程下面有沒有一個 Designers 目錄？
Designers 目錄下有沒有一個 DateEnvironment 物件（按照你的代碼名稱應該是 DataEnv）？
雙擊這個 DataEnv，打開設計畫面，目錄樹第3層有沒有 rsabc？
如果沒有，你取得的源代碼不完整！
uj5u.com熱心網友回復：
DateEnvironment 是固有功能，沒有什么需要參考的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/96730.html
標籤：網絡編程
上一篇：一個賣桶的發貨，壘桶裝車的問題
下一篇：VB讀取天寶電子水準儀原始檔案