table2.Close; table2.Active:=false; table2.Exclusive:=true; table2.TableName:='h:\gzkd\sds'; table2.TableType:=ttFOXPRO; with table2.FieldDefs do begin clear; with addfielddef do begin name:='bh'; datatype:=FTSTRING; size:=6; end; with addfielddef do begin name:='gzsr'; datatype:=FTfloat; end; end; table2.CreateTable; end;
如果数据纯粹是从另外一个表中来的话,可以使用 select * into newtable from tablename 也可以先建立好表结构 create table tablename(.....) 然后使用 insert into tablename select * from table
select * into table1 from (select ... from table2 where ...)
有问题请发信息到我的E-mail:[email protected]
table2.Active:=false;
table2.Exclusive:=true;
table2.TableName:='h:\gzkd\sds';
table2.TableType:=ttFOXPRO;
with table2.FieldDefs do
begin
clear;
with addfielddef do
begin
name:='bh';
datatype:=FTSTRING;
size:=6;
end;
with addfielddef do
begin
name:='gzsr';
datatype:=FTfloat;
end;
end;
table2.CreateTable;
end;
select * into newtable from tablename 也可以先建立好表结构
create table tablename(.....)
然后使用
insert into tablename
select * from table
sqlstr:='create table srb ( Jmsbh char(50) PRIMARY KEY,' +
' Dqnf char(50),' +
' Sr1 double,' +
' Dw1 char(50),' +
' Sr2 double,' +
' Dw2 char(50),' +
' Sr3 double,' +
' Dw3 char(50),' +
' Scbz integer,' +
' Gxsj Datetime' +
')';
with Dm1.ADOQ_temp do
begin
close;
sql.clear;
sql.add(sqlstr);
execsql;
end;