伊人激情av一区二区三区,亚洲国产精品一区二区制服,国产高潮流白浆喷水免费,老外插女人视频

sxd566
級別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看sxd566的 主題 / 回貼
樓主  發(fā)表于: 2011-10-08 13:46
我剛接觸wincc,現(xiàn)在要在wincc里做一個月報表,需要每天在當(dāng)天結(jié)束時將數(shù)據(jù)庫中的日表里的每項數(shù)據(jù)讀出來求平均值再寫入月表里,現(xiàn)在沒辦法實現(xiàn)數(shù)據(jù)讀取,可能是連接不到數(shù)據(jù)庫,
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() '系統(tǒng)時間
    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語句在報表編輯器中的動態(tài)表格中測試是可以的

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

日韩 欧美 中文 自拍| 欧美xx videos| 免费在线中文字幕一区二区| 91福利社区试看30秒| 十八禁国产污污的在线观看| 成人久久精品国产亚洲av| 国产一区二区三区黄片:| 一进一出真人试看60秒| 久久成本人网站| 太骚了视频网站在线观看| 日本美女和帅哥操逼黑丝| 亚洲日本在线一区二区三区| 国产精品美女久久久久久| 国产丰满老熟好大bbb| 久久精品国产麻豆9久久| 亚洲国产精品日韩一线满| 非洲黄色视频网站在线看| 6080欧美a大片一级| 国产精品无遮挡猛进猛出| 国产纯白嫩无套内谢视频| 一区二区乱子伦在线播放| 99精品国产电影一区二区| 本道区二区三区香蕉蜜桃| 久久视频这里只精品10| 骚逼骚货想要大鸡巴视频| 日本不卡免费一区二区视频| 男受被做哭激烈娇喘音频| 60秒动态视频在线观看| 色婷婷一区二区三区蜜桃| 欧洲精品人人视频免费看| 777米奇在线视频无码| 强奸伦影音先锋| 中文日产乱幕九区无线码| 欧美 亚洲 日本 日韩| 男人和女人日皮高潮小说| 把胸罩扒了狂揉视频免费| 小舞爆乳下裸羞无码视频| 亚洲欧美日韩成人综合在线| 那同房前做什么能更持久| 日本中文无线码在线观看| 人体艺术东京热|