系统登录

董炫磊　发表于：2011-03-15 20:43:02 　

请问这个代码有错吗？为什么总提示3061 参数不足，期待是2

Public Function adlogin() As Boolean
Dim str As Database
Dim rs As Recordset
Set str = CurrentDb
Set rs = str.OpenRecordset("select 管理员用户名,管理员密码 from 管理员 where 管理员用户名=" & Me.请输入用户名 & " And 管理员密码 = " & Me.输入用户密码 & "")
If Not rs.EOF Then
If rs.Fields("管理员密码") = Me.输入用户密码 Then adlogin = True
End If

End Function

谢谢

点击下载此附件

Top

赵文斌发表于：2011-03-15 21:50:22

Dim rs As Recordset
DIM RS AS ADODB.RECORDSET

Top

罗衣惹轻尘发表于：2011-03-15 21:59:24

1、漏掉type参数了吧？

2、文本型数据应加上单引号。

修改后代码如下：

Public Function adlogin() As Boolean
Dim str As DAO.Database
Dim rs As DAO.Recordset
Set str = CurrentDb
Set rs = str.OpenRecordset("select 管理员用户名,管理员密码 from 管理员 where 管理员用户名='" & Me.请输入用户名 & "' And 管理员密码 = '" & Me.输入用户密码 & "'", dbOpenDynaset)
If Not rs.EOF Then
If rs.Fields("管理员密码") = Me.输入用户密码 Then adlogin = True
End If

End Function

请注意红色字体部分。为了避免引起定义歧义，强烈建议加上DAO（因为ADODB也有相同或类似的对象）

Top

罗衣惹轻尘发表于：2011-03-15 22:00:59

赵先生的答案可不对噢，因为ADO里没有OpenRecordset方法。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

系统登录