数据转出问题

Question

怎样把当前连接到的数据库文件abc.mdb中查询到的数据集，转存到硬盘中def.mdb文件。1、这个过程在一条SQL语句中完成。2、硬盘上如果没有def.mdb文件，会自动生成，如果有，数据追加到末尾。

Answer 1

http://community.csdn.net/Expert/topic/4934/4934264.xml?temp=.7598993

Answer 2

数据的导入你可以这样写
     with adoquery1 do//adoquery的连接字符串要设置好，连接abc.mdb，def.mdb必须存在
   begin
     close;
     sql.Clear;
     sql.Add('insert into t1 in "d:\def.mdb" select * from t1 ');
     ExecSQL;
   end;关于第二个问题，你要先判断文件是否存在，可以用FileExists，关于创建.mdb文件，可以参考我blog中的内容http://blog.csdn.net/wudi_1982/archive/2006/05/31/764880.aspx
，建立了.mdb文件后，再创建一个同样的表就可以了，可以用adotable,也可以用adoquery配合sql语句完成，然后使用上面的代码导入。

Answer 3

1.用insert into...就可以了
2.同样先判文件是否存在,如果不存在,简单地:
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
newdb:Variant;
begin
newdb:=CreateOleObject('ADOX.Catalog');
newdb.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\temp\newdb.mdb');
end;
就可以在e:\temp下建一access的数据库文件:newdb.mdb

Answer 4

Insert Into abc IN "f:\SSS.mdb" SELECT * FROM def 把当前数据库中的def表的数据转换到"f:\SSS.mdb"数据库中的abc表.现在我要把当前数据库中的def表的数据转换到"f:\SSS.xls"电子表格中,怎么转?

Answer 5

可直接用SQL
select * into [excel 8.0;database=f:\sss.xls].[test] from def
注意:
要将adoquery1的ParameterCheck的属性设为false