oracle 与plc通信,wincc与 oracle 数据通讯脚本如何写，自己写了不能读出数据-工业支持中心-西门子中国...

我现在在弄一个 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 通讯的 解决方案

悬赏西币:1 | 解决时间：2016-06-17 10:23:47 | 提问者： elecer5 - 新生&nbsp&nbsp第1级

问题ID：139959