假如程序中用了两个不同的数据库,如一个是SQL Server,
另一个为Paradox.
现在用ClientDataSet1连接Sql Server中的表A,
用Table11连接Paradox中的表B,但表A与表B结构相同.现在要从ClientDataSet1中把所有数据导到Table1中,请问怎么写SQL语句?
另一个为Paradox.
现在用ClientDataSet1连接Sql Server中的表A,
用Table11连接Paradox中的表B,但表A与表B结构相同.现在要从ClientDataSet1中把所有数据导到Table1中,请问怎么写SQL语句?
procedure TFrm_DataBackup.BackupCangk;
begin
with DMBack.AdoQuery_Tmp do
begin
close;
sql.clear;
sql.add('select * from Cangk');
open;
end;
if DMBack.AdoQuery_Tmp.RecordCount > 0 then
begin
with DMBack.ClientDataSet_Cangk do
begin
if not fileExists(Edit_Address.text +'\'+ dirName + '\仓库表.cds') then
begin
close;
saveToFile(Edit_Address.text +'\'+ dirName + '\仓库表.cds');//创建导出文件
createDataSet;
end;
FileName := Edit_Address.Text+'\'+ dirName + '\仓库表.cds'; DMBack.AdoQuery_Tmp.First;
while not DMBack.AdoQuery_Tmp.Eof do
begin
append;
fieldbyname('id').Asinteger := DMBack.AdoQuery_Tmp.fieldbyname('id').value;
fieldbyname('CangK_dm').AsString := DMBack.AdoQuery_Tmp.Fieldbyname('Cangk_DM').value;
fieldbyname('CangK_mc').AsString := DMBack.AdoQuery_Tmp.Fieldbyname('Cangk_Mc').value;
fieldbyname('CangK_bz').AsString := DMBack.AdoQuery_Tmp.Fieldbyname('Cangk_bz').value;
post;
DMBack.AdoQuery_Tmp.Next;
end;
end;
end;
end;
就很容易的搞定
DELPHI有例子