wincc访问Acess数据库

我用的时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的那一项列为默认项

提问者对于答案的评价:
谢谢了,我试一下,有问题再请教你

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc264462.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日 上午3:00
下一篇 2019年6月11日 上午3:00

相关推荐