在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;
• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 在Delphi中的Access技巧集 相关文章：
• ·在Delphi中的Access技巧集
• 在Delphi中的Access技巧集 相关软件

上一篇:用Delphi实现动态获取版本信息

下一篇:利用Delphi实现远程屏幕抓取

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐