如何将一个access中的数据表导出为dBASE Ⅳ格式的dbf数据文件呢？

[iou33449999]

由于项目要求，需要将一个access数据表导出为dBASE Ⅳ格式的dbf数据文件，并下载下来，不知道该怎么作，请教一下！因为现在的系统是一个access格式的，需要将数据导出为上述格式的文件才能被老系统接受（老系统是全国通用的，比较老了，但是使用率很高，这个是没有办法的办法了……）

谢谢！

[yeetoo]

得使用别人的或自己开发COM组件来实现．

[蒋晟]

Use the File/SaveAs Export menu, or use an ODBC driver.

In Access 2000 MS had a licensing problem with the ODBC for dBase. They were only allowed to make it read-only. To get a read/write driver you had to go to Borland.

Field names in dBASE files can't be longer than (I think) 10 characters and can't contain spaces or special chcaracters. If you have two fields whose names only differ after the 10th character, you can expect the error message you've been getting. Work round it by creating a query that uses short, unique field names, and export that.

Filenames and paths must also be short. No more than 8 characters for the file name (plus the .dbf) or any folder name in the path, no spaces, and the whole path mustn't be more than 64 characters long. So export them to somewhere like
C:\dBase\Exports\Myfile.dbf
not
C:\Documents and Settings\Lori\........

[蒋晟]

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Northwind.mdb;"
cn.Execute "select * into [DBase IV;Database=D:\].Customer from Customers"
cn.Close
Set cn = Nothing

[iou33449999]

<%
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
dbpath=Server.MapPath("down.mdb")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &dbpath
cn.Execute "select * into [DBase IV;Database=F:\dbf\].Customer from doctor"
cn.Close
Set cn = Nothing
%>

运行提示

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/xueweiokokok/dbf.asp，行 2

Dim cn As ADODB.Connection
-------^

[aner]

帮忙顶

[竹林听雨2005]

这句没错呀

[iou33449999]

继续顶^_^

[iou33449999]

是呀，挺郁闷的……不知道怎么办了：（

[iou33449999]

继续顶

[iou33449999]

jiangsheng(蒋晟.Net[MVP]) 快来8858

[iou33449999]

继续顶，谢谢大家关注。