ACCESS 读取 SQL

 

 

Private Sub 功能1_Click()

Dim 链接集 As New ADODB.Connection      '定义 数据链接 对象，保存 连接数据库信息；请先添加ADO引用
Dim 数据表 As New ADODB.Recordset       '定义 记录集   对象，保存 数据表

Dim 服务器名 As String                  '定义 字符串变量
Dim 数据库名 As String
Dim 登录名 As String
Dim 密码 As String

Dim 链接条件 As String
Dim 读取数据 As String

    服务器名 = "GSFSR"
    数据库名 = "SY_Data"
   
    登录名 = "sa"
    密码 = "Sa2011"

    链接条件 = "Provider=SQLOLEDB;Server=" & 服务器名 & ";Database=" & 数据库名 & ";Uid=" & 登录名 & ";Pwd=" & 密码 & ";"      '定义数据库链接字符串

    读取数据 = "SELECT * FROM 用户表"       '定义SQL 查询命令字符串

    链接集.Open 链接条件                    '与数据库建立连接
    数据表.Open 读取数据, 链接集            '执行SQL命令     ，结果保存在 记录集对象中

    Do While Not 数据表.EOF                                                                                             '当数据指针未移到记录集末尾时，循环下列操作

        MsgBox 数据表.Fields("用户名").Name & " " & 数据表.Fields("用户名").Value & " " & 数据表.Fields("密码").Value   '具体操作
        数据表.MoveNext                                                                                                 '把指针移向下一条记录
    Loop                                                                                                                '循环

    数据表.Close   '关闭记录集
    链接集.Close

End Sub