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

相关推荐

  • wincc问题画面

    请教高手:用wincc 6.0做一个合金小车加料控制项目,原设计两个合金小车一用一备,现在要求两个车同时使用,画面同时显示两个小车位置,建立两个内部变量,能够同时显示两个…

    SIMATIC WinCC 2019年6月11日
  • 多个wincc 系统和s7-200PLC通讯

    多个wincc 系统和s7-200PLC通讯要怎么做?有两个s7-200和3个wincc系统通讯,但是3个wincc不能同时监控这两个s7-200,总会有一个s7-200…

    SIMATIC WinCC 2017年6月10日
  • 哪里下载wincc v6.2,最好包括SQL

    有效的下载地址 最佳答案 如果你用酷盘的话,我在酷盘里存着光盘的安装文件,可以分享给你。 提问者对于答案的评价:好多种子很难下载,这个比较好,谢谢!

    SIMATIC WinCC 2019年6月11日
  • WINCC6.0正常使用,停电文件破坏,怎样避免?

    WINCC6.0虚拟机%ignore_a_1%,每次停电或电脑死机,重新开机打开停电前正常使用的WINCC6.0项目文件,提示找不到文件,文件丢失,哪位师傅遇见过,有没有好的办法可…

    SIMATIC WinCC 2021年7月5日
  • WINCC如何实现风机动态旋转画面

    界面上有3个风机,每个风机做了10个图片,风机状态反馈运行时,10个画面形成一动态风机旋转画面,请教如何处理呢? 最佳答案 参考:http://www.ad.siemens.com…

    SIMATIC WinCC 2019年6月11日
  • wincc7 报警控件视图风格

    在wincc7项目中遇到一个小问题,项目的报警控件(都是wincc7版本的),看起来有两种视图风格,一种应该是经典风格,另一种是wincc7风格的,但使用功能是完全相同的。不知道在…

    SIMATIC WinCC 2019年6月11日
  • 用wincc编制完程序后,怎么样能开机运行?能否脱离wincc运行?

    用wincc编制完程序后,怎么样能开机运行?能否脱离wincc运行? 最佳答案 找这个目录下的的运行软件"C:\Program Files\Siemens\Wi…

    SIMATIC WinCC 2019年6月11日
  • 请问怎么用vbs函数打开一个画面

    请问怎么用vbs函数打开一个画面,再问下谁有WINCC vbs的函数手册(都不知道相关的函数),好像在西门子官方也没找到相关文档,分不多了,大家帮帮忙 最佳答案 如果你是…

    SIMATIC WinCC 2019年6月11日
  • 安装WINCC V6.2的问题请教大家

    由于论坛不能发图片,我已将图片发到工控网论坛,请大家看看怎么回事,下面是链接http://bbs.gkong.com/dispbbs.asp?Boardid=36&id=23636…

    SIMATIC WinCC 2019年6月11日
  • WINCC如何打印弹出画面

    一个弹出画面,该弹出画面上有一个打印按钮,请教如何打印该画面?  (该画面内容为做出来的表格形式的参数,如果要以表格形式打印出这些参数,又该如何处理?)&nbs…

    SIMATIC WinCC 2019年6月11日