如何用Create Table语句创建Access表

[NoFile]

我想使用 Sql语句中的Create Table创建access中的表，请高手帮忙！

[changechange]

create table tablename (userName varchar(20),userAddress varchar(100),userBirthday date)

[zhengjialon]

直接用JET SQL 如：
Create Table (ID int primary key, Name char(32) primary key,
age tinyint)

[liuyann]

create table tablename (
userName varchar(20),
userAddress varchar(100),
userBirthday date
)
选择新建查询
切换到SQL视图
写SQL语句
执行

[hkken]

用DAO：
Dim dbApp As DAO.Database
Dim tmptbl As DAO.TableDef
Dim fld As DAO.Field
Dim strTblName As String

Set dbApp = CurrentDb
strTblName = strTblApp
Set tmptbl = dbApp.CreateTableDef(strTblName)
Set fld = tmptbl.CreateField("CUSTOMER", DB_TEXT, 20)
tmptbl.Fields.Append fld
Set fld = tmptbl.CreateField("QTY", DB_INTEGER, 40)
tmptbl.Fields.Append fld
dbApp.TableDefs.Append tmptbl
dbApp.TableDefs.Refresh
。。。。。。。。。。。。
Set dbApp = Nothing

[accp258]

create table item
(id int primary key,//主键
name char(8),//文本，8个字符
mydate datetime,//日期时间
sex yesno,//是否
beizhu memo,//备注
mymoney currency,//货币
myid counter(1,1)//自动编号
)

[whqcfp]

如果使用 ADO 连接数据库，可以如下：
var
strSQL: String;

strSQL := 'create table MyTest (name varchar(10))';
with ADOQuery1 do
begin
close;
sql.clear;
sql.add(strSQL);
Execsql;
end;

按以上的方法就可以创建一个表，但必须保证该表不存在才行。