问了两次都没有答案，偏不信邪。

Question

不太了解foxbase。只能帮你up一下。：）

Answer 1

为什么不用别的数据库呢？FOXBASE 太不好用了

Answer 2

我做报盘，必须要用foxbase数据库，以前我也没有用过，只好请教高手了。
只要生成后缀为dbf的表就可以了。

Answer 3

如果谁可以解决，可以顺便到
http://www.csdn.net/expert/topic/494/494209.shtm
领分，至少100

Answer 4

Dim dat As Database
Dim r As New ADODB.Recordset
Set dat = OpenDatabase(App.Path & "\", False, False, "FoxPro 2.5")' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
'CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "FoxPro 2.5 Files (*.dbf)|*.dbf"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
On Error GoTo 0
    dat.Execute "delete from pztemp"
    ListView1.Refresh
     For i = 1 To ListView1.ListItems.Count
        SQL = "insert into Pztemp("
        SQL = SQL & "pzbh,kmdm,rq,zyxx,jd,lc,je)  "
        SQL = SQL & "values('"
        SQL = SQL & Trim(ListView1.ListItems(i).Text) & "','"
        SQL = SQL & Trim(ListView1.ListItems(i).SubItems(1)) & "','"
        SQL = SQL & Format(Trim(ListView1.ListItems(i).SubItems(2)), "yyyy-MM-dd") & "','"
        SQL = SQL & Trim(ListView1.ListItems(i).SubItems(3)) & "','"
        SQL = SQL & Trim(ListView1.ListItems(i).SubItems(4)) & "',"
        If Not Trim(ListView1.ListItems(i).SubItems(5)) = "" Then
           r.Open "select dm from lc_set where lc='" & ListView1.ListItems(i).SubItems(5) & "' and  jd='" & Trim(ListView1.ListItems(i).SubItems(4)) & "'", Cn
            SQL = SQL & r!dm & ","
           r.Close
        Else
            SQL = SQL & "0,"
        
        End If
            
            
            SQL = SQL & ListView1.ListItems(i).SubItems(6) & ")"
          dat.Execute SQL
       next

Answer 5

VB把foxbase所在目录作为数据库,把foxbase数据库作为表

Answer 6

那就加个dat.Execute  "create table ......"不就是少写一个建表的吗？//以上代码是输出到军队财务软件的会计凭证的数据接口

Answer 7

参考FoxPro的代码
       Dim FoxFreeDB As Database
       Dim FoxFreeRS As Recordset
       Set FoxFreeDB = Workspaces(0).OpenDatabase("C:\VFP", False, _
                       False, "FoxPro 3.0;")
       Set FoxFreeRS = FoxFreeDB.OpenRecordset("Foxuser")
       Set Data1.Recordset = FoxFreeRSC:\VFP是目录,Foxuser是表

Answer 8

多谢呆瓜和泰山的帮忙。
问呆瓜：如果我建立foxbase表，在你程序的以下两个地方应该怎么写。
Set dat = OpenDatabase(App.Path & "\", False, False, "FoxPro 2.5")
CommonDialog1.Filter = "FoxPro 2.5 Files (*.dbf)¦*.dbf"

Answer 9

因为是DA0 我记de 可以用
Set tabledef = database.CreateTableDef (name, attributes, source, connect)具体不太用的， 不是很熟悉，  你也可以用SQL语句来建表呀