伊人激情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)表格中測試是可以的

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

操欧美裸体美女肥嫩的逼| 91人国产精品亚洲播放| 黄色av免费电影一区二区| 亚洲欧美日韩av一区二区| 午夜 青草视频免费观看| 欧美日韩一区二区成人在线| 中文字幕在线播放不卡一区| 国产精品永久久久久免费| 毛片日韩毛片可以直接看的| 91精品国产午夜福利在线| 男生和女生做污污的网站| 91久视频裸体在线观看| 99爱精品视频在线视频| 操日本美女侣一区二区三区| 粗黑黑的阴道毛视频网站| 亚洲av综合a国产av| 韩国三级白世莉在线观看| 国产精品自在线| AV在线免费下载的网站| 91麻豆国产福利免费片| 天天日天天舔天天干天天| 黄色三级片国产精品无码| 掰开双腿让人操淫秽视频| 日韩欧美亚洲国产一区二区| 日韩美女一区二区三区视频| 鲁和美女的黄色一级大片| 日韩精品中文字幕国产在线| 3d女神用肉棒插逼视频| 大鸡巴草逼操骚穴操逼网 | 男人和女人日皮高潮小说| 好骚的嫩逼水真多久久久| 鸡吧插穴动态图| 啊啊被黑人插出白浆啊啊| 一区二区三区国产精华液| 全色黄大色大片免费观看| 久久精品久久精品亚洲人| 九九re热国产精品视频| 666人体欧洲人体亚洲| 九九热视频经典在线观看| 啊啊要用力啊逼好爽视频| 国产免费AV女|