那位哥哥拉兄弟一把,adox问题!

Question

兄弟想用adox得到Vfp的dbf属性了,但怪事发生了,下面是我的代码
Dim cat As New ADOX.Catalog
dim FilePath as string '自由表所在文件夹
        cat.ActiveConnection = _
            "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;DBQ=" & FilePath
当我Debug.Print cat.Tables.Count时发现该文件夹中的很多表没有被找到，里面有7 、8个它Print的结果是 4 个
那位哥哥有经验帮忙分析一下。

Answer 1

Set cn = New ADODB.Connection
cn.Open "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" & App.Path & ";"