免费国精产品自偷自偷免费看_在线看片成人_www.77伦理bt.com_特级黄色一级片_免费夜色污私人影院在线观看_国严精品久久久久久亚洲影视

sxd566
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看sxd566的 主題 / 回貼
樓主  發表于: 2011-10-08 13:46
我剛接觸wincc,現在要在wincc里做一個月報表,需要每天在當天結束時將數據庫中的日表里的每項數據讀出來求平均值再寫入月表里,現在沒辦法實現數據讀取,可能是連接不到數據庫,
Dim objConnection
  Dim strConnectionString
  Dim opertime,device,command
  Dim strSQL
  Dim objCommand
  Dim DsnStr
  Dim dt
  Dim PV1,PV2,PV3,PV4,PV5,PV6,PV7,PV8,PV9,PV10,PV11,PV12,PV13,PV14,PV15,PV16
  Dim iday,imonth,iyear,ihour

  DsnStr="CC_sheet"
  strConnectionString = "Provider=MSDASQL;DSN="&DsnStr&";database=repotrdb;UID=sa;PWD=;"

  dt=Now() '系統時間
    imonth=Month(dt)
    iyear=Year(dt)
    iday=Day(dt)
    ihour=Hour(dt)
pv4="select influx from daydata where zyear="& iyear &  " And zmonth= " &imonth & "And zday=" & iday & " "
MsgBox pv4
'Set objConnection = CreateObject("ADODB.Connection")
'objConnection.ConnectionString = strConnectionString
  objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
HMIRuntime.Trace strsql
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
objCommand.Execute
objcomand
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing

SQL語句在報表編輯器中的動態表格中測試是可以的

哪位高手知道的指點一下,急~~~~~

主站蜘蛛池模板: 麻豆精品一区二区三区视频 | 午夜精品久久久久久久99热浪潮 | 亚洲成人1区2区 | 激情综合色综合久久综合 | 国产精品系列在线观看 | 久久狠狠中文字幕2017 | 黄色sp | 午夜日韩精品 | 午夜影院120 | 欧美猛少妇色XXXXX猛交 | 97性潮久久久久久久久动漫 | 国产精品黄页网在线观看 | 四虎影视88aa成人欧美 | 国内偷拍第一页 | 极品国产在线观看 | 色综合久久婷婷88 | 欧美性视频精品 | 久久久综| 日韩av无码中文一区二区三区 | 成人国产精品入口免费视频 | 中文成人在线 | 国产精品国产三级国产剧情 | 日日摸日日碰夜夜爽无 | 色悠久久久久综合网国产 | 午夜丰满少妇性开放视频 | 精品免费久久久久久久 | 国产精品一区精品国产自在 | 亚洲高清人人爽夜夜爽AV毛片 | 99香蕉国产精品偷在线观看 | 午夜精品免费视频 | 国产精品久久久久国产a级 欧美极品视频在线观看 | 无码专区中文字幕无码野外 | 少妇激情AV一区二区三区 | 成人女人免费毛片 | 黑人巨大亚洲一区二区久 | 丁香激情综合久久伊人久久 | 91在线视频免费看 | 亚洲视频播放 | a级片免费观看 | 中文字幕二区人妻熟女三区 | 亚洲多毛妓女毛茸茸的 |