亚洲国产精品一区二区久久hs,国产精品久久久久久久久久直播,亚洲人成色7777在线观看不卡,国产亚洲精品久久19p,免费无码又爽又刺激高潮视频

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語句在報表編輯器中的動態表格中測試是可以的

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

主站蜘蛛池模板: 亚洲不卡av不卡一区二区| 永久黄网站色视频免费| 人人鲁人人莫人人爱精品| 久久久无码精品亚洲日韩蜜桃| 亚洲av永久无码精品表情包| 精品亚洲成a人片在线观看| 小雪好紧好滑好湿好爽视频| 无码人妻一区二区三区免费看| 成全世界免费高清观看| 国产精品成人va在线观看| 日韩在线中文高清在线资源| 特级西西人体444www高清大胆| 精品一区二区久久久久久久网站| 台湾佬中文娱乐网22| 天天夜碰日日摸日日澡| 最新版天堂中文在线官网| 国产md视频一区二区三区| 品色堂免费论坛| 无码专区狠狠躁躁天天躁| 国产精品久久久久久久久绿色| 亚洲成a人片在线观看无码专区| 国产内射爽爽大片视频社区在线| 小蜜被两老头吸奶头在线观看| 国产三级精品三级男人的天堂| 大胸少妇午夜三级| 丰满多毛的大隂户毛茸茸| 精品少妇人妻av一区二区| 日本大乳高潮视频在线观看| 97午夜理论片在线影院| 欧美日韩精品一区二区三区高清视频| 亚洲av无码av在线播放| 丰满少妇人妻无码专区| а√天堂www在线а√天堂视频| 国产精品无套内射迪丽热巴| 免费看又黄又无码的网站| 欧美两根一起进3p做受视频| 亚洲另类激情专区小说图片| 成人自慰女黄网站免费大全 | 国产丰满美女a级毛片| 国产亚洲av片在线观看播放| 久久99精品久久久大学生|