搬家第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控件里面了。