テーブルの既存データ(行)を削除する

  社員テーブルのデータを削除する場合は、
  DELETE FROM 社員テーブル

  とします。
  この場合は、全行削除されます。
  
  特定の行だけ削除する場合は、
  DELETE FROM 社員テーブル WHERE 社員番号 = ○○○○○
  
  とします。

Public Const ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Sub DeleteTable()

    Dim DB_Connect                      As ADODB.Connection
    Dim DB_Cmd                          As ADODB.Command
        
    Dim MDB_Path                        As String
    Dim Prompt                          As String
    Dim File種類                        As String
    
    Const DB_Name = "Personnel.mdb"
    
    'mdbファイルのパスを設定
    File種類 = "mdb (*.mdb),*mdb"
    Prompt = "「Personnel.mdb」を選択してください。"
    MDB_Path = Application.GetOpenFilename(File種類, , Prompt)

    Set DB_Connect = New ADODB.Connection
    
    DB_Connect.Open ConnectionString & MDB_Path & ";"
    
    Set DB_Cmd = New ADODB.Command

    DB_Cmd.ActiveConnection = DB_Connect
                
    DB_Cmd.CommandText = "DELETE FROM 社員テーブル"

    DB_Cmd.Execute
       
    Set DB_Cmd = Nothing
    
    DB_Connect.Close
    
    Set DB_Connect = Nothing

End Sub

  サンプル をダウンロードして、ご使用ください。