搬家第15天-183.WinccV7.3 vbs编程ADO方式将Access数据表的内容显示在MSHFGrid控件中

我以前做过vbs编程ADO方式将SQL Server数据表查询结果显示在MSHFGrid中。前两天一个网友问如何把ACCESS数据表内容显示出来，我尝试了一下，还是比较简单的。

 

假设D:\Wincc_Access下面有一个ACCESS数据库叫做MyDB.mdb，下面有一张表Mytable1，表格有几个字段如下：

有一些记录如下：

wincc画面上插入一个MSHFgrid控件，名字修改为Grid，画面上插入一个按钮，按钮添加鼠标点击的vbs脚本如下：

Sub OnClick(ByVal Item)                  
Dim conn
Dim ors
Dim Grid
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=d:\wincc_access\MyDB.mdb"
conn.open
Set ors=CreateObject("ADODB.RecordSet")
ors.open "select Name1,Sex,Age,Address from Mytable1",conn,3,3
Set Grid=ScreenItems("Grid")
Set Grid.DataSource=ors
Grid.Refresh
Set ors=Nothing
conn.close
Set conn=Nothing
End Sub

保存运行，就可以看到access数据表内容显示在MSHFGrid控件里面了。