得到access表字段名VBS脚本

最新推荐文章于 2024-01-26 17:24:46 发布

原创最新推荐文章于 2024-01-26 17:24:46 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#access #脚本 #microsoft #table

本文介绍了一段使用VBA代码连接并读取Access数据库的例子。通过创建ADODB连接对象和记录集对象，实现对E盘下data1.MDB文件中table1表的数据查询。该示例展示了如何打开数据库连接、执行SQL查询语句以及遍历查询结果。

set adoCN   =createobject("ADODB.CONNECTION")
set strCnn =createobject("ADODB.Recordset")
set rstSchema   =createobject("ADODB.Recordset")

Dim   I
dim n
        str1   =   "DBQ=E:/data1.MDB;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
        adoCN.Open   str1

          rstSchema.open "select * from table1",adoCN,1,1

          n = rstSchema.Fields.Count - 1


             for i =0 to n
  out   =   out & vbCr & rstSchema.Fields(i).Name
      next

        rstSchema.Close

        adoCN.Close
MsgBox out