ADO代码为数据表添加字段和索引
- 2017-07-27 17:33:00
- zstmtony 原创
- 3754
手工为Access数据表添加字段和索引，相信大家都会
但如果这个操作要重复操作，手工操作就比较麻烦，能否用VBA代码一键为数据表添加字段和索引呢
回答是可以的。
以下Access VBA代码通过ADOX为数据表添加字段并自动创建新的索引。索引针对表的多列。
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
文章分类
联系我们
| 联系人： | 王先生 |
|---|---|
| Email： | 18449932@qq.com |
| QQ： | 18449932 |
| 微博： | officecn01 |
