フィールドの追加
Sub ALTER_TABLE_ADD()
Sub ALTER_TABLE_ADD()
Dim StrSQL As String
StrSQL = "ALTER TABLE 商品テーブル ADD COLUMN 料金 MONEY;"
CurrentDb.QueryDefs("Qクエリ").SQL = StrSQL
DoCmd.SetWarnings False
DoCmd.OpenQuery "Qクエリ"
DoCmd.SetWarnings True
End Sub
フィールドの削除
Sub ALTER_TABLE_DROP()
Dim StrSQL As String
StrSQL = "ALTER TABLE 商品テーブル DROP COLUMN 料金;"
CurrentDb.QueryDefs("Qクエリ").SQL = StrSQL
DoCmd.SetWarnings False
DoCmd.OpenQuery "Qクエリ"
DoCmd.SetWarnings True
End Sub
フィールド属性の変更
Sub ALTER_TABLE_ALTER()
Dim StrSQL As String
StrSQL = "ALTER TABLE 商品テーブル ALTER COLUMN 料金 TEXT(6);"
CurrentDb.QueryDefs("Qクエリ").SQL = StrSQL
DoCmd.SetWarnings False
DoCmd.OpenQuery "Qクエリ"
DoCmd.SetWarnings True
End Sub
フィールドの削除
Sub ALTER_TABLE_DROP_RUN()
Dim StrSQL As String
StrSQL = "ALTER TABLE 商品テーブル DROP COLUMN 料金;"
DoCmd.SetWarnings False
DoCmd.RunSQL StrSQL
DoCmd.SetWarnings True
End Sub
※RunSQLメソッドはアクションクエリ(更新や削除など)のみ。
SQL データ型
TEXT(4), INTEGER, SMALLINT, FLOAT, MONEY ・・・