ADO代碼爲數據錶添加字段和索引

2017-07-27 17:33:00
zstmtony
原創
1060

手工爲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
分享