Delphi中数据库连接

发布网友发布时间：2022-10-09 10:11

共3个回答

热心网友时间：2023-11-24 01:33

假设你的数据库名字为“我的数据库.mdb”，你可以在form的OnCreat事件写代码

procere TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'我的数据库.mdb;Persist Security Info=False';
end;

这样系统就能自动连接可执行文件所在文件夹下的数据库文件了

热心网友时间：2023-11-24 01:34

var
ini: TIniFile;
strPath: string;
begin
strPath := ExtractFilePath(Application.ExeName);

strPath就是exe所在路径，比如你的exe放在C盘根目录下，那strPath就是“C:\”

热心网友时间：2023-11-24 01:34

procere TF_DM.DataMoleCreate(Sender: TObject);
var
zp : string;
begin
zp := ExtractFilePath(Application.ExeName)+'data\BHGL.mdb';
con1.Connected := False;
con1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='+zp+';Persist Security Info=True';
con1.Connected := True;
end;
我这个是把数据库放在根目录的一个data文件夹里，数据库名称为BHGL.mdb，自己看看