社区
数据库相关
帖子详情
如何动态建立access数据库和数据表?
cgk
2004-05-10 08:39:52
如果程序启动的时候检测不到必要的数据库,就自动建立一个,代码应该怎样写??
...全文
47
1
打赏
收藏
如何动态建立access数据库和数据表?
如果程序启动的时候检测不到必要的数据库,就自动建立一个,代码应该怎样写??
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hongama
2004-05-11
打赏
举报
回复
楼主给的分有点少了,所以没人回答吧。……——……
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;
数据库
原理(第5版)
“
Access
工作台”部分在第1章中介绍了如何创建
数据库
和单个表,逐渐转移到不同主题,到最后第7章介绍相对于Microsoft
Access
数据库
的Web
数据库
处理,和第8章介绍使用Microsoft
Access
和Microsoft Excel生成Pivot...
Access
数据库
有什么用?该
数据库
有什么功能?
Access
是Microsoft 365套件工具随附的强大生产力工具,该工具允许用户创建以有组织的结构存储信息的...对于那些想寻找一个简单的
数据库
管理系统的用户来说,微软旗下的
Access
数据库
也许是可以让其眼前一亮的工具。
从
Access
数据库
零基础入门到中文编程第1部
本课程章节计划表: 第一章:
Access
数据库
概述 1、
Access
数据库
概述 第二章:
Access
数据库
安装文件下载及安装 1、
Access
数据库
安装文件下载及安装 第三章:创建
数据库
表 1、 利用表向导创建表 2、 利用表设计器创建...
数据库
实验3 创建
Access
数据库
、表和修改
数据表
掌握
Access
中
数据表
的设计和创建和表的完整性约束 (3).掌握
Access
中查询设计和创建 实验内容和步骤: 1.使用
Access
创建和打开
数据库
。 2.使用企
Access
中
数据表
的设计器设计并创建表, 对表添加主键, 对表添加用户...
c#创建
access
数据库
和
数据表
c#创建
access
数据库
和
数据表
数据库相关
2,497
社区成员
88,445
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章