请问怎么向一个ACCESS表里面增加字段？

Question

请问怎么向一个ACCESS表里面增加字段？

Answer 1

Dim Wrk As Workspace
    Set Wrk = DBEngine.Workspaces(0)
    Set dbs = Wrk.CreateDatabase(App.Path & "\" & DatabaseName & TableName & "Outputtemp.mdb", dbLangChineseSimplified)
    Set tdfNew = dbs.CreateTableDef(TableName)    tdfNew.Fields.Append tdfNew.CreateField(Col1, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col2, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col3, dbText)
    tdfNew.Fields.Append tdfNew.CreateField(Col4, dbText)
    dbs.TableDefs.Append tdfNew

Answer 2

以下是我的方法（当然要先设置连接m_cnADODB，此步略）：
'//添加新字段通用函数
Public Function FieldAddNew(TableName As String, ColumnName As String, ColumnType As String) As Boolean
    On Error GoTo errFieldAddNew
    Dim strTempSQL As String
    
    strTempSQL = "ALTER TABLE " & TableName & " ADD COLUMN " & ColumnName & " " & ColumnType & ""
    m_cnADODB.Execute (strTempSQL)
    
    FieldAddNew = True
    Exit Function
    
errFieldAddNew:
    MsgBox "添加新字段时出错。" & Err.Description, vbExclamation
    FieldAddNew = False
    Err.Clear
    Exit Function
    
End Function

Answer 3

'也可以引用ADOX对象，例如：
'工程->引用Microsoft ADO Ext. 2.x for DDL and Security
Private Sub Command1_Click()
   Dim mTbl As New Table
   Dim mIdx As New ADOX.Index
   Dim mCat As New ADOX.Catalog   
   mCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
   
   mCat.Tables("OneTable").Columns.Append "addFieldA", adInteger   '动态添加一个整型字段
   mCat.Tables("OneTable").Columns.Append "addFieldB", adVarWChar   '动态添加一个文本型字段
End Sub