ADO 向Access数据库表中添加字段

Public Function AddField(ByVal tbName As String, ByVal FieldName As String, ByVal fType As Integer, Optional ByVal fSize As Integer = 10, Optional ByVal Precision As Integer = 4) As Boolean

  '添加字段。参数:表名,字段名,字段类型,字段宽度,小数位数
  '添加字段成功返回True，否则False
  
  Dim pField As Column
  On Error Resume Next
  AddField = False
  Set pAdoxTb = pAdoxCat.Tables(tbName)      ’‘获取表对象
  Set pField = pAdoxTb.Columns(FieldName)  ''获取列（字段对象）

  If Err <> 0 Then                                                     ''字段不存在时出错

    ’‘’可以添加字段了

    Set pField = New Column
    pField.Name = FieldName
    pField.Type = fType
    pField.DefinedSize = fSize
    pField.Precision = Precision
    pField.Attributes = adColNullable
    ''字段是否为必填：adColFixed=1 必填；  adColNullable=2 允许空值
    pAdoxTb.Columns.Append pField
    AddField = True
    
    '''列（字段）的10个属性
''''    pField.Attributes      ‘’是否必填
''''    pField.DefinedSize   ''字段宽度
''''    pField.Name             ''字段名
''''    pField.NumericScale  ''？？
''''    pField.ParentCatalog  ''上级
''''    pField.Precision            ''小数位数
''''    pField.Properties          ''？？
''''    pField.RelatedColumn  ''关联
''''    pField.SortOrder             ''排序
''''    pField.Type                     ''字段类型
  End If
  Set pField = Nothing
  Set pAdoxTb = Nothing

End Function

‘’‘’非常遗憾：Access 对于字段大小以及数据精度完全忽略。。。。