找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
Option Explicit
Function action
On Error Resume Next
Dim sCon
Dim sSql
Dim conn
Dim wSB1,wSB2,wHOB
sCon="Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=SH;Data Source=192.168.0.10"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.Open
wSB1= HMIRuntime.Tags("AT-P-01/AT.In11#Value").Read
wSB2= HMIRuntime.Tags("AT-P-01/AT.In12#Value").Read
wHOB= HMIRuntime.Tags("AT-P-01/AT.In13#Value").Read
''Msgbox wSB1
sSql = "INSERT INTO Power (SteamBoiler_1,SteamBoiler_2,HotOilBoiler) VALUES" & _
" (" & wSB1 & "," & wSB2 & "," & wHOB & ");"
conn.execute sSql
conn.Close
End Function
补充:那就在服务器上写脚本呀!通过两个网口和两边通讯,你只要设置地址对了就行了,其他的参考我给你的脚本。
如果不会的话,可以加QQ群:6141014,讨论学习
补充:
再看看这个手册:
WinCC 基础选项 V7.4 SP1:WebNavigator, DataMonitor, WebUX, Connectivity Pack
https://support.industry.siemens.com/cs/cn/zh/view/109746337
里面连接性软件包里面有介绍如何连接数据库,不过oracle的连接字不一样网上搜一下,改了,然后服务器地址设置一下,应该也是没问题的
实际经验没有,不过或许可以一起试试~
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!