用ADO连接数据库

Question

设置ConnectionString然后Active := True

Answer 1

用ADOCONNECTION的CONNECTIONSTRING属性，有向导的

Answer 2

Provider=Microsoft.Jet.OLEDB.4.0;Password=a;Data Source=D:\database\database.mdb;Persist Security Info=True

Answer 3

ADOConnection1.Close;
      ADOConnection1.Connected:=false;
      ADOConnection1.ConnectionString:='';
      str:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=';
      AppPath:=ExtractFileDir(Application.ExeName);
      str:=str+AppPath+'\bsdata\'+Node.Text;
      ADOConnection1.ConnectionString:=str+'.mdb;Mode=Share Deny None;'+'Extended Properties="";Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";'+'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;'+'Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;'+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+'Jet OLEDB:Create System Database=False;'+'Jet OLEDB:Encrypt Database=False;'+'Jet OLEDB:Don''t Copy Locale on Compact=False;'+'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
      ADOConnection1.Connected:=true;
      ADOConnection1.Open;

Answer 4

with dmDataBaseModule do
  begin
    adocZT.Close;
    adocZT.DefaultDatabase :='master';
    adocZT.ConnectionString:='PROVIDER=SQLOLEDB.1;'+
             'Persist Security Info=False;'+
             'Initial Catalog=master;'+
             'Data Source='+vMacName;
    adocZT.Open(edtUser.Text,edtPassword.text);
    if not adocZT.Connected then
    begin
      frmMsgError1:=TfrmMsgError1.create(self);
      frmMsgError1.vFlg:=false;
      frmMsgError1.s:='数据库连接失败!';
      frmMsgError1.ShowModal;
      frmMsgError1.Free;      exit;
    end;
  end;