如何将查询结果存为dbf的文件?

[tough]

各位高手：
我在vb6.0中需要将ado.recordset保存为dbf格式的文件.我试过创建excel对象,将数据填入其中，再另存为.dbf的文件，但这样做会有数据丢失.各位有更好的方法吗?

[OLD_VB_FAN]

可以先建立一个ACCESS临时表，然后导出为DBF文件

[OLD_VB_FAN]

@_@

[OLD_VB_FAN]

在 Form 上放置一个 CommandButton，加入 Microsoft DAO 3.51 Object Library，使用mdb库中的临时表Temp，在 Command1_Click 中加入以下程序代码：

Dim db As Database
dim strSql as string
Set db = Workspaces(0).OpenDatabase(App.Path & "\Sample.mdb")

strSQL="SELECT * INTO [dBase III;DATABASE=MDB文件路径].[dbase文件名称] FROM [temp]
db.Execute strSQL
注意：
Temp.DBF 事先不可存在，否则会产生错误！

[Un1]

VB 源码 DBASE IV DBF 数据库引擎：

1：支持多种数据类型（Byte Array, Long String 甚至 IPicture 的数据库直接存储）
2：支持 Filter, 任意类似 SQL 语句查询。
3：无须任何其他 DLL 支持。
4：Binary 仅 64k 以内，Source 128k 以内。

http://www.banasoft.com/DownLoad/BNxBase.exe