菜鸟问题!帮帮忙!

Question

建一登录界面，用户名密码都要访问SQL数据库，界面中“用户”使用combox控件，运行后使其下拉菜单显示所有数据库中的用户，然后输入密码。判断输入的用户名和密码是否存在！这样的代码怎么写，给个例子，谢谢！

Answer 1

简单的数据库查询操作http://community.csdn.net/Expert/topic/4352/4352282.xml?temp=2.296084E-02

Answer 2

Dim UName As Long
Dim str1 As String
Dim User1 As StringPrivate Sub cmdCancel_Click()
Unload Me
End SubPrivate Sub cmdOK_Click()
    Dim StrUser As String
    Dim StrPassWord As String
    Dim StrYfc As String    Adodc1.Recordset.MoveFirst    StrUser = Adodc1.Recordset("user")
    StrPassWord = Adodc1.Recordset("password")
    If Me.Text1.Text = "" Then
        MsgBox "请输入用户名！", vbOKOnly + 16, "有数据库登陆试验"
        Exit Sub
    End If    While Not (Adodc1.Recordset.EOF)
        If Me.Text1.Text <> StrUser Then
            Me.Adodc1.Recordset.MoveNext
            If Adodc1.Recordset.EOF Then
                MsgBox "当前户名不存在或密码错误！", vbOKOnly + 16, "有数据库登陆试验"
                Me.Text1.Text = ""
                Me.Text2.Text = ""
                Exit Sub
            End If
            StrUser = Adodc1.Recordset("user")
            StrPassWord = Adodc1.Recordset("password")
                    Else
        If Me.Text2.Text <> StrPassWord Then
                MsgBox "用户名或密码错误！", vbOKOnly + 16, "有数据库登陆试验"
                Me.Text1.Text = ""
                Me.Text2.Text = ""
                Me.Text1.SetFocus
                Exit Sub
            End If
            If Me.Text2.Text = StrPassWord Then
               main.Show
               main.Enabled = True
               Unload Me
                Exit Sub
            End If
        End If    WendEnd Sub
Private Sub Form_Load()
    Dim StrConnect As String
    '连接数据库
    StrConnect = App.Path
    If Right(StrConnect, 1) <> "\" Then StrConnect = StrConnect + "\"
    StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & StrConnect & "\sky.mdb"
    Adodc1.ConnectionString = StrConnect
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "SELECT * FROM [user]"
    Adodc1.Refresh
    Me.Adodc1.Visible = False
End Sub
还有这种问题你应该去看书来找答案,而不是上网问,我这么回答你会被高手们笑话的,笑话我骗你的分的