社区
Delphi
帖子详情
用delphi怎么创建一个access数据库
luzhongjia1
2004-05-08 11:26:39
用delphi怎么创建一个access数据库DB,并在创建后用ADOConnection连接,完毕用
ADOQuery建立table1和table2表.
...全文
176
6
打赏
收藏
用delphi怎么创建一个access数据库
用delphi怎么创建一个access数据库DB,并在创建后用ADOConnection连接,完毕用 ADOQuery建立table1和table2表.
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
飞天揽月
2004-07-06
打赏
举报
回复
自己看一下
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
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;
//=============================================================================
// Procedure: ChangeDatabasePassword
// Author : ysai
// Date : 2003-01-27
// Arguments: AFileName,AOldPassWord,ANewPassWord:string
// Result : boolean
//=============================================================================
function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean;
//修改ACCESS数据库密码
var
STempFileName:string;
vJE:OleVariant;
begin
STempFileName:=GetTempPathFileName;
try
vJE:=CreateOleObject('JRO.JetEngine');
vJE.CompactDatabase(format(SConnectionString,[AFileName,AOldPassWord]),
format(SConnectionString,[STempFileName,ANewPassWord]));
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);
except
result:=false;
end;
end;
飞天揽月
2004-07-06
打赏
举报
回复
程序创建access数据库
111111111建库:
//创建ACCESS2000数据库
function CreateAssess2000Database(const DatabaseName : string) : Boolean;
var
Cat:OleVariant;
begin
Cat:=CreateOleObject('ADOX.Catalog');
Cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DatabaseName);
end;
飞天揽月
2004-07-06
打赏
举报
回复
ding
CoolApp
2004-07-05
打赏
举报
回复
同样需要
Frank.WU
2004-06-16
打赏
举报
回复
幫助頂出去:)
luzhongjia1
2004-05-08
打赏
举报
回复
是动态连接的,不是用ODBC连接.
也就是保存到动态的一个路径,并且要连接.
delphi
下动态创建
Access
数据库
在
Delphi
6.0环境下,动态创建
Access
数据库
的例子,并能将数据表导出到sql
数据库
中。包含全部文件。
使用
delphi
连接加密的
access
数据库
使用
delphi
连接加密的
access
数据库
Delphi
修复或压缩
Access
数据库
.rar
Delphi
修复或压缩
Access
数据库
,对
Access
进行数据压缩,减少体积,并对常规错误进行修复。运行程序时请注意:要关闭所有正在运行的程序。
delphi
压缩修复
access
数据库
delphi
操作
access
2007|2003数据,实现创建、压缩、修复、修改密码! 如果提示连接错误或您没有安装Microsoft.ACE.OLEDB.12.0,请自行去微软下载安装
数据库
引擎!
Delphi
7 创建
Access
数据库
源代码
d7创建
数据库
.zip
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章