如何用ADO组件动态连接access数据库？

Question

如何用ADO组件动态连接access数据库，代码怎样实现？

Answer 1

what u want ?
u can dynamic create Connectionstring to Connection Any DataBase.if u want to connect access,u must dynamic config provider,Datasource,user and password.
Provider=Jet4
datasource=Data File

Answer 2

用adoquery-->>connectionstring 点击build 用jet 4.0 连接access 后出现的代码，你可以根据这些代码去动态改变

Answer 3

query.connectionstring:='driver={microsoft access driver(*.mdb);uid=;pwd=;dbq= '+数据库名与路径;

Answer 4

with AdoConnection1 do
begin
  connectionstring :='Provider=Microsoft.Jet.OLEDB.4.0;Data     
              Source='+数据库名称+'; Persist Security  Info=False;
              Jet OLEDB:Database Password=密码';
end;

Answer 5

Erice(白雪公猪)写得没错，其实你用向导连一下CP出来不就看到了

Answer 6

用的是ADO，连接字符串和ASP中的使用方法是一样的，

Answer 7

把adoquery的connectionstring在代码里进行实现，代码和属性里直接连接的代码一样的，你复制一下就行了。

Answer 8

var
  ConnStr,DBPath:String;
try
  DBPath:='你的数据库数径全的';
  ConnStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data 
              Source='+数据库名称+'; Persist Security  Info=False;
              Jet OLEDB:Database Password=密码';
  ADOConnection1.ConnectionString:=ConnStr;
  ADOConnection1.Open;
Except
  ShowMessage('数据库打开失败');
end;

Answer 9

很简单，调用一个API即可
例：
  with ADOQuery1 do
  begin
    ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath  (Application.ExeName) + 'db1.mdb;Pe' +
      'rsist Security Info=False';
  end;

Answer 10

with AdoConnection1 do
begin
  connectionstring :='Provider=Microsoft.Jet.OLEDB.4.0;Data     
              Source='+你的数据库名成+'; Persist Security  Info=False;
              Jet OLEDB:Database Password=  ********';
  actice := true ;
  {
   try 
   except
   end;...............
   }
end;