无码精品人妻一区二区三区入口-无码精品人妻一区二区三区夜夜嗨-无码精品人妻一区二区三区颖A片-无码精品日本一区二区桃花岛-无码精品网站-无码精品一

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

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

主站蜘蛛池模板: 国产v片在线播放免费无码 国产v片在线播放免费无遮挡 | 久久99精品久久久久久噜噜 | 国产精品无码久久 | 国产精品亚洲精品一区二区 | 国产人妖cd视频在线 | 97人人添人人澡人人澡人人澡 | 91久久香蕉 | 国产成人精彩视频在线观 | 日本午夜精品视频一区二区 | 国产理论剧情大片在线播放 | 国产h精品在线观看 | 亚洲制服另类无码专区 | 久久无码潮喷A片无码高潮动漫 | 国产成人无码综合亚洲日韩 | 2024一本久道久久综合狂躁 | 欧美一级免费在线观看 | 国产成人综合高清在线观看 | 人妻师生制服丝袜另类 | 久久人妻一区二区三区精品毛 | 国产4p精品观看 | 国产激情艳情在线看视频 | 伊人久久亚洲精品一区 | 人妻三级日本香港三级极97 | 国产av无码区亚洲av | 2024一本久道久久综合狂躁 | 免费又黄又硬又爽大片 | 日韩精品一区二区三区影院 | 91九色精品国产自产精品 | 国产精品亚洲一区二区 | 少妇老师寂寞高潮免费A片 少妇乱子伦精品无码 | 一个人看的免费高清www视频 | 丁香五月久久婷婷久久 | 国产人妖综合在线视频 | 丰满多毛少妇做爰视频 | 精品久久久国产中文 | 亚洲亚洲人成综合网络 | 东京热一区二区三区精品无码 | 色欲AV色情国产又爽又色 | 一本道久久爱88AV | 久久久久久久久影院 | 国产精品萌白酱在线观看 |