亚洲国产精品一区二区久久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語句在報表編輯器中的動態表格中測試是可以的

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

主站蜘蛛池模板: www片香蕉内射在线88av8| 性色av蜜臀av色欲av| 久久久久国产精品嫩草影院| 亚洲乱码国产乱码精品精| 无码中文人妻在线一区二区三区| 亚洲和欧洲一码二码区别7777| 国产真人无码作爱免费视频app| 亚洲国产精品一区二区成人片| 疯狂做受xxxx国产| 日产欧美国产日韩精品| 国产精品久久久久免费a∨| 小13箩利洗澡无码视频免费网站| 三年片免费观看大全国语动漫 | 国产一区二区三区小说| 蜜臀av性久久久久蜜臀aⅴ麻豆| 无码人妻久久一区二区三区app| 欧美激情黑人极品hd| 久久亚洲av无码精品色午夜麻豆| 黄又色又污又爽又高潮动态图| 日韩毛片无码永久免费看| 亚洲国产综合精品 在线 一区| 中文字幕丰满乱子无码视频| 中文字幕免费不卡二区| 久久精品国产精品亚洲下载| 丰满少妇弄高潮了www| 无码精品a∨在线观看中文| 激情国产av做激情国产爱| 亚洲熟女一区二区三区| 亚洲精品456在线播放| 国产欧美日韩va另类在线播放| 丁香五香天堂网| 国产粗话肉麻对白在线播放| 日本真人添下面视频免费| 脱了美女内裤猛烈进入| 国产真实迷奷在线播放| 精品国产乱码久久久久久鸭王1| 久久夜色精品国产噜噜亚洲av| 国产精品v欧美精品∨日韩| 成人久久免费网站| 66lu国产在线观看| 色偷偷88888欧美精品久久久|