スポンサーリンク

2007-12-11

Tips116 - 新規テーブルの追加 CREATE TABLE

作成例:
Dim DB As Database
Dim SQL As String
Set DB = DBEngine.Workspaces(0).OpenDatabase("C:\製品4.mdb")
SQL = "CREATE TABLE T_顧客(姓 TEXT (10),名 TEXT (10))"
DB.Execute SQL, dbFailOnError

実行すると、データが空の「T_顧客」テーブルが作成されます。
フィールドは[姓]テキスト型(10文字)、[名]テキスト型(10文字)になります。
もし、既にある同名のテーブルを作成しようとすると、「テーブル'T_顧客'は既に存在しています。」のエラーメッセージがでます。