代码如下:
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) & "'")

解决方案 »

  1.   

    密码那儿格式应该是:PWD= 吧?另外,123是你的SA密码吗?
      

  2.   

    是啊,问题解决了,现在问题又来了
    rs无法获得表中数据,明明users表中有用户,都提示没有改用户的,什么回事?
      

  3.   

    Set rs = conn.Execute("select * from users where user='" & Trim(txtUserName.Text) & " '")
     
     If rs.EOF = True Then
     MsgBox "没有该用户!" & vbCrLf & "请重新输入!", vbOKOnly + vbExclamation, "ERP企业工资管理系统-提示"
     txtUserName.Text = ""
     txtPwd.Text = ""
     txtUserName.SetFocus
      

  4.   

    你把“"select * from users where user='" & Trim(txtUserName.Text) & " '"”这一段赋值给一个变量str,然后在 conn.Execute str之前中断一下,把str debug.print下来,到查询分析器中执行一下,看看什么错误。
      

  5.   

    列名无效,也就是txtusername.text的值无效啊
      

  6.   

    user改为[user],user为系统保留字
      

  7.   

    LZ搞定了吗?
    select * from users where [user]='" & Trim(txtUserName.Text) & " '"”
    应该没问题了,结贴。
      

  8.   

    谢谢fyming,没问题,搞好了
    不过好奇怪,我把表中的user改成了username,这个不是保留字了,可就是不行,用你的方法就行