VBAでAccessデータベースのインスタンスにアクセスします。

1年 ago
優斗, 朝陽
1 minute

以下はAccessデータベースへのアクセスをするための簡単なVBAの例です：

Sub AccessDBExample()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    ' 连接到Access数据库
    Set db = OpenDatabase("C:\path\to\your\database.accdb")
    
    ' 构建SQL查询语句
    strSQL = "SELECT * FROM TableName"
    
    ' 执行查询语句并获取结果集
    Set rs = db.OpenRecordset(strSQL)
    
    ' 遍历结果集并输出数据
    Do Until rs.EOF
        Debug.Print rs.Fields("FieldName").Value
        rs.MoveNext
    Loop
    
    ' 关闭结果集和数据库连接
    rs.Close
    db.Close
    
    ' 释放对象变量
    Set rs = Nothing
    Set db = Nothing
End Sub

注意：この例を使用する前に、コード内の”C:\path\to\your\database.accdb”を実際のAccessデータベースファイルのパスに、”TableName”を実際のテーブル名に、”FieldName”を実際のフィールド名に置き換える必要があります。

この例では、DAO（Data Access Objects）オブジェクトモデルが使用されているため、VBAエディタの「ツール」メニューの「参照」に「Microsoft DAO 3.6 Object Library」への参照を追加する必要があります。

bannerAds