|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
function
CreateAccessFile(FileName:
string
; PassWord:
string
=
''
):
boolean
;
const
SConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=%s;'
;
var
vCatalog: OleVariant;
begin
try
vCatalog := CreateOleObject(
'ADOX.Catalog'
);
vCatalog
.
Create(format(SConnectionString, [FileName, PassWord]));
Result :=
True
;
except
Result :=
False
;
end
;
end
;
|
动态创建Access数据库文件
最新推荐文章于 2022-01-19 16:12:44 发布
本文介绍了一个使用 Delphi 创建 Access 数据库的方法。通过 ADOX 提供的 Catalog 对象，可以实现对 Access 数据库的创建，并支持设置密码保护。示例代码展示了如何利用 OleObjects 和 ADOX 的 Catalog 对象来完成这一过程。
扫一扫
1975
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
