var
propath:string;
begin
propath:=ExtractFilePath(Paramstr(0));;
adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+propath+'data\lxdata.mdb;Mode=ReadWrite;Persist Security Info=False';
adoconnection1.open;
end;
这个是最简单的，其中propath是得到程序所在目录，数据库是 lxdata.mdb 用的是access数据库
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024