Question

VB实时错误3709

Private Sub Command1_Click(Index As Integer)
Dim sql As String
Dim conn As New ADODB.Connection
Dim rs_login As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1.SetFocus
Else
sql = "select * from Test where login = '" & Text1.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "用户名不存在，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1 = ""
Text1.SetFocus
Else
If Trim(rs_login.Fields(1)) = Trim(Text2) Then
rs_login.Close
Unload Me
Form2.Show
Else
MsgBox "密码错误，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text2.SetFocus
End If
End If
End If
End Sub

Answer 1

解决3709错误原因是，你没有先写连接数据库代码，rs_login是摸不着北的，所以产生3709

conn.open "连接字串..."

 

待留意的代码问题：

1. Command1_Click(Index As Integer)是数组控件，每个Index的Command1控件都运行相同的过程？

2. rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
   建议adOpenKeyset改为adOpenDynamic或adOpenStatic，支持的运行指令比较丰富。

3. If rs_login.EOF = True Then 这句并不代表真正没有数据。

   If (rs_login.EOF = True) AND (rs_login.BOF = True) Then才能确定没数据，

   倒不如写 if rs_login.recordcount = 0 then 的判断方法

4. Form2.show 最好写在 Unload Me之前。