Question

vb 数据库 rs.Open sql, conn, 1, 3----------至少一个参数未被指定值

Public st, mima As String
Public st2, st3, zh As String
Public bz, bz1, wtbz, wtbz1 As Boolean '帐号是否存在 wzbz 无题标志
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public sql, yhm As String
Sub 连接数据库()
sjkdz = "用户数据.mdb"
dbpath = App.Path + "\" & sjkdz
constr = "provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & dbpath
'jet oledb: Database password = "(密码)" '(有密码时再使用)
conn.Open constr
End Sub
Sub 搜索账号是否存在(zh As String)
sql = "select * from 用户账户管理 where 用户帐号= '" & zh & "'"
rs.Open sql, conn, 1, 3-----------------------------至少一个参数未被指定值
If rs.EOF = False Then
bz = True
mima = rs("用户密码")
End If
rs.Close
conn.Close
End Sub

Answer 1

conn.open constr失败了
dbpath = App.Path + "\" & sjkdz 这个access文件存在吗？
调试一下这一行，看看文件名对吗？

追问

好像不这个的问题
路径对啊！

追答

那你调试一下，conn有对象吗？

追问

我有定义conn， Public conn As New ADODB.Connection