qq_62052066
2021-09-18 16:02
采纳率: 100%
浏览 34

关于#数据结构#的问题:sql里面设置的用户名和密码,在vb上运行登陆时,显示用户名或密码错误

sql里面设置的用户名和密码,在vb上运行登陆时,显示用户名或密码错误。问下各位大佬,这是怎么回事。

img

img

图片转代码服务由CSDN问答提供 功能建议

                                                                                  系统登陆
                                               登陆提示 工程1-Frmlogin(Code) X X
 cmdOK
                                                                                        用户名: adnin
    Private Sub cmdclose_Click() 用户名或密码错误,请重新登录!
        Unload Me
    End Sub
                                                                                                 123
    Private Sub cmdOK Click() 密码:
    Dim sUserNane As String 确定
     Uim sUuserFwd As String
    sUserName=Trim(txtUserKeme.Text)
    sUserPwd = Trim(txtUserPwd.Text) 确定 关闭
    If sUserName Thei
         Cal1MsgBox(请输入用户名!,vbOKDnly,登录提示”)
         txtUserNeme.SetFocus
         Exit Sul
    End If
    IfSalConn.State <adStateOpen Then DBConnect(”U”)
    Set SglRS =ExecSQL(”select count(*)num from Users where(username=”+sUserName +”’)and(userpwd= +sUserPwd+')”)
    If Not SalRS.EOF Ther
     IfInt(Trim(SqlRS(num)))=1Then
        SaRS.C4os
        SetSalRS =ExecSQL(”select username,role from users where(usernane=”+sUserName+)and(userpwd='+sUserPwd +”)
        If Not SalRS.EOF Ther
          IIForml.setrightforrole(Trim(SqlRS(role)))
          Else
         HDIForml.setrightforrole(2)
         EndIf
         Unload Me
         MDIForml.Show
            Ca11MsaBox(用户名或密码错误,请重新登录!”,vbOKOnly,“登陆提示”)
             txtUserName.SetFocus
            Exit Sub
         End If
         End If
         End Sub
DESKTOP-UPHJ046...tDB-dbo.users 中X
                  userpwa username role
     admin 123 2
     NULL NULL 北 NULL
  • 收藏

2条回答 默认 最新

  • orange4reg 2021-09-18 16:20
    已采纳

    你看看图片,你的sql语句里的空格,里面多了空格肯定对不上啊

    已采纳该答案
    打赏 评论
  • Goblin_M 2021-09-18 16:37

    你的代码是不是还有一个问题,是不是我看错了,你从头到尾,数据库都没做打开的动作是吗?

    打赏 评论

相关推荐 更多相似问题