在DataModule里面编写它的DataModuleCreate 事件代码
procedure TDataModule2.DataModuleCreate(Sender: TObject);
var
path:string;
begin
path:=extractfilepath(paramstr(0));// 注意你的ACCESS数据库必须和你的程序放在同一个文件夹里面,此代码是获得执行文件的路径
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+'shujuku.mdb;Persist Security Info=true';
try
ADOConnection1.Open;
except
showmessage('CONNECTION ERROR.');
end;
end;
var
path:string;
begin
path:=extractfilepath(paramstr(0));// 注意你的ACCESS数据库必须和你的程序放在同一个文件夹里面,此代码是获得执行文件的路径
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+'shujuku.mdb;Persist Security Info=true';
try
ADOConnection1.Open;
except
showmessage('CONNECTION ERROR.');
end;
end;