Question

VB 数据库 识别密码与用户名匹配

控件 adodc已经连接数据库
已经通过combo控件和text控件连接adodc控件和相应字段
首先，如何识别用户名和密码，就是一个用户名一个密码，错开是不行的
其次，如图所示，问题在哪？按“登录”时，提示

接下来，如何修改？
谢谢大神，重金奖赏，等到9点
QQ：1453831788，对了就给分





Answer 1

where 后面 “空房”如果是字符串信息的话 应该是这样 ‘“ & 空房 & ”’ 不然会被当做变量！
在for前面加入

if adodc1.recordset.eof=ture
msgbox""
exit sub
endif

个人意见。

追问

谢谢啊，虽然我放弃了，但谢谢你让我找到了问题所在，我明天再编一个。希望大神留给QQ以备
不时之需，能不能附一下，提示一下如何继续完善，如何可以让数据库中的用户名和密码一一匹配?

追答

QQ我就不留了吧，VB我也不是很懂，也是初学阶段。

一一匹配，给一段我自己写的登录代码给你。

Private Sub Command1_Click()         '登陆
Dim strSQL As String
yh = Text1.Text
mi = Text2.Text
If yh = "" Or mi = "" Then
   MsgBox "用户名或密码不能为空"
Else
    Set cnn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\01.mdb"
   
   strSQL = "select * from 登陆 where 用户名='" & yh & "'"    '搜索用户名
   
   rs.Open strSQL, cnn, 3, 3
                                   '这里漏了那段IF语句，因为当初写的时候没有考虑到这个问题。
   If rs("密码") = mi Then     '找到用户名后就判断密码。
      MsgBox "登陆成功"
      q1 = rs("权限")
      Form3.Show
      Unload Form1
    Else                    '如果密码不匹配这提示登录失败！
      MsgBox "登陆失败"
    End If
End If
End Sub

Answer 2

没太仔细看，但是在Form_Load里面，我觉得你的SQL语句写错了。你看看是不是应该是：
Adodc1.RecordSource = "Select * from(你写成了form) 房间信息表 where 房态='空房'"

追问

是from，我的SQL对的，否则不会让combo控件list添加数据库的字段的