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

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

闺蜜用sm玩我(女女)| 久久精品国产亚洲av伦理| 91人妻一区二区三区久久| 鸡巴肏的小穴还想要视频| 欧美露逼短视频| 中文人妻AV久久人妻水| 电影在线lll| av未满十八禁免费网站| 日本三级强伦姧护士HD| 99在线免费观看精品视频| 国产麻豆精品av在线观看| 国产精品久久码一区二区| 国产精品一区二区蜜桃久久| 丝袜 亚洲 日韩 另类| 迷人的保姆嗯嗯鸡巴好痒| 美女被男人大几把操骚逼| 久久久久久精品国产欧美| cao死你个小骚逼视频| 国产日韩欧美亚洲一级片| 2021年性爱喷水视频| 欧美高清观看免费全部完| 国产成人精品一区理论在线| 精品日韩人妻AV无受辱| 国产精品久久久久免费看| 国产91中文综合字幕日韩| 国模一少妇一A∨一AV| 大鸡巴搞逼骚话连篇视频| 东北乱轮色网站| 肌肌插小穴视频| 伊人久久综合精品永久图片| 五月综合丁香日韩精品91| 又爽又黄无遮挡激情视频| 吃奶头奶头硬硬的很舒服| 艹留守骚妇B穴| 日日摸夜夜添狠狠添欧美| 黄色小说浪视频| 免费无码又黄又爽又刺激| 国产av综合一区二区三区| 欧美亚洲另类一区二区三区| 男人疯狂日女人小穴视频| 美穴扣逼污下载|