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-04-10 10:38:42 发布