从 vb6 在 DBF 中分配索引

Question

我有一个带有"users.cdx"索引文件的"users.dbf"表，它是一个空闲表，所以没有dbc文件。两者都位于同一文件夹中。有时当我在users.dbf中添加新行时，users.cdx没有更新，dbf和cdx之间的链接断开了。此表属于第三方应用。为了解决这个问题，我使用 de 命令"USE ..\我的文件夹\用户.dbf索引 ..\myfolder\users.cdx"，再次链接索引文件。有什么方法可以从 vb6 使用此命令吗？谢谢

Answer 1

一些从

旧演示中剪下来的代码：

CN.Open "Provider=VFPOLEDB.1;Data Source='" _
      & App.Path _
      & "';Mode=ReadWrite|Share Deny None;Deleted=True"
With CN
    .Execute "ExecScript('USE DemoTable EXCLUSIVE" & vbCr _
           & "INDEX ON CustNumber TAG CustIX" & vbCr _
           & "INDEX ON DELETED() TAG DELETED BINARY')", _
             , _
             adCmdText Or adExecuteNoRecords
    'Resume sharing:
    .Execute "ExecScript('USE DemoTable SHARED')", _
             , _
             adCmdText Or adExecuteNoRecords
End With

关键是您可以将ExecScript用于此类事情。