UC知道vb 中如何记录SQL语句查询的结果
来源：百度知道 编辑：UC知道 时间：2024/05/18 00:41:05
就是一个用户名和密码匹配的问题，
Dim id, psd As String
Private Sub Command1_Click()
id = Text1.Text
psd = Text2.Text
Data1.RecordSource = "select password from denglu where id ='" & id & " '"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "用户名不存在！", vbOKOnly, "提示"
Data1.RecordSource = "denglu"
Data1.Refresh
End If
这可以得出用户名是否存在，如若存在的话，怎么去检查所输入的密码可匹配啊？那个SQL语句的查询结果能不能记录下来放在变量中？盼解决
Dim id, psd As String
Private Sub Command1_Click()
id = Text1.Text
psd = Text2.Text
Data1.RecordSource = "select password from denglu where id ='" & id & " '"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "用户名不存在！", vbOKOnly, "提示"
Data1.RecordSource = "denglu"
Data1.Refresh
End If
这可以得出用户名是否存在，如若存在的话，怎么去检查所输入的密码可匹配啊？那个SQL语句的查询结果能不能记录下来放在变量中？盼解决
Dim id, psd As String
Private Sub Command1_Click()
id = Text1.Text
psd = Text2.Text
Data1.RecordSource = "select password from denglu where id ='" & id & " '"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "用户名不存在！", vbOKOnly, "提示"
else
if data1.recordset.fields("password")=psd then
'登录
else
msgbox"密码错误!",,"提示"
endif
End If
或者这样:
Data1.RecordSource = "select * from denglu where id ='" & id & " ' and password='"& psd &"'"