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

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

国内国外精品影片无人区| 制服白虎黑丝骚逼40p| 日韩精品20p| 在线观看黑丝美女被乱c| 看啪逼淫秽视频| 激情综合欧美一区二区三区| 男男插菊花网站在线观看| 久久久亚洲综合| 免费看女生小鸡鸡网站下| 国产大陆操逼。| 女人张开腿让男人桶不停| 日本熟妇俱乐部xxxx| 免费看撕开内衣揉吮奶头| 欧美大片黄精品一区二区| 挖词日本中文字幕不卡40| 操校花菊花屁眼视频网站| 911亚洲精品视频在线| 国产69精品久久久久免费| 色综合久久网| 好吊色视频这里只有精品| 色婷婷国产一二三区大香蕉| 9孩岁女被A片免费观看| 鸡吧插插插插插| 黑屌日逼操穴网| AV天堂精品久久久久2| 精品欧美一区二区三区午夜| 欧美欧美性videos| 在线观看不卡的无码视频| 美女被操逼流水调教视频| 大肉棒插入骚穴免费视频| 亚洲精品久久久久久国产| 欧美日韩大片免费网公司| 狗鸡巴插女人逼视频免费| 日本老太性高潮| 国产精品久久久久老太免费| 久久久亚洲视频免费观看| 日本东京热影院一区二区| 无码精品人妻一区人妻斩| 亚洲产大香伊人蕉在线播放 | 亚洲 欧洲 另类 春色| 国产成人亚洲精品成人区|