没有合适的资源?快使用搜索试试~ 我知道了~
DELPHI中操作ACCESS数据库.pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 110 浏览量
2021-10-02
11:26:42
上传
评论
收藏 14KB PDF 举报
温馨提示
试读
12页
DELPHI中操作ACCESS数据库.pdf
资源推荐
资源详情
资源评论
DELPHI中操作 ACCESS数据库
1.DELPHI中操作 ACCESS数据库 ( 建立 .mdb 文件, 压缩数据库 )
以下代码在 WIN2K,D6,MDAC2.6下测试通过 ,
编译好的程序在 WIN98第二版无 ACCESS环境下运行成功 .
// 在之前 uses ComObj,ActiveX
// 声明连接字符串
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(PChar(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
剩余11页未读,继续阅读
资源评论
资料大全
- 粉丝: 14
- 资源: 26万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功