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之间导入导出数据到其中的表。
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之间导入导出数据到其中的表。
ProductCnt.Execute('Insert into [D:\ProModel.mdb].ProductList Select * From ProductList');
adoquery1.sql.text:='insert into 表 select * from ProductList in "D:\ProModel.mdb" '