两个不同数据库的表数据导出导入问题,急!一旦解答,马上给分……(100分)

  • 主题发起人 主题发起人 binzi
  • 开始时间 开始时间
B

binzi

Unregistered / Unconfirmed
GUEST, unregistred user!
把数据库DB1中表A的数据导到数据库DB2的表B中,
两个表结构一样,我用的是ADO控件连接,且用语句写,
我不想从表A中取出数据再一条一条地insert到表B,
而是把表A的数据成批地导到表B中,如何解决?
 
SQL_SERVER
INSERT INTO DB2..B SELECT * FROM DB1..A
 
用TBatchMove控件,非常简单
 
楼上那位仁兄,我用的是ADO控件连接数据库,
好象不能用TBatchMove控件,能的话,该怎么用?
还有什么办法吗?

to :Awen.ZW.Yang:
我是在程序中写的,好象不能这样子insert 吧

 
用另外一种方法也可,给个例子给你,但只能用于Paradox数据库:

procedure CopyPdoxTable(SrcTbl, DstTbl: String; Overwrite: Boolean);
var
DB : TDatabase;
STbl,
DTbl : String;
begin
if (ExtractFilePath(SrcTbl) = '') then
STbl := ExtractFilePath(Application.EXEName) + SrcTbl
else
STbl := SrcTbl;
if (ExtractFilePath(DstTbl) = '') then
DTbl := ExtractFilePath(Application.EXEName) + DstTbl
else
DTbl := DstTbl;
if FileExists(STbl) then
begin
DB := TDatabase.Create(nil);
with DB do begin
Connected := False;
DatabaseName := ExtractFilePath(SrcTbl);
DriverName := 'STANDARD';
Connected := True;
end;
Check(DBICopyTable(DB.Handle, Overwrite, PChar(STbl), nil, PChar(DTbl)));
DB.Free;
end;
else
ShowMessage('Could not copy the table. It is not in the location specified.');
end;
 
insert into ":db2:b" select * from a
用 导入导出 在本论坛里搜索一下,答案一大堆 [:D]
 
怎么只有题目没有内容?
问的是什么呀?
 
你可以用xml试一下
 
说清楚问题内容,也许我能回答。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
739
SUNSTONE的Delphi笔记
S
S
回复
0
查看
749
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部