Question

我在创建登录表单时遇到了麻烦。我的表单连接到我的ora10g数据库。用户名在组合框中，以便用户可以轻松登录。是否有人可以帮助我为什么每次我在组合框中选择用户名并为该用户名输入正确的密码时，它始终显示msgbox＆＃34;用户名无效＆＃34;。谢谢你的帮助！

以下是我的OK按钮代码：

    Dim cnn As New ADODB.Connection
    Set cnn = New ADODB.Connection
    cnn.Open " provider = MSDAORA; user id = System; password = Estacio;"
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "Select * From Admin Where Username = '" & Combo1.Text & "'", cnn
    If rs.RecordCount < 1 Then
    MsgBox "Username is Invalid. Please try again.", vbInformation
    Combo1.SetFocus
    Else
    If txtPassword.Text = rs!Password Then
    Timer1.Enabled = True
    ProgressBar1.Visible = True
    Else
    MsgBox "Password is Invalid. Please try again.", vbInformation
    txtPassword.SetFocus
    Exit Sub
    End If
    End If
    Set rs = Nothing
    End Sub

Answer 1

 Dim cn As OracleConnection = New OracleConnection("Data Source=xe;User ID=hr;password=hr;Unicode=True")
    Dim cmd As OracleCommand
    Dim dr As OracleDataReader
cmd .Connection = cn
            cmd .CommandText = "SELECT COUNT(1) FROM Admin WHERE username = @username AND password = @password"
            cn.Open()
          cmd .Parameters.Add(New SqlClient.SqlParameter("@username", Combo1.Text))
            cmd .Parameters.Add(New SqlClient.SqlParameter("@password", txtPassword.Text))
 If cmd .ExecuteScalar = 1 Then
                MsgBox("Successful Login")

            Else
                MsgBox("Try Again")
            End If

试试这个......我希望它有用

Visual Basic 6.0登录表单

1 个答案: