如何在登陆界面调用数据库中的用户名和密码

Question

做了一个界面，开始为了赶进度，用
If Trim(Me.TextBox1.Text) + "" = "" Or Trim(Me.TextBox2.Text) + "" = "" Then
            MsgBox("姓名和密码输入不完整", vbInformation, "错误提示")        End If        If TextBox1.Text = "px" And TextBox2.Text = "px" Then            主界面.Show()        Else
            MsgBox("请输入正确的用户名和密码")
        End If
做了一个假登陆界面
现在希望调用数据库里面的信息来实现界面的登陆，请问该怎么调用。
目前根据msdn的说法我已经把vs和数据库连接好了（可以将表里的内容，用表格的形式拉到窗口里面）
但是我并不能直接用select啊where这些语句

Answer 1

http://blog.csdn.net/chinaboyzyq/archive/2009/07/31/4395997.aspx

Answer 2

使用ADO对象读取数据库中的数据
http://download.csdn.net/source/1498324
http://download.csdn.net/source/1371356
http://download.csdn.net/source/1627068
http://download.csdn.net/source/1644211

Answer 3

adodc怎么用啊，不象你说的一样啊？
http://hi.csdn.net/attachment/201005/10/137648_1273478818k07C.jpg 组件居然在窗口显示？
http://hi.csdn.net/attachment/201005/10/137648_1273478822Cj3y.jpg 属性也没有数据源？

Answer 4

RS.OPEN "SELECT * FROM 表A WHERE 用户名='A' AND 口令='B'",CN,....IF RS的记录数 >0 THEN
   FORMA.SHOW
ELSE
   MSGBOX "no"
ENDIF 我的就是这样做的

Answer 5

'用户登录数据库
Public Function UserLogin() As Boolean
    Dim Cnn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    
    Cnn.Open "数据库连接字符串"
    Rs.Open "SELECT COUNT(*) FROM 用户表 WHERE 用户名='" & Trim(Me.TextBox1.Text) & "' AND 密码='" & Trim(Me.TextBox2.Text) & "'", Cnn
    If Rs(0).Value > 0 Then
'        UserLogin = False
        主界面.Show()
    Else
         MsgBox("姓名和密码输入不完整", vbInformation, "错误提示")
    End If
End Function