怎样用ｖｂ在ａｃｃｅｓｓ的数据库中添加一个表？谢了

Question

用sql语句
create table XXXXX
具体格式自己查

Answer 1

先CreateTableDef
然后把各字段加入就好了。

Answer 2

先引用dao3.6库
     Dim dbs As Database, tdf As TableDef, fld As Field 
     ' 打开数据库 
     Set dbs = opendatabase(你的数据库)
     ' 返 回 指 向 新 表 的 TableDef对 象 
     Set tdf = dbs.CreateTableDef("Contacts") 
     ' 在 表 中 添 加 一 个 新 字 段 
     Set fld = tdf.CreateField("ContactName", dbText, 40) 
     ' 使 用 Append追 加 Field对 象 到 TableDef的 Fields集 合 中 
     tdf.Fields.Append fld 
     tdf.Fields.Refresh 
     ' 使 用 Append追 加 TableDef对 象 到 数 据 库 的 TableDefs集 合 中 
     dbs.TableDefs.Append tdf 
     dbs.TableDefs.Refresh 

Answer 3

我个人比较喜欢采用SQL语句解决问题，简单明了。
create table 表名 (Field1 Type(width),Field2 Type(width)....)