Question

vb运行错误3709，急求大师指教，什么连接无法用于执行操作。

Private Sub Command2_Click()
If Text1.Text = "" Then
App.TaskVisible = False
MsgBox "账户不能为空", vbExclamation, "提示"
Text1.SetFocus
Text1.Text = ""
Else
ljstr = "select * from username where user='" & Text1.Text & "' and name='" & Text2 & "'"
myrec.Open ljstr, myconn
If Not myrec.EOF Then
username = Text1
userpass = Text2.Text
If myrec.Fields(3) = 1 Then
'说明是管理员
gly = True
Else
gly = False
End If
Unload Me
myrec.Close
frmYHJM.Show
Else
MsgBox "账户或者密码错误", vbExclamation, "提示"
myrec.Close
Text1.SelStart = 0
Text1.SelLength = "600"
Text1.SetFocus
Text2.SelStart = 0
Text2.SelLength = "600"
Text2 = ""
End If
End If
End Sub

Answer 1

童鞋，你的myrec定义了没？myconn定义了没？还没有的话定义一下

    Public myconn As New ADODB.Connection '定义一个数据库对象（假设你用的是ADO）
    Dim myrec As New ADODB.Recordset
    
    
    建议在代码最前面加上 option explicit 强制定义变量
    
    另外，你的数据库打开了吗？myconn是写在Sub Main()?
    如果是的话请把Sub Main()设置为启动对象。
    有51%的概率确定是这个原因了。。。

 

Answer 2

这个myconn 在这里也没见定义，这是连接对象，要正确连接到数据库。
可以检查一下有没有正确连接：MsgBox myconn.State = adStateOpen
或者直接用连接串也可以：
如果是SQL Server:
"driver={SQL Server};server=;uid=sa;pwd=;database=数据库名"
Mdb数据库:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Mdb数据库文件名;Persist Security Info=False"
别的不知道了。