精品一区二区国产-精品一区二区国产在线观看-精品一区二区精品在线蜜桃-精品一区二区免费-精品一区二区免费vr-精品一区二区免费视频

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

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

主站蜘蛛池模板: 国产又粗又猛又爽又黄的视频吉 | 国产免费高清在线精品一区 | 182tv免费福利夜在线观 | 日韩精品视频在线观看免费 | 午夜影视免费体验区一分钟 | 国产炮机主播在线观看 | 亚欧视频在线观 | 亚洲视频区 | 三级在线观看免费观看电影 | 国产乱子伦精品免费视频 | 一区二区在线免费观看 | 亚洲国产2025精品无 | 精品一区二区三区国产在线观看 | 在线观看一区二区三区 | 韩国三级a视频在线观看 | 国产不卡一区二区三区免费视 | 美女国产在线观看免费观看 | 中文字幕一区二区三区免费视 | 最近更新在线中文字幕 | 日皮视频免费 | 二三区成人影片 | 99国产精品国产精品九九 | 国产超级 | 日韩精品免费一线在线观看 | 国产视频一区二区在线观看 | 两性刺激生活片免费 | 国产精品不卡免费视频 | 国产一二三 | 日本淫秽视频在线 | 国产精成a品人v在线播放 | 国产亚洲高清不卡在线 | 国产日韩欧美二区在线 | 一区二区三区四区免费视频 | 夜夜精品一区国产 | 日本一本二本三 | 国产激情一区二区 | 91成人精品亚洲高 | 欧洲女人性开放免费网站 | 日本精品99一区二区不卡 | 国产精品美脚玉足脚交欧美 | 色愉拍亚洲偷自拍 |