unit PasProductData;interfaceuses
    controls,Dialogs,Forms,dbtables,Sysutils,classes,Db,ComObj,
    Windows,Variants, ShellApi, IniFiles, Activex, AdoDB;
var
    ProductQry: TADOQuery;
    ProductCnt: TADOConnection;  procedure ExportProductData ;implementationuses PasPublic;  //readinifile在PasPublic里procedure ExportProductData ;
var
   strFileName,StoreName:string;
   sd: TSaveDialog;
begin
  CoInitialize(nil);
  ProductQry:=TADOQuery.Create(nil);
  ProductQry.ConnectionString:= ReadIniFile('DBSet.ini');
  with ProductQry do
   begin
     close;
     sql.Text:='select top 1 StoreName from CurrentStore';
     open;
     StoreName:=FieldByName('StoreName').AsString;
     close;
   end;
  ProductCnt:=TADOConnection.Create(Application);
  ProductCnt.ConnectionString:=ReadIniFile('DBSet.ini');
  ProductCnt.LoginPrompt:=false;
  ProductCnt.Connected:=true;  strFileName:=ExtractFilePath(Application.EXEName);
  sd := TSaveDialog.Create(Application);
  try
    sd.Options:=sd.Options+[OfOverwritePrompt];
    sd.InitialDir := strFileName+'Backup\';
    sd.DefaultExt:='MDB';
    sd.FileName := StoreName;//ExtractFilePath(Application.EXEName)+strFileName;
    sd.Filter := 'ACCESS 数据库(*.MDB)|*.MDB';
    if Not sd.Execute then exit;
    ProductCnt.Execute('select * into  [D:\ProModel.mdb].ProductList From ProductList'); // 执行到此处就出错
    application.MessageBox('数据库备份成功!','提示',MB_OK+MB_ICONINFORMATION);}
  finally
    FreeAndNil(sd);
    FreeAndNil(ProductQry);
    FreeAndNil(ProductCnt);
    CoUninitialize();
  end;
end;end.
------------
总是搞不明白怎样才可以在两个Access之间导入导出数据到其中的表。

解决方案 »

  1.   

    ProductCnt.Execute('select * into  [D:\ProModel.mdb].ProductList From ProductList'); // 执行到此处就出错这句不大对吧?
    ProductCnt.Execute('Insert into  [D:\ProModel.mdb].ProductList Select * From ProductList');
      

  2.   

    当前adoquery1连接目的表
    adoquery1.sql.text:='insert into 表 select * from ProductList in "D:\ProModel.mdb" '
      

  3.   

    insert into 表 select * from ProductList in "D:\ProModel.mdb"在access中查询模式已经通过
      

  4.   

    把另一个access库的数据导入当前access