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

php中文网
发布: 2016-06-07 17:42:00
原创
1272人浏览过

在我做好学生管理系统时,发现要使用本软件必须配置数据库的数据源。于是我就想弄个脱离数据源的版本。构造思想:在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 +';';

步骤:

一:有这么一个界面

文心大模型
文心大模型

百度飞桨-文心大模型 ERNIE 3.0 文本理解与创作

文心大模型 168
查看详情 文心大模型

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

二、 先修改con1的属性

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


修改adoquery的属性

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

   在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” 博客,服务器空间,请务必保留此出处

,香港服务器
最佳 Windows 性能的顶级免费优化软件
最佳 Windows 性能的顶级免费优化软件

每个人都需要一台速度更快、更稳定的 PC。随着时间的推移,垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是,许多工具可以让 Windows 保持平稳运行。

下载
来源:php中文网
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
最新问题
开源免费商场系统广告
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责申明 举报中心 意见反馈 讲师合作 广告合作 最新更新
php中文网:公益在线php培训,帮助PHP学习者快速成长!
关注服务号 技术交流群
PHP中文网订阅号
每天精选资源文章推送

Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号