wincc访问Acess数据库
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
wincc访问Acess数据库
我用的时wincc6.2,怎样去读写另一台电脑上的一个Acess数据库中的内容?
最佳答案
WINCC的VBS可以很好的操作EXCEL,操作ACCESS也没有问题。
Wincc用VBS脚本读写ACESS数据库
首先要进入系统的数据库设定。
设定完后,将ACess数据库的路径存入Wincc中对应的一个变量。
然后在用到数据库内容的地方,用
SubOnOpen()
”“打开时检查一下系统路径
IfTrim(HMIRuntime.Tags(“Db_Path”).Read)=““Then
MsgBox”请检查系统数据库路径,系统检测到不正常!现在路径是:”&HMIRuntime.Tags(“Db_Path”).Read
Else
”“定义combol对象
Dimcom
Setcom=ScreenItems(“combolbox_receipe”)
com.Clear
com.AddItem”请选择配方...”,0
”“首先打开数据库
DimConn,ResultSet
SetConn=CreateObject(“ADODB.Connection”)
SetResultSet=CreateObject(“ADODB.Recordset”)
Conn.open”Provider=Microsoft.Jet.OLEDB.4.0;DataSource=“& HMIRuntime.Tags(“Db_Path”).Read
ResultSet.open”Select*Fromrecipe”,Conn,1,1
”“依次读出数据库中配方的数量
DoWhileNotResultSet.EOF
com.AddItemResultSet(“name”).value,ResultSet(“Id”).valuE ResultSet.MoveNext
Loop
com.ListIndex=0
SetResultSet=Null”“结果集置空
SetConn=Null”“连接置空
ResultSet.Close”“结果集关闭
Conn.close”“连接关闭
EndIf
EndSub
当系统切换到此页面时,将从数据库中读出表recipe中的值,到Combolbox中,并且将ListIndex=0的那一项列为默认项。