如何从一个TTable的实例中复制表结构到另一个TTable中(50分)

比尔

Unregistered / Unconfirmed
GUEST, unregistred user!
即如果新新建一个空表,字段和已知表结构相同
 
module_form.adoquery.Active :=false;
module_form.adoquery.SQL.Text :='select * into 新表名 from 源表名
module_form.adoquery.Active :=true;
这句sql语句就是源表复制到新表联同数据一起复制,希望对你有帮助
 
module_form.adoquery.Active :=false;
module_form.adoquery.SQL.Text :='select * into 新表名 from 源表名 where 1=2';
module_form.adoquery.Active :=true;
这句sql语句就是源表复制到新表联同数据一起复制,希望对你有帮助
where 1=2 是一个永假值,这样只考贝了表结构不复制源表的数据

不是我的我不会去争,如果是我的一定要给我!!!!!!!!!!!!!!
 
To 比尔
能让我去微软当个打杂的码?

for i:= 0 to table1.Fields.count - 1 do
begin
Table2.Fields.Add(Table1.Fields);
Form1.caption := Table1.Fields.FieldName;
end;
 
此句可实现
create table yournewtablename as
(select * from youroldtablename where 1<>1)
 

Similar threads

顶部