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

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

夜夜草视频在线免费观看| 国产精品欧美精品日韩精品| 国产AⅤ无码精品色午夜| 国产欧美成人综合色就色| 欧美日韩亚洲精品亚洲欧洲| 亚洲小妹久久久精品午夜片| 欧美性爱播放器| 亚洲精品乱码久久久蜜臀| 男生狂操白丝女生的视频| 亚洲欧洲成A∨在线观看| 亚洲午夜福利片在线观看| 黄色网站视频裸体大鸡巴| 单亲乱对白视频在线观看| caowoav| 欧美一级A大片免费观看| 国产又爽又湿又色的视频| 俺去了俺来也在色线播放| 毛片免费看无码喷水高潮| 天堂网av手机在线播放| 一级片在线观看夫妻生活| 五月天婷婷精品免费视频| 大香煮五月天一区二区在线 | 欧美国产精品 一区二区| 国产富婆做全套视频高潮| 99国产精品51788| H肉视频无遮挡在线播放| 色先锋久久亚洲中文字幕| 欧美成人aaaaa熟女| 影音先锋男人男人资源站| 玩弄邻居少妇呻吟11p| 中文字幕日韩电影亚洲电影 | 日本免费看成人片的网站| 自拍 偷拍 亚洲 经典| 久久老子无码午夜伦不卡| 中文字幕欧美人妻精品一区| 国产精品乱码一区二三区| 9999久久久久久亚洲| 我爱操翘臀美女的小骚屄| 99er视频在线免费观看| 成人av电影一区二区三区| 天海翼一区二区三区免费|