Excel VBAのADO（ActiveX Data Objects）ライブラリ：データベースアクセスと操作の強力なツール

Sub FetchDataFromDatabase()
    ' ADOライブラリの参照設定が必要
    ' 参照設定: Microsoft ActiveX Data Objects x.x Library

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim connString As String
    Dim sql As String

    ' 接続文字列の設定
    connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

    ' SQLクエリの設定
    sql = "SELECT * FROM YourTableName"

    ' Connectionオブジェクトの作成と接続の確立
    Set conn = New ADODB.Connection
    conn.Open connString

    ' Recordsetオブジェクトの作成とSQLクエリの実行
    Set rs = New ADODB.Recordset
    rs.Open sql, conn

    ' データの取得とExcelシートへの表示
    Dim i As Integer
    Dim j As Integer
    i = 1
    While Not rs.EOF
        For j = 0 To rs.Fields.Count - 1
            Cells(i, j + 1).Value = rs.Fields(j).Value
        Next j
        i = i + 1
        rs.MoveNext
    Wend

    ' リソースの解放
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing

    MsgBox "データの取得が完了しました。", vbInformation, "完了"
End Sub

Sub InsertDataToDatabase()
    ' ADOライブラリの参照設定が必要
    ' 参照設定: Microsoft ActiveX Data Objects x.x Library

    Dim conn As ADODB.Connection
    Dim sql As String

    ' 接続文字列の設定
    connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

    ' SQLクエリの設定
    sql = "INSERT INTO YourTableName (FieldName1, FieldName2) VALUES ('Value1', 'Value2')"

    ' Connectionオブジェクトの作成と接続の確立
    Set conn = New ADODB.Connection
    conn.Open connString

    ' SQLクエリの実行
    conn.Execute sql

    ' 接続のクローズ
    conn.Close
    Set conn = Nothing

    MsgBox "データの挿入が完了しました。", vbInformation, "完了"
End Sub

Sub UpdateDataInDatabase()
    ' ADOライブラリの参照設定が必要
    ' 参照設定: Microsoft ActiveX Data Objects x.x Library

    Dim conn As ADODB.Connection
    Dim sql As String

    ' 接続文字列の設定
    connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

    ' SQLクエリの設定
    sql = "UPDATE YourTableName SET FieldName1 = 'NewValue' WHERE FieldName2 = 'Value2'"

    ' Connectionオブジェクトの作成と接続の確立
    Set conn = New ADODB.Connection
    conn.Open connString

    ' SQLクエリの実行
    conn.Execute sql

    ' 接続のクローズ
    conn.Close
    Set conn = Nothing

    MsgBox "データの更新が完了しました。", vbInformation, "完了"
End Sub

Sub DeleteDataFromDatabase()
    ' ADOライブラリの参照設定が必要
    ' 参照設定: Microsoft ActiveX Data Objects x.x Library

    Dim conn As ADODB.Connection
    Dim sql As String

    ' 接続文字列の設定
    connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

    ' SQLクエリの設定
    sql = "DELETE FROM YourTableName WHERE FieldName2 = 'Value2'"

    ' Connectionオブジェクトの作成と接続の確立
    Set conn = New ADODB.Connection
    conn.Open connString

    ' SQLクエリの実行
    conn.Execute sql

    ' 接続のクローズ
    conn.Close
    Set conn = Nothing

    MsgBox "データの削除が完了しました。", vbInformation, "完了"
End Sub