得到access表字段名VBS脚本

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

itclock

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

阅读量1.2k

点赞数

文章标签： access 脚本 microsoft table

本文链接：https://blog.csdn.net/itclock/article/details/4838392

版权

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