欧美日韩在线一区二区-欧美日韩在线一区二区三区-欧美日韩在线一区亚洲二区-欧美日韩在线永久免费播放-欧美日韩整片中文字幕-欧美日韩制服丝袜六区

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

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

主站蜘蛛池模板: 国产人妻无码一区二区三区18 | 国产无码高潮在线 | 亚洲性人人天天夜夜摸 | aⅴ成人片在线观看 | av无码精品一区二区三区 | 国产av天堂吧手机版 | 国产日韩制服在线观看 | 欧美日韩另类国产欧美日韩一级 | 国产成人av电影在线观看第一页 | 麻豆麻豆必出精品入口 | 国产欧美一区二区精品每日更新 | 亚洲日韩在线中文字幕综合 | 国产精品一区二区三区不卡视频 | 色噜噜狠狠色综合日日 | 成人无码视频在 | 91精品在线国产一区 | 日韩国产精品一级毛片在线 | 91国内免费久久久久久久久久 | 黄网站一区二区三区 | 91性高湖久久久久久精品中文字幕 | 成人精品电影推荐 | 国产睡熟迷奷系列精品视频 | 国产精品日韩2025 | 日本无码精品无码白石麻衣 | 国产精品麻豆一区二区 | 国产成人精品手机在线观看 | 国产黄a一级二级三级看三区 | 精品国产制服丝袜一区二区 | 欧美精品和国产激情久久 | a级毛片免费全部播放a级 | 国产精品二区页在线播放 | 爆乳少妇无码中出在线播放 | 国产欧美综合色噜噜在线 | 国产巨作麻豆欧美亚洲综合久久 | 精品人妻少妇一区二区三区不卡 | 日本免费一区二区三区最新 | 亚洲成av人片一区二区蜜柚 | 麻豆AV字幕无码中文 | 国产成人av一区二区三区无码 | 久久综合丝袜日本网首页 | 嫩草视频一区二区三区精品推荐 |