wincc数据库的读取

我安书上的代码写到按钮的事件里面,用listview显示数据,代码如下:
 Dim sPro 
 Dim sDsn 
 Dim sSer 
 Dim sCon 
 Dim sSql 
 Dim conn 
 Dim oRs 
 Dim oCom 
 Dim oItem 
 Dim m,n,s
 '#为ADODB创建connection string

 

 sPro = "Provider=WinCCOLEDBProvider.1;"

 sDsn = "Catalog=CC_yt080313_08_06_14_08_59_34R;"

 sSer = "Data Source=server2\WinCC"

 sCon = sPro + sDsn + sSer

 

 '#在sSql定义命令文本(相对时间)

 
 'sSql="select * from "
 sSql = "TAG:R,'monishuju/ws1 ','2008-07-29 15:00:00.000','2008-07-29 15:14:00.000'"

 'sSql = "TAG:R,1,'0000-00-00 00:10:00.000','0000-00-00 00:00:00.000'"

 MsgBox "Open with:" & vbCr & sCon & vbCr & sSql & vbCr

 

 

 '#建立连接

 

 Set conn = CreateObject("ADODB.Connection")

 conn.ConnectionString = sCon

 conn.CursorLocation = 3

 conn.Open

 
 MsgBox "aaaaaaaaaa"
  '#使用命令文本进行查询

 

 Set oRs = CreateObject("ADODB.Recordset")

 Set oCom = CreateObject("ADODB.Command")

 oCom.CommandType = 1

 Set oCom.ActiveConnection = conn

 oCom.CommandText = sSql

 

 MsgBox "bbbbbbbbbbbbb"

 '#填充记录集
 MsgBox "cccfffffff"

 Set oRs = oCom.Execute 

 m = oRs.Fields.Count

 MsgBox "ccccccccccccccc"

 'm=oRs.RecordCount

 

 
 '#用记录集填充标准listview对象

 

 ListView1.ColumnHeaders.Clear

 ListView1.ColumnHeaders.Add , , CStr(oRs.Fields(1).Name), 240

 ListView1.ColumnHeaders.Add , , CStr(oRs.Fields(2).Name), 140

 ListView1.ColumnHeaders.Add , , CStr(oRs.Fields(3).Name), 140

 If (m > 0) Then

 oRs.MoveFirst

 n = 0
 MsgBox "dddddddddddddddd"
 Do While Not oRs.EOF

 n = n + 1

 s = Left(CStr(oRs.Fields(1).Value), 23)

 Set oItem = ListView1.ListItems.Add()

 oItem.Text = Left(CStr(oRs.Fields(1).Value), 23)

 oItem.SubItems(1) = FormatNumber(oRs.Fields(2).Value, 4)

 oItem.SubItems(2) = Hex(oRs.Fields(3).Value)

 If (n > 100) Then Exit Do

 oRs.MoveNext

 Loop

 oRs.Close

 Else

 

 End If

 

 Set oRs = Nothing

 conn.Close

 Set conn = Nothing

 但是当代码执行到:Set oRs = oCom.Execute 时就不再执行了,请高手指点一下这是怎么回事呀,我看过以前的帖子但是还是没有找到解决办法
 

最佳答案

sSql = "TAG:R,'monishuju/ws1 ','2008-07-29 15:00:00.000','2008-07-29 15:14:00.000'"
 应该是:
 sSql = "TAG:R,'monishuju\ws1 ','2008-07-29 15:00:00.000','2008-07-29 15:14:00.000'"

 归档名与归档变量之间用反斜杠“\”隔开。
 

提问者对于答案的评价:
谢谢,解决了,不过帮助里的代码和书上的代码有问题,改了之后才调试成功,大家注意呀,呵呵

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

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

相关推荐

  • 如何将wincc7.2中的 实时数据记录到ms sql serve或者excel

    搜索后,网上说之前的wincc版本可用WinCC Industrial Data Bridge,但是wincc7.2里面貌似没有这个功能,或者说我没有…

    SIMATIC WinCC 2017年5月29日
  • 关于用户归档表格和在线表格控件的问题

    本人接触wincc时间不长,正在做的项目需要对一些变量进行归档(按钮触发能实现么?方法如何?),以及归档后显示(表格显示),所以需要用到表格控件。但是在设计时软件中只有wincc&…

    SIMATIC WinCC 2019年6月11日
  • 有7台313C-2DP和WINCC FLEXBLE连接

    有7台313C-2DP和AUDIT   FOR  WINCC FLEXBLE连接,电脑配5611。问题1.这样配置可以组…

    SIMATIC WinCC 2019年6月11日
  • smart line 700 ie v3配方视图

    用smart line 700  ie v3设了一个简单配方就下载不了,不做配方就可 以,不知什么原因 问题补充:你好!…

    2021年7月5日
  • Wincc7.4画面不能全屏

    如何设置画面全屏 最佳答案 在WINCC主窗口 —点击计算机—-点击图形运行系统—–勾选全屏详情看下图。 图片说明:    提问者对于答…

    2021年7月5日
  • PLC和WINCC字符串类型对应

    各位前辈:我在PLC里建立了一个STRING[17],占19个字节,都是ASCII码,想把它显示在WINCC上,在WINCC上建立的变量类型是什么呢?文本类型8bit还是文本类型1…

    SIMATIC WinCC 2019年6月11日
  • wincc项目复制?

    已经有个组态好了的WINCC项目,这个项目已经组态了变量记录归档,现在我想把这个项目组态的变量归档单独复制到另外一个项目里,不知道该怎么做?如果把这个项目的画面复制到另外一个项目,…

    SIMATIC WinCC 2019年6月11日
  • wincc和moudbus协议仪表通讯

    我的上位机是用wincc软件,操作台上有两块支持moudbus通讯协议的智能仪表,请问该怎么通讯?我曾经用485转232线将仪表连到工控机上,再购买了西门子moudbus串口通讯协…

    SIMATIC WinCC 2019年6月11日
  • 区域指针主要是什么用途啊?

    区域指针主要是什么用途啊? 最佳答案 区域指针是什么,有什么作用——    可以用来设定、读取CPU的时间,可以用于配方等等,具体可以风自带…

    SIMATIC WinCC 2019年6月11日
  • 求WCC学习脚本、数据库资料

    本人很想学习WCC脚本、数据库方面的知识,有哪位老师有这方面的资料,我的邮件:gjsslideping@!26.com.谢谢啦!很想得到老师、专家们的帮助,不胜感激!我也查了大侠们…

    SIMATIC WinCC 2020年11月1日