怎么样用程序修改 DBASE V 的 DBF数据库结构

Question

怎么样用程序修改 DBASE V 的 DBF数据库结构

Answer 1

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
        Kill MyPath & "\" & Name
    End If
    
    Set tdfNew = MyDatabase.CreateTableDef(Name)
    tdfNew.Fields.Append tdfNew.CreateField("ZGBM", 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

Answer 2

'open text fileopen "text1.txt" for input as #1'read data line #1,m_strclose(1)'create databaseset db_exp=workspaces(0).createdatabase("path/filename")'create tableset tb_exp=db_exp.createtable("tableanme")'create fields'create index'thendb_exp.execute "INSERT INTO tablename " _         & "(fields list[,])" _         & " VALUES(" & m_str & ");"'close databasedb_exp.close