VBA 404号室:Accessデータベースのテーブル情報を削除

tblDataの情報を全て削除

▼プログラム▼

Dim cnn As ADODB.Connection
Dim mySQL As String
Dim mdbPath As String

mdbPath = "C:\Sample¥Sample.accdb" '接続するAccessファイルのフルパス

Set cnn = New ADODB.Connection

'DB接続文字列
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.16.0;" _
                            & "Data Source=" & mdbPath & ";"

cnn.Open '接続の確立

'------------------------------
'接続後の処理プログラム

    'レコード削除のSQL文
    mySQL = "DELETE FROM tblData"

    cnn.BeginTrans     '新しいトランザクションを開始します

    cnn.Execute mySQL    'SQLを実行

    cnn.CommitTrans      '現在のトランザクションを終了します

'------------------------------

cnn.Close

'------------------------------
'後片付け
Set cnn = Nothing