小妹高分求access中单表中数据导出、导入的方法！焦急ing！等ing!

Question

小妹高分求access中单表中数据导出、导入的方法！给出代码呀，各位GGJJ！
我想把access库t_a里的表t_aa中满足条件t1的记录导出为另一个库t_b，自动保存在X:\中，t_b事先不存在，导出的数据保存在t_b的t_bb表中，各位ggjj，不知我说清楚了么？
ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
    ADOQuery1.SQL.Clear;
    sqltxt:='select * into OPENROWSET(''micorosoft.jet.oledb.4.0'',''f:\t_b.mdb'';''admin'';'''',t_bb) from t_a.mdb..t_aa';
     ADOQuery1.SQL.Add(sqltxt);
     ADOQuery1.ExecSQL;

Answer 1

AppPath := GetCurrentDir+'\db1.mdb'; //原盘路经
     bb:='f:\a\db1.mdb'; //目标盼路经
     copyfile(pchar(AppPath),pchar(bb),false);
     begin
     ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
    ADOQuery1.SQL.Clear;
    //ADOQuery1.SQL.Add('select * from t_user where user_name="'+trim(ComboBox1.Text)+'" and user_pass="'+edit1.Text+'" ');    //insert into opendatasource('micorosoft.jet.oledb.4.0','x:\a.mdb';'admin';'',a表) select * from 数据库..b表;
  //sqltxt:='insert into opendatasource(''micorosoft.jet.oledb.4.0'',''f:\a\a.mdb'';''admin'';'''',a') select * from kysb_jyt.mdb..xxsqxmk';
      sqltxt:='select * into OPENROWSET(''micorosoft.jet.oledb.4.0'',''f:\a\db1.mdb'';''admin'';'''',a ) from xxsqxmk';
     //sqltxt:='select * from xxsqxmk where';
    ADOQuery1.SQL.Add(sqltxt);
     ADOQuery1.ExecSQL;

Answer 2

只做过把表中的内容导到txt中的
没用过导到数据库中

Answer 3

copyfile>>>>>>>>>>>>insert into