wincc访问Acess数据库
刘玉蓉
发布于2014-10-14 17:52
99
0
标签：
我用的时wincc6.2，怎样去读写另一台电脑上的一个Acess数据库中的内容？
佳答案
WINCC的VBS可以很好的操作EXCEL，操作ACCESS也没有问题。
Wincc用VBS脚本读写ACESS数据库
首先要进入系统的数据库设定。设定完后，将ACess数据库的路径存入Wincc中对应的一个变量。然后在用到数据库内容的地方，用
Sub OnOpen()
""打开时检查一下系统路径
If Trim(HMIRuntime.Tags("Db_Path").Read)="" Then
MsgBox "请检查系统数据库路径,系统检测到不正常！现在路径是：" & HMIRuntime.Tags("Db_Path").Read
Else
""定义combol对象
Dim com
Set com=ScreenItems("combolbox_receipe")
com.Clear
com.AddItem "请选择配方...",0
""首先打开数据库
Dim Conn,ResultSet
Set Conn = CreateObject("ADODB.Connection")
Set ResultSet = CreateObject("ADODB.Recordset")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HMIRuntime.Tags("Db_Path").Read
ResultSet.open "Select * From recipe",Conn,1,1
""依次读出数据库中配方的数量
Do While Not ResultSet.EOF
com.AddItem ResultSet("name").value,ResultSet("Id").valuE
ResultSet.MoveNext
Loop
com.ListIndex =0
Set ResultSet=Null""结果集置空
Set Conn=Null ""连接置空
ResultSet.Close ""结果集关闭
Conn.close ""连接关闭
End If
End Sub
当系统 切换到此页面时，将从数据库中读出表recipe中的值，到Combolbox中，并且将ListIndex=0的那一项列为默认项
