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

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

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

主站蜘蛛池模板: 天天色图片 | 欧洲精品va无码一区二区三区 | 午夜成年人网站 | 乱伦高清综合影 | 丁香五月天缴情在线 | 无码一区二区精品视频久久久 | 国产精品日韩电影制服丝袜 | 国产麻豆剧传媒精品国产av | 亚洲人妻无码中文字幕 | 丁香五月天刺激中文字幕亚洲天 | 99精品热视频这里只有精品7 | 国产一区二区三区在线精品专区 | 任我鲁精品视频精品 | 国产精品三级在线观看 | 国产成人无码精品久免费 | 精品国产偷窥一区二区久久 | av无码小缝喷白浆在线观看 | 久久99国产亚洲高清 | 国产精品视频一区二区三区四区 | 国产美女爽到尿喷出来视频 | 成人区人妻精品一区二 | 99在线观看一区二区三区 | 亚洲av永久无码一区二区三区 | 99久久九九社区精品 | 国产一区二区三区内射高清 | 动漫精品3d在线观看 | 丁香五月综合缴清中文 | 国产超级乱婬视频免费 | 亚洲欧美日韩视频高清专区 | 亚洲精品国偷拍自产在线观看蜜桃 | 黑人巨大精品欧美一区二区o | 精品一区二区三区视频免费观看 | 国产探花在线观看 | 国产亚洲精品久久久久久白晶晶 | 国产成人久久精品毛片 | 激情夜色 | 成人影院永久免费观看网址 | 国产91富婆在线观看91 | 久久久久久精品毛片aaaa级 | 高潮喷水香蕉视 | 国产精品一区二区99久久精品 |