首頁猿問 VB6.0出現(xiàn)狀況：對象變量或wi...

VB6.0出現(xiàn)狀況：對象變量或with塊變量未設(shè)置，請問怎么解決？？？

C 算法

神不在的星期二 2023-04-20 19:15:48

Private Sub cmd_ok_click()Adodc1.Recordset.Find "用戶名='" & Text1.Text & "'"If Adodc1.Recordset.EOF ThenMsgBox "用戶名不存在", vbOKOnly, "提示"ElseIf (Adodc1.Recordset.Fields("口令") <> Text2.Text) ThenMsgBox "密碼不正確", , "提示"numlogin = numlogin + 1ElseMsgBox "登錄成功", , "提示"username = Text1.TextUnload Memenu.ShowEnd IfEnd Sub

查看完整描述

2 回答

米琪卡哇伊

TA貢獻1998條經(jīng)驗獲得超6個贊

給對象起名字不能和vb6的關(guān)鍵字、函數(shù)等沖突

將 menu 另改名

反對回復(fù) 2023-04-23

慕妹3146593

TA貢獻1820條經(jīng)驗獲得超9個贊

應(yīng)該是這行（Adodc1.Recordset.Find "用戶名='" & Text1.Text & "'"）會出問題吧。
看代碼，這行以下的代碼應(yīng)該都是沒有問題的。
所以，要檢查Adodc1.Recordset對象是否已經(jīng)打開。
如果確定已經(jīng)打開，則可在
Adodc1.Recordset.Find "用戶名='" & Text1.Text & "'"
前加上Adodc1.Recordset.movefirst試試。

反對回復(fù) 2023-04-23