******如何在单击command时自动建立一个dbf库，并插入一列名为id的字段，类型为数字型******

Question

******如何在单击command时自动建立一个dbf库，并插入一列名为id的字段，类型为数字型****** 
 

Answer 1

Private Sub Creat(MyPath As String, Name As String)
    Dim MyTable As TableDef, MyField As Field
    Dim MyDatabase As Database
    Set MyDatabase = OpenDatabase(MyPath, False, False, "dBase 5.0;")
    
    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

insert into 进行插入记录