{$R *.dfm}
uses ADODB;
//将Access中的表导入到另一个Access数据库中去
procedure TForm1.Button1Click(Sender: TObject);
var Conn:TADOConnection;
cSql:String;
List:TStrings;
begin
OpenDialog1.Filter:='Any Files(*.*)|*.*|Access(*.mdb)|*.mdb';
OpenDialog1.FilterIndex:=2; //序数从1开始
if OpenDialog1.Execute then
begin
Conn:=TADOConnection.Create(nil);
try
Conn.CommandTimeout:=0; //执行命令期间需等待的时间
Conn.Provider:='Microsoft.Jet.OleDB.4.0';
Conn.LoginPrompt:=False;
Conn.ConnectionString:='Provider=Microsoft.Jet.OleDB.4.0;'+
'PassWord=;'+
'Persist Security Info=False;'+ //ADO在连接成功后是否保存密码信息
'Data Source='+OpenDialog1.FileName;
List:=TStringList.Create;
Conn.GetTableNames(List,False);
if List.IndexOf('dhb')>-1 then Conn.Execute('Drop Table dhb');
List.Free;
cSql:='Select * into dhb from khzl In'+SysUtils.QuotedStr('f:\mcmygs.mdb')+' order by id';
Conn.Execute(cSql);
finally
Conn.Free;
end;
end;
end;