Link：Access VBAで学ぶ初心者のためのデータベース／SQL超入門

Access VBAで学ぶ初心者のためのデータベース／SQL超入門

前回記事：ネットワークの基礎を学習する CCNA対策講座

・ 4. VBAで正規表現や関数を使った入力チェックを行い、Accessに新規レコードを追加、保存するには
・ 3. Accessを使うなら最低限知っておきたいSQL文を使ったさまざまな種類のクエリ操作の基本

次回記事：Microsoft Remote Desktopの基礎と実践

---

学習リンク, Access, VBA

Access全テーブルのレコードをCSV出力したい

Access内の全テーブルについて、レコードをCSV出力したい。

マクロで可能なのかもしれないが、よくわからないのでVBAを使うことにする。

1) 全テーブルの取得
全オブジェクトの情報は "MSysObjects" というテーブルに入っている模様。
レコードを眺めたところ、
・type=1 がテーブル表す
・flags=0 がユーザーテーブル？
っぽい。

2) CSVの作成
CSVの作成は "DoCmd.TransferText" というコマンドで出来る。
"DoCmdTransfer acExportDelim, , (テーブル名), (CSV出力先)"

3) AccessでDAO3.6は使えない？
VisualBasicの [ツール] ＞ [参照設定] で "Microsoft DAO 3.6 Object Library" にチェックを付けるが "DLL読み込み時のエラーです。" となり参照できない。
64bit版Accessだからなのかもしれない。
代替として "Microsoft ActiveX Data Objects 6.1 Library" を使うことにした。

4) 以上と纏めると、だいたい以下のソースとなる。

Option Compare Database

Public Sub test()
    
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
    Set conn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    
    sql = "SELECT NAME FROM MSYSOBJECTS WHERE TYPE=1 AND FLAGS=0 ORDER BY NAME"
    rs.Open sql, conn
    
    Dim tableName As String
    
    Do Until rs.EOF
       '今回はAccessテーブル名先頭8文字は不要なので除去した
        tableName = Mid(rs!Name, 9)
        Debug.Print tableName
        DoCmd.TransferText acExportDelim, , rs!Name, "C:\csv\" & tableName & ".csv", True
        rs.MoveNext
        Loop
    
    rs.Close
    Set rs = Nothing
    
    conn.Close
    Set conn = Nothing
    
End Sub

---