欧洲色情三级欧美三级视频_国产成人无码av在线播放不卡_大地资源中文在线观看免费_午夜天堂AV天堂久久久_私人家庭影院在线_www.日韩在线

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

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

主站蜘蛛池模板: 91呆先生大战瑜伽老师 | 国产AV日韩AⅤ亚洲AV无码馆 | 坐在男人嘴上让他添在线视频 | 女同久久精品国产99国产精品网站 | 久久婷婷色一区二区三区asmr | 女国产精品视频一区二区三区 | 亚洲AV永久无码精品水牛影视 | 免费麻豆国产一区二区三区四区 | 亚洲成aⅴ人片乱码色午夜 日韩在线免费av | 久久国产精久久精产国 | 一区二区三区免费av | 无码男男做受G片在线观看视频 | 亚洲图片欧美激情一区 | 国产伦91| 久久国产欧美精品 | 国产伦精品一区二区三区四区免费 | 中文字幕在线色 | 国产av激情无码久久 | 免费看欧美黄色片 | 欧美a级影院 | 少妇秘书调教在线91 | 久久久久99啪啪免费 | 在线成人毛片 | 久久久久亚洲精品 | 国产免费一区二区三区四区 | 九一免费版网站在线?看 | 亚洲欧美日韩成人在线 | 香蕉av网站 | 手机av网址 | 一级黄色网 | 国产人人澡 | 大尺度裸体日韩羞羞xxx | 欧洲性XXXX免费视频在线观看 | 香港a毛片免费全部播放 | 黄色一级网站视频 | 欧日韩在线视频 | 久久久久久久久久久中文字幕 | 国产一二三区免费视频 | 久久特级毛片 | 午夜精品在线观看 | 长江有色金属网金属交易网 |