DELPHI中操作ACCESS数据库_Access_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI中操作ACCESS数据库

作者：闵涛文章来源：闵涛的学习笔记点击数：668 更新时间：2009/4/22 21:22:54

DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库)

　　以下代码在WIN2K,D6,MDAC2.6下测试通过,

　　编译好的程序在WIN98第二版无ACCESS环境下运行成功.

　　//声明连接字符串

　　Const

　　SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'

　　 +'Jet OLEDB:Database Password=%s;';

　　

　　//=============================================================================

　　// Procedure: GetTempPathFileName

　　// Author : ysai

　　// Date : 2003-01-27

　　// Arguments: (None)

　　// Result : string

　　//=============================================================================

　　function GetTempPathFileName():string;

　　//取得临时文件名

　　var

　　SPath,Sfile&:array [0..254] of char;

　　begin

　　GetTempPath(254,SPath);

　　GetTempFileName(SPath,'~SM',0,SFile);

　　result:=SFile;

　　DeleteFile(result);

　　end;

　　

　　//=============================================================================

　　// Procedure: CreateAccessFile

　　// Author : ysai

　　// Date : 2003-01-27

　　// Arguments: FileName:String;PassWord:string=''

　　// Result : boolean

　　//=============================================================================

　　function CreateAccessFile(FileName:String;PassWord:string=''):boolean;

　　//建立Access文件，如果文件存在则失败

　　var

　　STempFileName:string;

　　vCatalog:OleVariant;

　　begin

　　STempFileName:=GetTempPathFileName;

　　try

　　 vCatalog:=CreateOleObject('ADOX.Catalog');

　　 vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));

　　 result:=CopyFile(PChar(STempFileName),PChar(FileName),True);

　　 DeleteFile(STempFileName);

　　except

　　 result:=false;

　　end;

　　end;

　　

　　//=============================================================================

　　// Procedure: CompactDatabase

　　// Author : ysai

　　// Date : 2003-01-27

　　// Arguments: AFileName,APassWord:string

　　// Result : boolean

　　//=============================================================================

　　function CompactDatabase(AFileName,APassWord:string):boolean;

　　//压缩与修复数据库,覆盖源文件

　　var

　　STempFileName:string;

　　vJE:OleVariant;

　　begin

　　STempFileName:=GetTempPathFileName;

　　try

　　 vJE:=CreateOleObject('JRO.JetEngine');

　　 vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),

　　 format(SConnectionString,[STempFileName,APassWord]));

　　 result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);

　　 DeleteFile(STempFileName);

　　except

　　 result:=false;

　　end;

　　end;

[电脑应用]用C＃动态创建Access数据库  [Web开发]asp 在线备份与恢复sqlserver数据库代码详解
[电脑应用]教你如何远程管理MSSQL数据库  [其他]手工升级ACCESS到SQLSERVER方法详解
[其他]关于数据库优化查询计划的方法总结  [Web开发]把ACCESS的数据导入到Mysql中的方法详解
[电脑应用]Linux数据库大比拚  [JAVA开发]Java连接各种数据库的实例
[聊天工具]QQ IP数据库Build 0825 纯真版__天极Yesky  [系统软件]利用crontab系统每天定时备份MySQL数据库

教程录入：mintao 责任编辑：mintao

上一篇教程： ACCESS的数据库安全问题解答

下一篇教程：如何制作CHM帮助文件及使用？

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Sql Server  · MySql
· Access  · ORACLE
· SyBase  · 其他

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……