当前位置：主页 > PLC控制

wincc与 oracle 数据通讯脚本如何写，自己写了不能读出数据

我现在在弄一个wincc直接与oracle数据库读写数据的脚本，简单的说就是wincc做一个按钮，一个输出域，在按钮鼠标动作下创建vbs脚本，点击按钮oracle数据库数据就出现在画面显示窗口中（当然显示的数据是有条件的）。脚本写了，数据读不出来，脚本如下，有谁可以指导一下
SubOnClick(ByValItem)

DimobjConnection
DimobjCommand
DimobjRecordset
DimSTrConnectionString
DimstrSQL
Dimdata1
Dimdata2
Dimdata3
strConnectionString="Provider=MSDASQL:DSN=AAA:UID=lizhong:PWD=123456:"
data3=HMIRuntime.Tags("CCCC1").Read
strSQL="selectBBBBFROMAAAAWHERECCCC="&date3&""

SetobjConnection=CreateObject("adodb.connection")
objConnection.ConnectionString=strConnectionString
objConnection.open
SetobjRecordset=CreateObject("adodb.Recordset")
SetobjCommand=CreateObject("adodb.Command")
objCommand.activeconnection=objConnection
objCommand.commandtext=strSQL
SetobjRecordset=objCommand.execute
data2=objRecordset.Fields.count
If(date2>0)Then
objRecordset.movefirst

date1=objRecordset.Fields(0).Value
HMIRuntime.Tags("BBBB1").wtiteDate1
Else
HMIRuntime.Trace"selectionreturnednofields"&vbNewLine&
Endif

EndSub

问题补充：
我从网上找的自己写的，
有哪位高手有现成的wincc与oracle通讯的解决方案

最佳答案

你这脚本写的什么玩意呀！

补充，你看我的图片，就算你其他的都对，我圈出来的这个你认为对吗？如果这个不对，你其他的再对，也一样出不来你要的结果。
wincc没有现成的脚本，应该在老万的群里也是你问的问题吧？我已经说过了你需要安装Oracle的驱动，然后用odbc方式连接Oracle数据库，wincc再访问你的odbc连接。

图片说明：

wincc与 oracle 数据通讯脚本如何写，自己写了不能读出数据