如何使用ADOX 编辑修改 ACCESS数据库 字段的属性。

Question

如何使用ADOX 编辑修改 ACCESS数据库 字段的属性。
比如： 字段1。原字符长度为50 通过程序 增加到255 

Answer 1

这是添加字段的代码，谁能提供修改编辑的代码！    
    Dim DataBasePath As String
    DataBasePath = App.Path
    
    If Right$(DataBasePath, 1) <> "\" Then
       DataBasePath = DataBasePath & "\"
    End If
    
    DataBasePath = DataBasePath & "IC_DataBase.dat"
    
    Dim ConnectionString As String
    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & DataBasePath & ";" & _
                        "Persist Security Info=False;" & _
                        "Jet OLEDB:Database Password=www.5ivb.net/club"
          Dim cat     As New ADOX.Catalog
      Dim tbl     As New ADOX.Table
      Dim col     As New ADOX.Column   ' 打开目录
   cat.ActiveConnection = ConnectionString   With tbl
      .Name = "MyContacts"
      Set .ParentCatalog = cat
      ' 创建字段并将它们追加到新的 Table 对象中。
      .Columns.Append "ContactId", adInteger
      ' 产生 ContactId 列和自动递加列
      .Columns("ContactId").Properties("AutoIncrement") = True
      .Columns.Append "CustomerID", adVarWChar
      .Columns.Append "FirstName", adVarWChar
      .Columns.Append "LastName", adVarWChar
      .Columns.Append "Phone", adVarWChar, 20
      .Columns.Append "Notes", adLongVarWChar
   End With   cat.Tables.Append tbl   Set cat = Nothing

Answer 2

用dao对象来做,ado应该是不支持的,例如直接创建数据库,修改密码,修改表结构.

Answer 3

自己解决了这个问题其实使用ADO就可以实现以下是代码片段：    Dim Rs As New ADODB.Recordset
    Dim strSQL As String
    strSQL = "ALTER TABLE 事件记录表 ALTER 事件 Char(100)"
    
    Set Rs = ExecuteSQL(strSQL)
    
    Call RsSurenessClose(Rs)