动态创建一个Table表格 with TTable.Create(self) do begin DatabaseName:='c:\Temp'; TableName:='FOO'; TableType:=ttParadox; with Fieldefs do begin Add('Age',ftInteger,0,True); Add('Name',ftString,25,False); Add('Weight',ftFloat,0,False); end; IndexDefs.Add('','Age',[ixPrimary,ixUnique]); CreateTable; end;
--> Alter Table
就在table 中能不能处理!
其它的我知道
with TTable.Create(self) do
begin
DatabaseName:='c:\Temp';
TableName:='FOO';
TableType:=ttParadox;
with Fieldefs do
begin
Add('Age',ftInteger,0,True);
Add('Name',ftString,25,False);
Add('Weight',ftFloat,0,False);
end;
IndexDefs.Add('','Age',[ixPrimary,ixUnique]);
CreateTable;
end;
比如说
xxx.fielddefs := xxxx.fielddefs
行不行?
如果一个字段一个字段地复制太麻烦了。另外Database Desktop怎么能修改库结构的?也是生成新库再复制记录?
--> Alter Table
用这个吧,这个方法不错.楼上说的动态创建的方法也可行.你也可以试试.