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

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

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

主站蜘蛛池模板: 91麻豆国产高清产精 | 天天躁人人躁人人躁狂躁 | 国产精品va无码免费 | 四虎精品 | 国产精品福利片免费看 | 成人黄色av播放 | 精品少妇无码av无码专区 | 久久精品人妻一区二区三区蜜柚 | 2024年国产免费高清不卡视频 | AV每日更新在线观看 | 久久久久久亚洲精品人妻少妇 | 国产高清无码精油按摩 | 国产交换配乱婬 | 好男人免费影院www神马 | 99久久无码一区人妻a片 | 99久久婷婷国产综合精品电影 | 欧美激情肉欲高潮无码鲁大师 | 丰满少妇a级毛片 | 无码国产精品一区二区免费i6 | 国产免费人成视频尤勿视频 | 亚洲一区二区三区无码中文字幕 | 国产制服丝袜在线一区 | 91久久中文精品无码中文字幕 | 99久久国产精品亚洲 | 国产精品一区久久 | 乱码丰满人妻一二三区 | 欧美特级另类xxx | 强壮的公次次弄得我高潮A片日本 | 97无码人妻精品1国产精东影业 | 97人妻超在线观看免费 | 久久久国产精品成人片 | 久久无码人妻热线精品 | 亚洲精品一区二区成人 | 日本欧美一二三区色视频 | 精品日韩在线观看 | 日本欧美视频在线观看 | 国产a毛片高清日日夜 | 成人乱码一区二区三区av | 国产a级毛片久久久久久 | 五月丁香婷婷手机在线观看 | 69日本人xxxxxhd高清资源在线播放 |