ADO代码为数据表添加字段和索引

2017-07-27 17:33:00
zstmtony
原创
254

手工为Access数据表添加字段和索引,相信大家都会

但如果这个操作要重复操作,手工操作就比较麻烦,能否用VBA代码一键为数据表添加字段和索引呢

回答是可以的。

以下Access VBA代码通过ADOX为数据表添加字段并自动创建新的索引。索引针对表的多列。


Sub AutoCreateIndex()
   Dim tbl As New Table
   Dim idx As New ADOX.Index
   Dim cat As New ADOX.Catalog
' 连接数据库
   cat.ActiveConnection = _ 
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\AccessCn.mdb;"

   ' 定义数据表并将其追加到Catalog里
   tbl.Name = "MyTable"
   tbl.Columns.Append "Column1", adInteger
   tbl.Columns.Append "Column2", adInteger
   tbl.Columns.Append "Column3", adVarWChar, 80
   cat.Tables.Append tbl

   ' 为数据表定义多列索引
   idx.Name = "MultiColumnIndex"
   idx.Columns.Append "Column1"
   idx.Columns.Append "Column2"

   ' 将索引追加到前面的数据表上
   tbl.Indexes.Append idx

End Sub
分享