麻豆一区区三三四区产品麻豆-麻豆影视国产TV在线观看-麻豆影视国产在线观看-麻豆影视在线-麻豆影视在线观看av-麻豆影院

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語句在報表編輯器中的動態表格中測試是可以的

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

主站蜘蛛池模板: 国产免费一区二区三区免费视频| aⅴ免费视频在线观| 亚洲精品免费视频| H 调教 红肿 嗯啊 跪趴| 四虎永久在线精品视频免费| 免费无码成人av在线播| 欧美日韩在线视频观看| 狠狠色噜噜狠狠狠狠| 久久久久久中文字幕有精品| 亚洲成av人影院| 国产一区二区三黄色视频| 国产www在线播放| 国产精华液网站W| 亚洲一卡2卡3卡4卡2024| va天堂va亚洲va影视中文字幕| 四虎国产精品免| 欧美亚洲精品中文| 欧美精品一区二区在线观看 | 亚洲永久精品日本无码| 国产真实乱人偷精品人妻图片| 99热这里只有精品中文| 高清人妻喷潮av综合网| 亚洲av无码精品五月花 | 少妇无码av无码专区在线看| 亚洲日韩精品一二三四五六七区 | 成人网站在线| 亚洲AV无码无限在线观看不卡| 日本熟妇japanese丰满| 欧美激情精品久久久久久久| 狠狠色丁香久久综合五月 | 国产精品免费αv视频| 亚洲九九夜夜 国产成人精品综合久久 | 欧美日韩高清视视频在线观看| 精品卡2卡三卡4卡2卡| 精品久久a人妻| 国产免费看片| 国产精品久久欧美久久一区| 亚洲熟女片嫩草影院| 99久久国产综合精品五月天喷水 | 理论电影在线观看| 色欲影视 网站|