从 vb6 在 DBF 中分配索引

Question

我有一个 "users.dbf" table 和 "users.cdx" 索引文件，它是免费的 table，所以没有 dbc 文件。两者都位于同一个文件夹中。有时当我在 users.dbf 中添加一个新行时，users.cdx 没有更新，dbf 和 cdx 之间的 link 被破坏了。此 table 属于第三方应用。为了解决这个问题，我使用了来自 foxpro table 查看器的 de 命令 "USE ..\myfolder\users.dbf INDEX ..\myfolder\users.cdx" 并且索引文件再次被 linked。有什么方法可以从 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 来做这些事情。

从 vb6 在 DBF 中分配索引

asigning INDEX in DBF from vb6

vb6

foxpro

dbf