安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

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

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

但如果这个操作要重复操作,手工操作就比?#19979;?#28902;,能否用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
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存?#21152;茫?b>7.75MB
PHP 执行时间:0.15
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
尼克斯vs灰熊 歌剧魅影游戏 森巴宾果注册 魔兽争霸3重制版国服上线时间 西部悉尼vs川崎前锋 fifa手游匹配目前不可用 尼克斯vs魔术 刺猬宝宝免费试玩 十二生肖保护神 悉尼奥运会网球冠军