Question

vb出现实时错误424

我在创建登录窗口时 编写代码运行出现错误424，第五行出现一行黄条显示，不知道错在哪了？
Private Sub Form_Load()
Adodc1.ConnectionString = cnn.ConnectionString

Dim rec
Dim i As Integer
rs.Open "select * from usertb", cnn, adOpenKeyset, adLockOptimistic
rec = rs.RecordCount
ReDim Asc(rec - 1)
rs.MoveFirst
For i = 1 To rec
Combo.AddItem rs.Fields("名称")
Asc(i - 1) = Val(rs.Fields("密码"))
rs.MoveNext
If rs.EOF Then Exit For
Next
rs.Close
End Sub
这是哪个登录窗口

Answer 1

cnn.ConnectionString的值是什么？
cnn.State的值是什么？
只有cnn.State的值为1的时候，rs才可以open

Answer 2

rs.Open "select * from usertb", cnn, 1,1

追问

还是显示不正确呀

追答

数据库连接正确与否，是否建议记录集？？
即你的rs是否已经定义了？

追问

其实我是按照书上改的，我不是很明白

追答

Private Sub Form_Load()
On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称.mdb"
If Err Then
Err.Clear
Set conn = Nothing
msgbox "Access数据库连接出错，请检查数据库是否存在."
Exit Sub
End If
Dim SQL As String
Set rs = CreateObject("ADODB.Recordset")
SQL = "select * from usertb"
rs.Open SQL, conn, 1, 1
i = 1
Do While Not rs.EOF
Combo.AddItem rs("名称")
Asc(i - 1) = Val(rs("密码"))
rs.MoveNext
i = i + 1
Loop
rs.close
Set rs = nothibng
conn.close
Set conn = Nothing
End Sub

Answer 3

有点难度