将一个数据库的所有数据表的内容,成批转移到另一个新数据库中(注;是在多层结构的模式下)

Question

各位高手:
  请问如何将一个数据库(database1)的所有数据表的内容,成批地转移到另一个新数据库(database2)中,
  其中database1与database2的所有数据表结构是相同的
  注:  在三层结构的模式下.
  请各位大侠指点一下方式?
  还有,BatchMove 能不能用在三层结构的当中???

Answer 1

还有，本人是用Delphi7来开发的。

Answer 2

1:
with AdoQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('Insert Into databasename2.tablename select * from database1.tablename');
  ExecSQL; 
end;2:
var str: String;
str := ' select a.* from FROM OPENROWSET('+QuotedStr('SQLOLEDB')+','+QuotedStr('databaseServerName')+';'+QuotedStr('sa')+';'+QuotedStr('password')+','+
QuotedStr('SELECT * FROM pu.dbo.mat_mst')+' AS a ';
with AdoQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('Insert Into databasename2.tablename ');
  SQL.Add(str);
  ExecSQL; 
end;