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

简介:

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

构造思想:

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

步骤:

一:有这么一个界面

二、 先修改con1的属性


修改adoquery的属性

   在form2添加onActivate事件(窗口激活事件)代码如下,  

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 ;


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



本文转自lilin9105 51CTO博客,原文链接:http://blog.51cto.com/7071976/1220029,如需转载请自行联系原作者

相关文章
|
6月前
|
数据库 数据安全/隐私保护
winform通过ListView绑定数据库数据源
winform通过ListView绑定数据库数据源
winform通过ListView绑定数据库数据源
|
数据库
如何在web.config文件中配置连接Access数据库?
如何在web.config文件中配置连接Access数据库?
92 0
|
4月前
|
存储 JSON Cloud Native
数据库ADB-PG问题之数据源处理如何解决
数据库ADB-PG问题之数据源处理如何解决
|
4月前
|
SQL 关系型数据库 MySQL
云服务器 ECS产品使用问题之出现“1044 - Access denied for user ‘root‘@‘%‘ to database ‘数据库名称‘”这样的错误,该怎么办
云服务器ECS(Elastic Compute Service)是各大云服务商阿里云提供的一种基础云计算服务,它允许用户租用云端计算资源来部署和运行各种应用程序。以下是一个关于如何使用ECS产品的综合指南。
|
4月前
|
SQL DataWorks 关系型数据库
DataWorks产品使用合集之数据集成时源头提供数据库自定义函数调用返回数据,数据源端是否可以写自定义SQL实现
DataWorks作为一站式的数据开发与治理平台,提供了从数据采集、清洗、开发、调度、服务化、质量监控到安全管理的全套解决方案,帮助企业构建高效、规范、安全的大数据处理体系。以下是对DataWorks产品使用合集的概述,涵盖数据处理的各个环节。
|
5月前
|
SQL druid Java
传统后端SQL数据层替代解决方案: 内置数据源+JdbcTemplate+H2数据库 详解
传统后端SQL数据层替代解决方案: 内置数据源+JdbcTemplate+H2数据库 详解
62 1
|
5月前
|
DataWorks API 调度
DataWorks产品使用合集之在调度配置配置了节点的上游节点输出,没办法自动生成这个flow的依赖,该怎么操作
DataWorks作为一站式的数据开发与治理平台,提供了从数据采集、清洗、开发、调度、服务化、质量监控到安全管理的全套解决方案,帮助企业构建高效、规范、安全的大数据处理体系。以下是对DataWorks产品使用合集的概述,涵盖数据处理的各个环节。
|
5月前
|
DataWorks 安全 关系型数据库
DataWorks产品使用合集之建了 polar 与clickhouse的数据源。为什么数据库这里总是mysql呢
DataWorks作为一站式的数据开发与治理平台,提供了从数据采集、清洗、开发、调度、服务化、质量监控到安全管理的全套解决方案,帮助企业构建高效、规范、安全的大数据处理体系。以下是对DataWorks产品使用合集的概述,涵盖数据处理的各个环节。
|
6月前
|
SQL XML 存储
Microsoft Access 是微软公司开发的关系型数据库管理系统(
【5月更文挑战第14天】Microsoft Access 是微软公司开发的关系型数据库管理系统(
81 1
|
6月前
|
存储 关系型数据库 MySQL
【mybatis-plus】Springboot+AOP+自定义注解实现多数据源操作(数据源信息存在数据库)
【mybatis-plus】Springboot+AOP+自定义注解实现多数据源操作(数据源信息存在数据库)
下一篇
无影云桌面