久久99精品视频一区97_亚洲a免费在线观看_美欧日韩av无码一区二区_国产精品视频123_东京热一本无码av_99精品国产闺蜜国产在线闺蜜

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

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

主站蜘蛛池模板: 日本xxx护士 | 啪啪毛片| 国产精品88久久久久久妇女 | 免费黄网站欧美 | aa一级片 | 皇色在线视频 | 蜜桃传媒视频麻豆第一区免费观看 | 国产精品高潮久久久久无 | 上锁的房间中国版免费 | 日批日韩在线观看 | 91精品综合 | 天天色天天草 | 99久久婷婷国产亚洲终合精品 | 久久色宗合| 潜行者40集在线播放免费观看国语 | 性爱免费视频 | 久久精品久久综合 | 1100lu永久网址 | 国产69自拍 | 亚洲国产超高清a毛毛片 | 亚洲第一黄色网址 | 欧美精品一区二区三区蜜桃视频 | 91欧美视频网站 | 成人免费高潮片视频软件 | 成人免费视频一区二区三区 | 国产一区精品久久 | 国产欧美国产综合每日更新 | 成人精品动漫一区二区三区 | 国产精品一区二区三区免费视频 | 国产欧美成αⅴ人高清 | 免费骚视频 | 特级a级毛片 | 国产亚洲日韩AV在线播放不卡 | 国产精品久久久久久婷婷动漫 | 伊人75在线 | 精品一二三区视频 | 噜噜噜天天躁狠狠躁夜夜精品 | 99久久综合国产精品二区国产 | 午夜免费网站 | 国产日韩欧美成人 | 六月婷婷综合激情 |