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

在我做好学生管理系统时，发现要使用本软件必须配置 数据 库 的 数据 源。于是我就想弄个 脱离 数据 源的版本。 构造思想： 650) this.width=650;" src="http://cdn.verydemo.com/upload/2013_06_17/13714209463650.jpg" title="datafile.jpg" /> 在con1的 c

在我做好学生管理系统时，发现要使用本软件必须配置 数据 库 的 数据 源。于是我就想弄个 脱离 数据 源的版本。

构造思想：

650) this.width=650;" src="http://cdn.verydemo.com/upload/2013_06_17/13714209463650.jpg" title="datafile.jpg" />

在con1的 connectionstring有链接 数据 库 文件 作为 数据 源的 做法 ，那么我们可以用 数据 库 文件配置 数据 源。

于是百度了一下 Data Source = 数据 源路径 。而student 数据 源在注册表中注册过，student 数据 源名称等价于路径。

思路：

第一步：马上想到要获得 数据 库 所在的绝对路径。

第二步：代码编写ConnectionString，Provider要写完整 数据 提供者 的驱动名称(如

 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 +';';

步骤：

一：有这么一个界面

650) this.width=650;" src="http://cdn.verydemo.com/upload/2013_06_17/13714209463651.jpg" title="form.jpg" />

二、 先修改con1的属性

650) this.width=650;" src="http://cdn.verydemo.com/upload/2013_06_17/13714209463652.jpg" title="connect.jpg" />

修改adoquery的属性

650) this.width=650;" src="http://cdn.verydemo.com/upload/2013_06_17/13714209463653.jpg" title="query.jpg" />

在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; 

这样就完成 数据 库 脱离 数据 源的配置。

样例代码 http://pan.baidu.com/share/link?shareid=187085761&uk=2065228996

lilin9105

查看更多关于delphi数据库之不用数据源以access为例(其他未试过)的详细内容...