0

我在mysql5.0 中创建了一个数据库。我想显示它的数据。它有一个名为登录的表。它有 2 列用户名和密码。在表单中，我有 2 个文本字段用户名和密码，我只想使用数据库值验证输入并显示消息框。从VB到数据库的连接建立成功。但它不验证输入。它给出的错误是“需要对象”。请任何人帮助我是 vb 的新手。

我正在使用 vb6 和 mysql5.0 谢谢

代码是：

public con As ADOB.connection
public rs2 As new ADOB.Recordest

public sub preconnection()
    set con = New connection
    set rs = New recordest
    set con = New ADOB.connection
    con.connectionString = "DRIVER = {Mysql ODBC 3.51 driver};"_
                 & "SERVER = localhost;"_
                 & "DATABASE = vbtest;"_
                 & "UID = root;"_
                 & "PWD = ;"
    con.cursorLocation = 
    con.open
end sub

sql = "select *from login"
set rs = con.execute (sql)
if rs.BOF = False Then
    While Not rs.EOF
        If Ucase(txtlogin.text = trim(rs(0)) Ad txtpassword.text = Trim(rs(1)) Then
            username = rs(0)
            loginname = True

            MsgBox("welcome")
        End if
        rs.movenext
     wend
End Sub
4

3 回答 3

2

你已经声明了一个变量rs2但你没有在任何地方使用它；相反，您始终指的是一个不存在的变量rs

于 2010-03-19T13:04:10.967 回答
1

您的代码示例存在一些问题：

  • VB6 中的延续约定是这样的：

        con.connectionString = "DRIVER = {Mysql ODBC 3.51 driver};" & _
       "SERVER = localhost;" & _
       "DATABASE = vbtest;" & _
       "UID = root;" & _
       "PWD = ;"

  • 错字：sql = "select *from login"->sql = "select * from login"

  • 错字：If Ucase(txtlogin.text = trim(rs(0)) Ad txtpassword.text->If Ucase(txtlogin.text = trim(rs(0)) And txtpassword.text

于 2010-03-19T13:09:53.560 回答
0

作为提示，如果您设置“选项显式”，VB6 应该为您指出一些错别字等。如果您没有此设置，但引用了一个不存在的变量（如 rs），它只会在您使用它时为您创建它。

sql = "从登录中选择 *"

应该是：

sql = "从登录中选择 *"

您可能应该声明 sql.

If Ucase(txtlogin.text = trim(rs(0)) Ad txtpassword.text = Trim(rs(1)) 那么

应该

如果 Ucase(txtlogin.text = trim(rs(0)) 和 txtpassword.text = Trim(rs(1)) 那么

另外，我认为使用 StrComp 比使用 UCASE 更有效——尽管两者都可以。

于 2010-03-23T19:59:02.993 回答