ADO怎么样动态连接数据库？(急)

Question

ADOConnection.ConnectionString := 'FILE NAME=c:\datafile.dsn';
ADOConnection.Open;if ADOConnection.Connected = False then
   Begin
      ADOConnection.ConnectionString := 'FILE NAME='+ Edit1.Text
      ADOConnection.Open;
   End

Answer 1

try
    ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'xxx.mdb;Persist Security Info=False';
    ADOConnection1.Open;
    if (not ADOConnection1.Connected) then showmessage('数据库连接失败，请手动连接！');
  finally
    ADOConnection1.Close;
  end;

Answer 2

同意阿黑的,采用原生ado即可!

Answer 3

对adoconnection写连接串就可以了

Answer 4

两种情况：
 1 用.udl文件的
 try
   ADOConnection.ConnectionString := 'FILE NAME=c:\datalink.udl'; 
   ADOConnection.connected:=True;
 except
   showmessage('There is an Error in Connecting To DataBase ');
 end; 
2 不用.udl文件，直接用connectionstring的
  try adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'xxx.mdb;Persist Security Info=False';
adoconnection1.connected:=True;
  except
   showmessage('');
end;