在我做好学生管理系统时，发现要使用本软件必须配置数据库的数据源。于是我就想弄个脱离数据源的版本。构造思想：在con1的connectionstring有链接数据库文件作为
provider=microsoft.jet.oledb.4.0（access数据引擎）)，网站空间，而data source写为绝对路径。
技术关键：
   1.获得程序所在目录，构造绝对路径：
sdbpath = extractfilepath(application.exename)+'dataname.mdb'；
   2.con1.connectionstring := 'provider=microsoft.jet.oledb.4.0;data source=' + sdbpath +';';
步骤：
一：有这么一个界面
二、 先修改con1的属性
修改adoquery的属性
在form2添加onactivate事件（窗口激活事件）代码如下，  
procedure tform2.formactivate(sender: tobject); var sdbpath : string;begin sdbpath := extractfilepath(application.exename) + 'students.mdb'; adoquery1.active := false; con1.connected := false; adoquery1.sql.clear; adoquery1.sql.add('select * from admins'); //这句看窗口刚刚建立是否要数据库而定要写不写。 //user id=admin;数据库有用户名的相应的加上 //填写connectionstring con1.connectionstring := 'provider=microsoft.jet.oledb.4.0;data source=' + sdbpath +';'; con1.connected := true; adoquery1.active := true;end;
这样就完成数据库脱离数据源的配置。
样例代码 ?shareid=187085761&uk=2065228996
本文出自 “lilin9105” 博客，服务器空间，请务必保留此出处
，香港服务器