如何将SQL查询结果生成一结构相同的数据库(200分)

  • 主题发起人 主题发起人 jmylf
  • 开始时间 开始时间
J

jmylf

Unregistered / Unconfirmed
GUEST, unregistred user!
使用paradox,查询另一库,使用SQL,(select * from sample.db
where beiginday>'02/032000 '),如何将 查询结果生成与sample.db
结构相同的临时库temp.db
 
to jmylf
insert into Table_Name (column1,column2,...) select column1,column2,... from
another_Table
 
I have a prj maybe do this.If you want it.
write to me.wumengs@sina.com.cn
下面是主要的部分,Qry-->(select * from sample.db
where beiginday>'02/032000 ')

procedure TForm1.Button1Click(Sender: TObject);
var
h : HDBICur;
ph : PHDBICur;
begin
Qry.Prepare;
Check(dbiQExec(Qry.StmtHandle, ph));
h := ph^;
Check(DbiMakePermanent(h, Pchar(ExtractFilePath(Application.ExeName)+'qry.dbf'), True));
end;
 
也可将它的字段定义属性赋给另一个DATASET,再调用CREATETABLE
 
select * into newtable from oldtable
 
可以用batchmove 的 copy
 
R_Baggio说的对,select 语句中可用into newtablename来export data to a new db.
select * into temp.db from sample.db where beiginday>'02/032000 '
你try一下.
 
select * into 的表没有主键,在syscolumns中也没有标示详细极端
 
可先建一临时表,在将SELECT出的数据,INSERT到临时表,即可,
SQL语句为:insert into (colum1,colum2,...) where(select colum1,colum2,.. from sample.db
where beiginday>'02/032000) 即可,
 
paradox可以用Select...into...吗? 没听说过(我记得sql server级数据库才可以)
 
先用 x.Fields:=xx.Fields 建表! 然后用 batchmove , copy !
 
dataset控件的assige
 
agree with wumeng
do not forget
USES BDE

 
1、若在程序中,则使用batchmove。
2、若在DATABASE DESKTOP中,则SQL语句执行后,执行的结果,系统会自动产生
一个文件:ANSWER.DB,这就是你所需要的文件,你只需将他拷贝到TEMP.DB就可以了。
 
多人接受答案了。
 
后退
顶部