Question

我目前使用VB6 CompactDatabase方法压缩.mdb（Access DB）文件并搜索了高低，以便使用VB6重新应用原始数据库的共享权限。

CompactDatabase代码：

Set jro = CreateObject("jro.JetEngine")
If IsObject(jro) Then

    jro.CompactDatabase _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sourcePath & _
            ";Jet OLEDB:Database Password=" & DBPassword, _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tmpPath & _
            ";Jet OLEDB:Database Password=" & DBPassword & _
            ";Jet OLEDB:Encrypt Database=True;Jet OLEDB:Engine Type=5;"
Else
    compactDB = "Compact Failed: MDAC not installed correctly - missing JRO.JETENGINE"
End If

这是对新数据库的压缩，序列是删除原始数据并重命名为旧数据。

问题在于新文件没有原始共享权限，目前设置为'Everyone'并且具有'完全控制权'。我找到了如何设置文件夹权限但不直接设置文件的代码。

任何帮助都将不胜感激。

Answer 1

对于任何有兴趣的人，我都找到了解决方案。

原始代码;通过使用临时路径“C：\ temp”创建新的“.mdb”，然后将其复制到我的Program Files目录;我实际上继承了“temp”文件夹的权限。

我将Temp文件名更改为与当前数据库位于同一目录中，当进程完成时，.mdb具有与Old.mdb一样的完全权限。干杯

在网络上重新共享文件

1 个答案: