Tips117 - 各種フィールド型でテーブル作成 CREATE TABLE

作成例：
Dim DB As Database
Dim SQL As String
Set DB = DBEngine.Workspaces(0).OpenDatabase("C:\診察.mdb")
SQL = "CREATE TABLE T_患者(患者ID COUNTER , 名前 TEXT (30) , 体重 DOUBLE , 脈拍 INTEGER)"
DB.Execute SQL, dbFailOnError

これを実行しAccessのデザインで見ると下記のようになりました。
患者ID COUNTER　：　オートナンバー型
名前 TEXT (30)　：　テキスト型　フィールドサイズ30
体重 DOUBLE　　 ：　数値型　倍精度浮動小数点型
脈拍 INTEGER　　：　数値型　長整数型