ADOConnection-CommandTimeOut

{$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;