欧洲色情三级欧美三级视频_国产成人无码av在线播放不卡_大地资源中文在线观看免费_午夜天堂AV天堂久久久_私人家庭影院在线_www.日韩在线

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

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

主站蜘蛛池模板: 西西人体www大胆高清仙踪林 | 国产99久久九九精品免费 | 大屁股xxxxx 天天插夜夜骑 | 日韩视频播放 | 日韩av手机观看 | 一区二区在线视频观看 | 午夜精品a片一区二区三区 国产成人午夜精品影院游乐网 | 绯色av中文字幕一区三区 | 日本同性老头 | 久久精品国产68国产精品亚洲 | 综合激情久久 | 日韩日比视频 | 亚洲国产精品一区久久av篠田 | 免费gogo少妇大尺寸视频 | 色爱亚洲| 波多野结衣一区三区 | 欧美日韩人妻精品一区二区三区 | 日本免费专区 | 欧美日韩国产一区二区三区 | 一夜新娘第三季在线观看 | 国产精品亚洲αv天堂无码 东北农村一级毛片 | 亚洲精品一区二区四区 | 亚韩在线 | 又爽又黄又无遮挡的激情视频 | 国产欧精精久久久久久久 | 日韩手机在线网站 | 欧美精品在线免费 | 三年片在线观看大全中国 | 性少妇xx | 国产精品字幕 | 国产成人愉拍免费视频 | 久久婷婷五月综合色首页 | 色播97| 国产乱妇4p交换乱免费视频 | 国产欧美亚洲精品 | 91成人短视频在线观看 | 人与人一级毛片 | 亚洲高清国产拍精品青青草原 | 中文字幕资源 | 水卜樱一区二区av | 国产欧美另类久久久精品图片 |