delphi中如何动态的连接access数据库

Question

delphi中如何动态的连接access数据库，即access数据库可以放在本机的任意位置，都可以连接，如何用wise制作安装程序，要求客户端不必装access，详细点？

Answer 1

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
ADOQuery1.Close;
ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OlEDB.4.0;Data Source='+
ExtractFilePath(ParamStr(0))+'\States.mdb;User ID=admin;Password=;Persist security Info=False';//修改这里,读取数据库路径
ADOConnection1.LoginPrompt:=False;
ADOQuery1.Connection:=ADOConnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from table');
ADOConnection1.Connected:=True;
ADOQuery1.Open;
end;

Answer 2

wise我没有用过,抱歉,我用肥猫和installshield

Answer 3

对 rouqing(*冰雨&双子座奇缘*)朋友的回答有疑问
楼主要的是动态读取access的路径

Answer 4

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OlEDB.4.0;Data Source='+
ExtractFilePath(ParamStr(0))+'\States.mdb;User ID=admin;Password=;Persist security Info=False';//修改这里,读取数据库路径
ADOConnection1.LoginPrompt:=False;
就可以了！~~

Answer 5

用PROMPTDATASOURCE　运行时动态设定不行吗
设定完之后，再存到注册表中，
程序运行时，注册　表中无路径　或路径不对，则弹出设置，

Answer 6

编译好程序 后，把数据库文件 放在和编译执行文件一个目录就好了
或者新建一udl文件，指向数据库文件就好了或者用一楼或三楼大方法都可以

Answer 7

adotable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
      ExtractFilePath(Application.ExeName)+'\resource\Data\TuZhiGuan.mdb;Persist Security Info=False';
  adotable1.TableName:='users';
  adotable1.Open;
其中Application.ExeName指的是你所生成的可执行文件存放的位置，把所有资源放到一个目录中这样便于打包。