即効テクニック |
●概要● 構文 DROP TABLE テーブル名 ; DROP TABLEステートメントを使用して、テーブルを削除します。指定したテーブルが存在しない場合、または他のプロセスで使用している場合はエラーとなります。 サンプルでは、[商品テーブル]テーブルを指定しています。 ●サンプル● 'テーブルを削除する Public Sub Sample() Dim myDB As Database Dim mySQL As String 'SQLステートメントを定義する mySQL = "DROP TABLE 商品テーブル;" 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'SQLを実行する myDB.Execute mySQL End Sub