vb中用sql语句查询数据库

有一个用户名text1和密码text2,数据库sc中有表sco,其中的sno对应用户名,sco对应密码,怎么用sql语句查询输入的用户名和密码是否正确,应该怎么写?
数据库是access

"SELECT sno,sco FROM sco WHERE sno='" & text1.text & "'"
因为现在不弄VB6了,所以具体怎么连接的代码我忘了,大概就是如果得到的结果RecordSet是空的,即Bof And Eof,则用户名错误,否则如果规定了用户名不可重复,就有且仅有1条记录,再比较其中的sco与Text2.Text是否相等,是则正确通过,否则密码错误。
温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2018-04-30

查询用select。

set rs="select * from sc where sno='"&text1.text&"' and sco='"&text2.text&"'"
if rs.eof and rs.bof then'查询不到数据
    '用户和密码不匹配
else
    '成功,自己写其他代码
end if

追问

编译错误:
要求对象
这是什么意思呀

追答

你上个提问,sql添加信息和查询信息都得配合数据库连接使用的。如果conn是数据库连接,就这样写

set rs=conn.execute("select * from sc where sno='"&text1.text&"' and sco='"&text2.text&"'")
if rs.eof and rs.bof then'查询不到数据
    '用户和密码不匹配
else
    '成功,自己写其他代码
end if

追问

实时错误424,唉,我实在搞不懂

追答

给你个完整的吧。

Dim rs1 As New ADODB.Recordset   '定义数据集对象
Dim cnn As New ADODB.Connection     '定义数据连接
Private Sub Connx() '数据库连接    下面的123.mdb换成自己的数据库
    On Error Resume Next
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=123.mdb;Persist Security Info=False"
    If Err Then
        Err.Clear:cnn.Close
        MsgBox "数据库连接出错!"
        Exit Sub
    End If
End Sub

Private Sub Comman1_Click()
connx '打开数据库连接
rs1.Open "select * from sc where sno='"&text1.text&"' and sco='"&text2.text&"'", cnn, adOpenKeyset, adLockOptimistic
If rs1.BOF Then
        MsgBox "学员密码错误!"
Else
        form2.show
End If
End Sub

本回答被提问者和网友采纳
相似回答