从DBF到MDB?

[hztgames]

我从dbf文件中复制所有记录到MDB表中

Dim cnACC As New ADODB.Connection
Dim strSQL As String
Dim strDBF As String
Dim strMDB As String
Dim DBFTable As String
Dim MDBTable As String

strDBF =App.Path
DBFTable ="data.dbf"
strMDB =App.Path & "\Source.mdb"
MDBTable ="data"

With cnACC
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = strMDB
.Mode = adModeReadWrite
.Open
End With
strSQL = "SELECT * INTO " & MDBTable & " FROM [dBASE III;DATABASE=" & strDBF & "]." & DBFTable
cnACC.Execute strSQL '运行到这里的时候提示“不能定位所需的Xbase备文件”,什么原因呢？
cnACC.Close

[yoki]

dBASE III;改成dBASE 5.0;
Dao引用3.5，别用3.6

[yoki]

dBASE III;改成dBASE 5.0;
Dao引用3.51，别用3.6

[yoki]

不好意思，看错了，我以为你用的DAO呢，抱歉抱歉
dBASE III;改成dBASE 5.0;或其他的看成吗？

[hztgames]

dBASE III;改成dBASE 5.0;还是不行也

[yoki]

下面我已將程序代码做成模块，只要导入必要之参数即可！

此一模块共有四个参数:
1、sDbfName：要导出的文件名称 ，例如 a.dbf
2、sDbasePath：要导出资料的路径名称，例如 C:\
3、sAccessTable：要导入的 Access Table 名称，例如 TestTable
4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb

引用DAO 3.51
在声明中加入以下:

Private Sub ExportDbfToAccess(sDbfName As String, _
sDbfPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Set db = OpenDatabase(sdBasePath, True, False, "dBase 5.0")
db.Execute ("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sDbfName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub

使用范例如下：將 C:\a.dbf 导入 C:\Test.mdb 成为 TestTable

ExportExcelSheetToAccess "a.dbf", "C:\", "TestTable", "C:\Test.mdb"

[hztgames]

楼上！这句有点问题也
db.Execute ("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sDbfName & "$]")
提示“查询输入必须包含至少一个表或查询”

[boydgmx]

“不能定位所需的Xbase备注文件”，可能是DBF数据表中有备注字段，而其备注文件被误删除了，或者在移动的时候没有和DBF文件一并移动，从而找不到备注。
找之！！

[hztgames]

但是我用Mirosoft Excel又可以打得开