数据库连接

Question

请问以下是用什么方式连接的数据库？请指教，谢谢了。
Dim StrSQL As String
UserName = CStr(Trim(TxtUserName.Text))       '//将文本框内的值赋给定义好的全局变量
PassWord = CStr(Trim(TxtPassWord.Text))
If UserName <> Empty And PassWord <> Empty Then     '//用户名与密码是否为空
    StrSQL = "select 用户名称,用户口令,用户权限 from 管理用户 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"
    If RsLoginCheck.State = adStateClosed Then
        RsLoginCheck.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText   '//打开记录集
    End If
    Group = RsLoginCheck.Fields(2).Value
    If RsLoginCheck.Fields(2).Value <> "Administrators" Then
        Call CheckLogin
    End If

Answer 1

使用的是 ADO，但是没看到具体的连接字符串，不知道连接的是什么数据库

Answer 2

连接的是ACCESS，程序中就没有连接字符串，这样应该不能连吧？
RsLoginCheck.State 不知道这是什么意思啊？
ADO应该有CONNECTION,才对啊？但是代码中没有。

Answer 3

连接Access:DBCON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
If DBCON.State<>adStateOpen Then DBCON.OpenRsLoginCheck.State 这个是判断记录集对象RsLoginCheck是否打开了记录集

Answer 4

楼上说的对，楼主的代码是在登录界面里看到的，一般Connection设置是在程序入口设置的，你可以去main（）里面找找