delphi 中操作access数据库的几个函数。

最新推荐文章于 2023-08-17 18:24:09 发布

jl820712

最新推荐文章于 2023-08-17 18:24:09 发布

阅读量1.7k

点赞数

文章标签：数据库 access delphi string query function

本文链接：https://blog.youkuaiyun.com/jl820712/article/details/652426

版权

本文提供了一系列在Delphi中操作Access数据库的函数，包括创建数据库、压缩修复、执行SQL、检查表和视图存在、删除表和视图、创建视图、数据导入导出等功能。这些函数方便了在Delphi中进行数据库操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit U_AccessFun;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ADODB, DB, ComObj, ActiveX;

const
con_LocalDBFile = 'ptdb.mdb';
con_LocalDBPSW   = 'Lmi';
con_ConnectionString =
      'Provider=Microsoft.Jet.OLEDB.4.0;'+
      'Data Source=%s;'+
      'Jet OLEDB:Database Password=%s;';

//取得临时文件名
function GetTempPathFileName():string;

//建立Access文件，如果文件存在则失败
function Create_Access_File(FileName:String; PassWord:string = ''):Boolean;

//压缩与修复数据库,覆盖源文件
function CompactDataBase(AFileName, APassWord:string): Boolean;

//执行SQL语句
function EXEC_SQL(Query: TADOQuery; sSQLText: string): Boolean;

function OPEN_SQL(Query: TADOQuery; sSQLText: string): Boolean;

//是否存在表
function ExistsUserTable(Query: TADOQuery; sTableName: string): Boolean;

//删除表
function DropTable(Query: TADOQuery; sTableName: string): Boolean;

//重命名表: 将 sOldName 改为 sNewName
function RenameTable(Query: TADOQuery; sOldName, sNewName: string): Boolean;

//是否存在视图
function ExistsUserView(Query: TADOQuery; sViewName: string): Boolean;

//删除视图
function DropView(Query: TADOQuery; sViewName: string): Boolean;

//创建远程SQL数据库的视图
function CreateView(Query: TADOQuery;
                      sLocalViewName : string;//本地视图名
                      sServerTableName: string;//远程表名
                      sDataSource     : string;//远程数据源地址
                      sDataBase       : string;//远程数据库名
                      sUserName       : string;//远程数据库登录名
                      sPassWord       : str

最低0.47元/天解锁文章