用VBA怎么做窗体登录？SQL

xiworld

我想做个窗体的用户登录，调取SQL数据库的Users数据表，根据用户名与密码与Users表对应，正确就登录成功，可是我设的代码老提示数据类型不一致，不知道具体是哪里出了问题！
Private Sub CommandButton1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim u, p As Variant
Dim sql As String
u = TextBox1.Text
p = TextBox2.Text
cnn.ConnectionString = "Provider=SQLOLEDB;" _
        & "User ID=sa;" _
        & "Password =11111;" _
        & "Data Source=XXXXXX;"_
        & "Initial Catalog =renshi;"
cnn.Open
sql = "select password from users where pinyin='" & u & "' or name='" & u & "'"
Set rs = cnn.Execute(sql)
If p = rs Then
   MsgBox "登录成功！", 1 + 64, "系统登陆"
Else
   MsgBox "哎呀，你填错了！", 1 + 64, "系统登陆"
End If
End Sub

鱼求雨

传个附件上来共同学习一下好吗?

赵国辉

If p = rs Then
是不是应该rs=p？

menboy

Private Sub CommandButton1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim u, p As Variant
Dim sql As String
u = TextBox1.Text
p = TextBox2.Text
cnn.ConnectionString = "Provider=SQLOLEDB;" _
        & "User ID=sa;" _
        & "Password =11111;" _
        & "Data Source=XXXXXX;"_
        & "Initial Catalog =renshi;"
cnn.Open
sql = "select password from users where pinyin='" & u & "' or name='" & u & "'"
Set rs = cnn.Execute(sql)
rs=p
   MsgBox "登录成功！", 1 + 64, "系统登陆"
Else
   MsgBox "哎呀，你填错了！", 1 + 64, "系统登陆"
End If
End Sub

xiworld

多谢各位大佬的关注，我已找到了答案，原来从数据库取出来的是记录集，虽然该记录集只有一个数，但是也是记录集，格式不一样，不能直接判断相等，而且从数据库取出来的数据因格式不一致，有好多空格在后面！以下语句中rs.Fields(0).Value得出记录集的第一个值，再用Trim去除空格，就可以进行判断了，再次谢谢大家！！
If p = Trim(rs.Fields(0).Value) Then
      MsgBox "可以进去了！", 1 + 64, "系统登陆"
   Else
       MsgBox "哎呀，你填错了！", 1 + 64, "系统登陆"
   End If

EH2003

学习学习了记下

lovelyg

好好学习、、

limjx

好好学习...

2038996140

学习学习了记下