CREATE TABLE T_TYBBCS ( LB VARCHAR(8) NOT NULL, ZDMC VARCHAR(20) NOT NULL, BT VARCHAR(50), BW VARCHAR(50), SFDY CHAR(2) default '√', DYKD INTEGER ) ALTER TABLE T_TYBBCS ADD PRIMARY KEY (LB,ZDMC)
动态创建你最好用delphi自带的adox,用ado会有麻烦,
忘了告诉你,adox在delphi的可视类库中添加
创建表你可以用Query来实现: sqlstr:='Create Table TableXXX FieldName1 varchar (20) NOT NULL,FieldName2 varchar (20) NOT NULL )'; With ADOQuery1 Do Begin Close; SQl.Clear; SQl.add(sqlstr); ExecSQL; End;
各位似乎没看清楚我的要求!建数据库文件和表格,我已经ok!但是属性不正确! not null似乎对应的应该是“必填”而不是“允许空字符串”吧??还有“Unicode压缩”!没有那位知道?
LB VARCHAR(8) NOT NULL,
ZDMC VARCHAR(20) NOT NULL,
BT VARCHAR(50),
BW VARCHAR(50),
SFDY CHAR(2) default '√',
DYKD INTEGER
)
ALTER TABLE T_TYBBCS
ADD PRIMARY KEY (LB,ZDMC)
sqlstr:='Create Table TableXXX FieldName1 varchar (20) NOT NULL,FieldName2 varchar (20) NOT NULL )';
With ADOQuery1 Do
Begin
Close;
SQl.Clear;
SQl.add(sqlstr);
ExecSQL;
End;
可以为空就是null,加上就可,默认也是它;
Unicode压缩没有自己写过,联机上应该有的