WinCC连接Oracle数据库(VB)

现在想用WinCC和Oracle数据库连接通信。连接已经没有问题,简单的读写也没有问题。
 我得代码如下:
 strConnectionString = "DRIVER={Oracle ODBC Driver};UID=Sys;PWD=Sys;DBQ=Sys;"
 strSQL = "select name from stu where ID = 1;" 
 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
 lngCount = objRecordset.Fields.Count
 If (lngCount>0) Then
 objRecordset.movefirst
 lngValue = objRecordset.Fields(0).Value
 HMIRuntime.Tags("dbValue").Write lngValue
 ...
 (dbValue为我自己定义的接受数值的内部变量)
 以上代码经测试没有问题,现在还有些功能不知道怎么实现:
 1,当我想在STU表中选择ID = 1时候的两列:Name和Address(都存在)的时候,如何操作,上述过程只选择了Name,如果写入"Select name,address from stu where id = 1;"的时候,objRecordset.Fields(0).Value按我得理解应该有两个列的数值,这时候想给我的变量赋值要怎么做呢?(以dbValue1,dbValue2为例)
 2,我如何在我得SQL语句中加入变量,比如,当我要执行插入语句"insert into stu(id,name) values(3,'RRR')"直接excute就可以了,但是,如果我得'RRR'是一个变量(str变量)来的值,那要怎么写呢?我尝试了"insert into stu(id,name) values(3,'"+str+"')"不行。不知道怎么做了。
 3,当我想对Recordset取得的结果进行有无判断的时候,按照我得理解,我是检查lngCount是否等于0,但实际上既是搜索结果为空的时候,lngCount依然为1(为多个的时候也是1),所以if无论如何都会被执行(else总部执行),不知道错到什么地方了,要实现这种功能我应该怎么办呢?

 -----------
 另外上次提问关于Wincc中方法的应用问题的时候,分给错了。。。应该给 dcount107的,由于匆忙没有仔细看, 分数给错了,dcount107得答案非常简明到位,希望 dcount107能看到,多谢了。

问题补充:
第二个问题已经解决了,用那种方式是可以的,刚才可能代码写错了。请大家集中在第一个和第三个问题上吧。谢谢。

最佳答案

咦,我看到了,呵呵。问题解决就行,不必介怀。

 说实在话,你的问题已经远远超出了WinCC的范围,建议你多找一些数据库方面的资料看看。

 1、"Select name,address from stu where id = 1;"
 objRecordset.Fields(0).Value  就是name字段的值
 objRecordset.Fields(1).Value  就是address字段的值
 为了使程序更加明了,建议使用objRecordset.Fields("name").Value和objRecordset.Fields("address").Value的方法;

 3、objRecordset.Fields.Count这里取到的是字段的数量,而不是记录的数量,要用objRecordset.RecordCount;

提问者对于答案的评价:
非常感谢!!!我还有个问题,已经没有分数了,用MJconfig这个id发了问题了,50分,希望你也能帮我回答啊!!太感谢了!!

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc273014.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日 上午9:37
下一篇 2019年6月11日 上午9:37

相关推荐

  • 怎样实现"出现报警时弹出警告提示"?

    我是WinCC新手,想做一个出现报警时能够弹出一个对话框,显示有报警的消息文本,以及返回报警画面具体查看,我觉得应该用VBA做,但不知具体怎样编程,请大家赐教啊 问题补充:多谢st…

    SIMATIC WinCC 2019年6月11日
  • 博途wincc专业版设置二次确认窗口

    二次确认窗口使用msgbox函数编写脚本还是画面窗口的反应速度更快,减少卡顿?具体解释一下各自的优点。 图片说明:        …

    2021年7月5日
  • 输入输出域如何修改

    在画面设置:一个输入输出域,组态io域类型为:输入,连接内部变量 tag1;一个按钮,通过脚本如何将输入输出域赋值 0( hmiruntime.tag…

    SIMATIC WinCC 2019年6月11日
  • wincc按钮属性“热键”

    wincc按钮属性的“热键”,怎么用啊?我想通过键盘的功能键或者组合键来控制按钮,在wincc按钮属性的“热键”里设置了为什么不起作用啊? 最佳答案 不同意楼上的说法。 …

    SIMATIC WinCC 2019年6月11日
  • WinCC_flexible_SMART_V3SP1

    新装的WinCC_flexible_SMART_V3SP1,启动WinCC_flexible_SMART_V3SP1  软件,打开文件时,打不开,停在打开数据库…

    2021年7月5日
  • WINCC 7.3 文字显示

    1、属性页文字显示不完整,只能显示上半部分。2、WINN  多屏 黑屏恢复后就少一个界面。 图片说明:    最佳答案 1.是否改…

    2021年7月5日
  • 时间控件文件夹

    请有WINCC 5.0 SP2 软件的师傅发个其中的时间控件文件夹GPRAPHICS至zw1996@yeah.net 。感谢另:管理员.我几…

    SIMATIC WinCC 2019年6月11日
  • PLC内的变量触发WINCC内的用VB编写的小动画

    怎样使用PLC内部的变量来触发WINCC内用VB编写的小动画,即当PLC内一数字点为1时,动画动作,数字点为0时,动画停止? 最佳答案 不知道你的动画是什么样的,你可以用脚本调用v…

    SIMATIC WinCC 2021年7月5日
  • WINCC 打开项目

    当我打开从别的机子上组态的WINCC 项目时会出现组态的服务器不可用,当我启动本地服务器时会出现:HResult  Error  …

    SIMATIC WinCC 2019年6月11日
  • 请问几个WINCC的文件问题?

    请问截图中的几个文件是什么文件?谢谢! 图片说明:          最佳答案 数据库文件(.mdf)和数据库记录文件(…

    2021年7月5日