×

您收到0封站内信：

×

找答案的高端用户（找答案钻石及双钻级别的用户）将尽可能从此问题下的所有回

答中，为您推荐最佳答案。届时您可以根据推荐数采纳答案。

如果自提问时间起7天内您仍无法选出最佳答案，您可以选择“无满意答案”关闭此问题。

{{item.C_Name}}

问题

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

1

3052 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

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

扫码小程序：

一键登录查看全部问答

elecer5 新生

被采纳率低

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

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

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

图片说明：

zhangli0 元老

被采纳率 25.29% 2016-06-14 19:50

提问者对于答案的评价

暂无评价

elecer5

被采纳率低 2016-06-14 19:11

等您来回答换一换

{{item.Title}} {{item.Title}}: {{item.CoinValue}}西币 {{item.VisitNum}}人想问
我来答我来答

本版相关问题换一换

{{item.Title}} {{item.Title}}: {{item.AnswerCount}}个回答 {{item.VisitNum}}人关注

专家置评

专家置评

处理方式

官方认证将此问题置为精华

0/3000

上传图片

处理时长

分钟

置评KPI提醒: 置评 >20% 精华 >5% 打标签 >20%

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

西门子找答案

首次回答问题，获得
双倍西币积分！
立即成为技术知识分享的一员!

积分

{{item.MenuName}}

{{item.MenuName}}

本版热门问题更多

{{item.Title}}: {{item.AnswerCount}}个回答 {{item.ReadCount}}人关注

热门视频，猜你喜欢

向您推荐换一换

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

: 玩赚618 | 每天回答开宝箱赢大奖

: 玩赚618 | 每天提问开宝箱赢大奖

热搜榜单
问题榜单


{{index+1}}: {{item.Title}}

{{item.CloseDate}}

{{item.Title}}

{{item.VisitNum}}人关注 {{item.CloseDate}}

找答案微信小程序

提问
搜索

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。