高校问答买布艺沙发哪个牌子好:vb数据库的问题
来源：百度文库 编辑：高校问答 时间：2024/04/27 14:30:57
代码：
Private Sub Command1_Click()
Dim usee As String
usee = "用户名=" & Text1.Text
Data1.Recordset.FindFirst usee
If Data1.Recordset.NoMatch Then
MsgBox "没有该用户！"
Exit Sub
End If
If Text2.Text = Text5.Text Then
MsgBox "登陆成功！"
Else
MsgBox "密码错误！"
End If
End Sub
-----------------
控件 ：
text1,text2,text5,Command1,Data1
数据库已经连接好
为什么数据库没有记录是正常，有了记录显示实例错误3070？
text5与数据库的密码连接
Private Sub Command1_Click()
Dim usee As String
usee = "用户名=" & Text1.Text
Data1.Recordset.FindFirst usee
If Data1.Recordset.NoMatch Then
MsgBox "没有该用户！"
Exit Sub
End If
If Text2.Text = Text5.Text Then
MsgBox "登陆成功！"
Else
MsgBox "密码错误！"
End If
End Sub
-----------------
控件 ：
text1,text2,text5,Command1,Data1
数据库已经连接好
为什么数据库没有记录是正常，有了记录显示实例错误3070？
text5与数据库的密码连接
用户名是字符串，所以要加引号
usee = "用户名=" +chr(34)+ Text1.Text
+chr(34)
建议用ado对象，这样可以使用sql语句，分方便的