UC知道VB登陆界面代码求助！
来源：百度知道 编辑：UC知道 时间：2024/05/22 20:34:55
我做了个登陆界面，sql数据库，数据里用户表为users 2个字段user password 类型都为varchar 下面代码如下，怎么老是进不去主界面，老是说密码不对啊 请指教！在线等 谢谢
Private Sub Command1_Click()
If Txtuser.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
Txtuser.SetFocus
Exit Sub
End If
If Txtpwd.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
Txtpwd.SetFocus
Exit Sub
End If
Dim Conn As New ADODB.Connection
Dim User As String
Dim password As String
Dim str As String
Dim nTryCount As Integer
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
User = Trim(Txtuser.Text)
password = Trim(Txtpwd.Text)
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=admin;password=admin;Initial Catalog=gsfp;Data Source=127.0.0.1&q
Private Sub Command1_Click()
If Txtuser.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
Txtuser.SetFocus
Exit Sub
End If
If Txtpwd.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
Txtpwd.SetFocus
Exit Sub
End If
Dim Conn As New ADODB.Connection
Dim User As String
Dim password As String
Dim str As String
Dim nTryCount As Integer
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
User = Trim(Txtuser.Text)
password = Trim(Txtpwd.Text)
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=admin;password=admin;Initial Catalog=gsfp;Data Source=127.0.0.1&q
看看你表里的数据，是不是你登陆的时候用户信息不存在
1 确认 你的数据库中有该用户
2 将以下代码
str = "select * from users where user='" & Txtuser.Text & "' and password = '" & Txtpwd.Text & " '"
rs.Open str, Conn, adOpenKeyset, 2
修改为:
str = "select * from [users] where [user]='" & Txtuser.Text & "' and [password] = '" & Txtpwd.Text & " '"
rs.Open str, Conn, 1, 1