求输出DBF的代码

Question

学了3个多月了，现在才知道VB访问ACCESS和访问VF完全不一样，也完全不懂，请各位赐教，给一段代码实现一下功能
1.连接VF数据表（DBF，数据库下的任意表）
2.在ListView或DataGrid空间中输出表的内容
3.导出数据表为XLS
先谢谢各位！对我来说，这是个高难问题了，请各位指教。谢谢！结贴后再另开一贴加分。

Answer 1

其实DBF根本没有什么数据库的概念,它就是一个文件一个表.
你可以用DATA控件去连接DBF,然后在GRID中显示出来.
也可以用ADODC控件连接,再绑定到datagrid上显示和编辑,这个是最方便的
导出为XLS需要手工写代码,你参考一下网络上输出XLS的代码,很多很多也不难

Answer 2

连接DBF代码
    connStr2 = "Provider=MSDASQL.1;" & _
              "Driver=Microsoft Visual FoxPro Driver;" & _
              "SourceDB=" & App.Path & "\;" & _
              "Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF"                If rs6.State = adStateOpen Then
                    rs6.Close
                End If
                conn2.Open connStr2
                rs6.CursorLocation = adUseClient
                s_sql = "select * from onedbf order by id"    'onedbf 为DBF文件名
                rs6.Open s_sql, conn2, adOpenDynamic, adLockOptimistic

Answer 3

你用ADODC控件去生成连接字符串