急!请问如何在VB中生成本地Foxpro3.0或以下版本的DBF文件。

Question

参见VB中VisData
这个示例在MSDN\SAMPLES\VB98\visdata下

Answer 1

用DAO实现的代码：Dim DB As Database, TB As TableDef, FLD(n) As Field
Dim i As IntegerSet DB = DBEngine.OpenDatabase("数据库目录",False, False, "FoxPro 2.0")
Set TB = DB.CreateTableDef("数据库名")
Set FLD(0) = TB.CreateField("字段1", dbText)
Set FLD(1) = TB.CreateField("字段2", dbInteger)
...
Set FLD(n) = TB.CreateField("字段n+1", dbText)
For i = 0 To n
TB.Fields.Append FLD(i)
Next
DB.TableDefs.Append TB
DB.Close
Set TB = Nothing
Set DB = Nothing