我现在在弄一个 wincc 直接与oracle 数据库 读写数据的脚本， 简单的说 就是wincc做一个按钮，一个输出域， 在按钮鼠标动作下创建 vbs脚本 ，点击按钮 oracle 数据库数据就 出现在画面显示窗口中 （当然显示的数据是有条件的）。脚本写了，数据读不出来，脚本如下， 有谁可以指导一下
Sub OnClick(ByVal Item)
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim data1
Dim data2
Dim data3
strConnectionString="Provider=MSDASQL:DSN=AAA:UID=lizhong:PWD=123456:"
data3=HMIRuntime.Tags("CCCC1").Read
strSQL="select BBBB FROM AAAA WHERE CCCC="&date3&""
Set objConnection=CreateObject("adodb.connection")
objConnection.ConnectionString=strConnectionString
objConnection.open
Set objRecordset=CreateObject("adodb.Recordset")
Set objCommand=CreateObject("adodb.Command")
objCommand.activeconnection=objConnection
objCommand.commandtext=strSQL
Set objRecordset=objCommand.execute
data2=objRecordset.Fields.count
If (date2>0) Then
objRecordset.movefirst
date1=objRecordset.Fields(0).Value
HMIRuntime.Tags("BBBB1").wtite Date1
Else
HMIRuntime.Trace"selection returned no fields"&vbNewLine&
End if
End Sub
问题补充：
我从网上找的自己写的，
有哪位高手有现成的 wincc与oracle 通讯的 解决方案
最佳答案
你这脚本写的什么玩意呀！
补充，你看我的图片，就算你其他的都对，我圈出来的这个你认为对吗？如果这个不对，你其他的再对，也一样出不来你要的结果。
wincc没有现成的脚本，应该在老万的群里也是你问的问题吧？我已经说过了你需要安装Oracle的驱动，然后用odbc方式连接Oracle数据库，wincc再访问你的odbc连接。
图片说明：
提问者对于答案的评价：
我已经写出来来了 ，没使用 ODBC,
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc177219.html
微信扫一扫 
支付宝扫一扫