各位高手,我有一个棘手的问题,望指教,在线等候!

Question

我想把一个已知的在foxbase的数据库h.dbf.加入到vb 的一个数据库中,作为一个表.请问怎么做才能实现.
Dim z As TableDefs
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & Text1.Text
Set db = OpenDatabase(dbname)
Set z = db.TableDefs
 For Each h In z
 If Left$(h.Name, 4) <> "MSys" Then
  t = h.Name
  End If
  Next
db.TableDefs.Append h
我利用这段程序怎么也加不进去呀!
希望朋友没给予指点

Answer 1

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 StringstrDBF =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

Answer 2

如果不是经常做这工作,就用Access吧,本身可以导入表.
否则,你执行SELECT * FROM dbf表

Answer 3

否则,你执行SELECT * FROM dbf表 INTO mdb表 也应该可以.
我十年前用Foxbase,现在很少掂.