delphi 数据库之不用数据源 以access为例(其他未试过)

在我做好学生管理系统时，发现要使用本软件必须配置数据库的数据源。于是我就想弄个脱离数据源的版本。构造思想：在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” 博客，服务器空间，请务必保留此出处

，香港服务器