查询用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
本回答被提问者和网友采纳