代码如下:
If Trim(txtUserName.Text) = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "提示!"
txtUserName.SetFocus
End If
connstring = "provider=MSDASQL;fileDSN=mysql;DRIVER={SQL_ Server};database=wages;UID=sa;psw=123"
If conn.State <> 1 Then
conn.Open connstring
End If
Set rs = conn.Execute("select * from users where user='" & Trim(txtUserName.Text) & "'")
If Trim(txtUserName.Text) = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "提示!"
txtUserName.SetFocus
End If
connstring = "provider=MSDASQL;fileDSN=mysql;DRIVER={SQL_ Server};database=wages;UID=sa;psw=123"
If conn.State <> 1 Then
conn.Open connstring
End If
Set rs = conn.Execute("select * from users where user='" & Trim(txtUserName.Text) & "'")
rs无法获得表中数据,明明users表中有用户,都提示没有改用户的,什么回事?
If rs.EOF = True Then
MsgBox "没有该用户!" & vbCrLf & "请重新输入!", vbOKOnly + vbExclamation, "ERP企业工资管理系统-提示"
txtUserName.Text = ""
txtPwd.Text = ""
txtUserName.SetFocus
select * from users where [user]='" & Trim(txtUserName.Text) & " '"”
应该没问题了,结贴。
不过好奇怪,我把表中的user改成了username,这个不是保留字了,可就是不行,用你的方法就行