用代码建立DBF数据库，怎么实现？

Question

用代码建立DBF数据库，怎么实现？DBASE 5的数据库，怎么建立

Answer 1

Private Sub Creat(MyPath As String, Name As String)
    Dim MyTable As TableDef, MyField As Field
    Dim MyDatabase As Database
    'Dim MyPath As String
    'Dim Name As String
   ' MyPath = "d:\data"
   'Name = "Rs200112.dbf"    Set MyDatabase = OpenDatabase(MyPath, False, False, "dBase 5.0;")
'    If Dir(MyPath & "\" & Name) <> "" Then
'        FileCopy MyPath & "\" & Name, MyPath & "\" & "Tmp.dbf"
'        Kill MyPath & "\" & Name
'    End If    Set tdfNew = MyDatabase.CreateTableDef(Name)
    tdfNew.Fields.Append tdfNew.CreateField("ZGBH", dbText, 10)
    tdfNew.Fields.Append tdfNew.CreateField("BMNO", dbText, 10)
    tdfNew.Fields.Append tdfNew.CreateField("SKRQ", dbText, 10)
    tdfNew.Fields.Append tdfNew.CreateField("SKSJ", dbText, 50)
    tdfNew.Fields.Append tdfNew.CreateField("ZGKH", dbText, 6)
    tdfNew.Fields.Append tdfNew.CreateField("BZ", dbText, 2)    MyDatabase.TableDefs.Append tdfNewEnd Sub

Answer 2

Dim MyTable As TableDef, MyField As Field
这句话报错

Answer 3

引用DAO就行了,一点问题都没有
工程--->引用--->Microsoft DAO 3.6 Object library  Dim MyTable As TableDef, MyField As Field
    Dim MyDatabase As Database    Set tdfNew = MyDatabase.CreateTableDef(Name)
    tdfNew.Fields.Append tdfNew.CreateField("ZGBH", dbText, 10)
    tdfNew.Fields.Append tdfNew.CreateField("BMNO", dbText, 10)
    tdfNew.Fields.Append tdfNew.CreateField("SKRQ", dbText, 10)
    tdfNew.Fields.Append tdfNew.CreateField("SKSJ", dbText, 50)
    tdfNew.Fields.Append tdfNew.CreateField("ZGKH", dbText, 6)
    tdfNew.Fields.Append tdfNew.CreateField("BZ", dbText, 2)    MyDatabase.TableDefs.Append tdfNew