自动连接ODBC(数据库)(0分)

  • 主题发起人 小苹果
  • 开始时间

小苹果

Unregistered / Unconfirmed
GUEST, unregistred user!
大家好,我现在有这样的问题,假设我的数据数据库文件是"aa.mdb"放置的路径是"C:/Program Files/ai/data/aa.mdb",,,,,,
设置的数据库别名是"bb",
我怎么才能让程序自动找到数据库而连接上去呢,也就是说不要手动去配置ODBC ...
请给出代码好吗!

我现在没分了请兄弟们多多包涵......[:)]
 
动态配置路径:
procedure TdmDB.DataModuleCreate(Sender: TObject);
var cdir:string ;
begin
cdir:=C:/Program Files/ai/data/aa.mdb';
ADOConnectionUser.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+cdir+';Persist Security Info=false';
end;
 
补充一下:

动态配置路径:
procedure TdmDB.DataModuleCreate(Sender: TObject);
var cdir:string ;
begin
cdir:=ExtractFilePath(paramstr(0))+'data/aa.mdb';//C:/Program Files/ai 为你的程序文件所在目录.
ADOConnectionUser.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+cdir+';Persist Security Info=false';
end;
 
kingdeezj, 兄。。
谢谢。。我等下就去用一下。
肖宏
 
顶部