东京热无码人妻系列综合网站_国产精品性色一区二区三区_网站大全免费网站_又爽又黄无遮拦成人网站_黄色影院免费观看_奇米影视在线观看

yuantao0615
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 73 個(gè)
工控威望: 186 點(diǎn)
下載積分: 696 分
在線時(shí)間: 45(小時(shí))
注冊(cè)時(shí)間: 2010-01-04
最后登錄: 2015-12-14
查看yuantao0615的 主題 / 回貼
樓主  發(fā)表于: 2013-10-15 17:21
這段代碼在WINCC6.2中可以讀出歸檔數(shù)據(jù),在WINCC7.0中為什么卻完全讀不出來(lái)歸檔數(shù)據(jù)呢?
求高手指導(dǎo)啊!!!急急!!!!!!

Dim sPro, sDsn, sSer, sCon, sSql
    Dim conn, oRs, oCom
    Dim DSNName
    Dim i As Integer
    Dim sStart, sStop As String
    
Sub get_wincc_data()

    '--Get Database DSN name-----------------------------------
    Set DSNName = CreateObject("CCHMIRuntime.HMIRuntime")
    sDsn = DSNName.Tags("@DatasourceNameRT").Read
    
    '--build connection string-----------------------------------
    sPro = "Provider=WinCCOLEDBProvider.1;"
    sDsn = "Catalog=" & sDsn & ";"
    sSer = "Data Source=ZHANG\WinCC"
    sCon = sPro & sDsn & sSer
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = sCon
    conn.CursorLocation = 3
    conn.Open
    Set oRs = CreateObject("ADODB.Recordset")
    Set oCom = CreateObject("ADODB.Command")
    oCom.CommandType = 1
    Set oCom.ActiveConnection = conn
    
  
    sStart = Year(DTPicker1.Value) & "-" & Month(DTPicker1.Value) & "-" & Day(DTPicker1.Value) & " 00:00:00"
    sStop = Year(DTPicker1.Value) & "-" & Month(DTPicker1.Value) & "-" & Day(DTPicker1.Value) & " 23:00:00"
    
  
     sStart = DateAdd("h", -8, CDate(sStart))
     sStop = DateAdd("h", -8, CDate(sStop))
    
  
     sSql = "Tag:R,('ProcessValueArchive\Fan1_T1'),'" & sStart & "','" & sStop & "' order by datetime"
     oCom.CommandText = sSql
    Set oRs = oCom.Execute
    If (oRs.EOF) Then
       oRs.Close
    Else
        oRs.MoveFirst
        i = 0
        Do While Not oRs.EOF
        Sheet1.Cells(i + 4, 2) = oRs.Fields("RealValue").Value
        oRs.MoveNext
        i = i + 1
        Loop
        oRs.Close
    End If
  

    sSql = "Tag:R,('ProcessValueArchive\Fan1_T2'),'" & sStart & "','" & sStop & "' order by datetime"
    oCom.CommandText = sSql
    Set oRs = oCom.Execute
    If (oRs.EOF) Then
       oRs.Close
    Else
        oRs.MoveFirst
        i = 0
        Do While Not oRs.EOF
        Sheet1.Cells(i + 4, 3) = oRs.Fields("RealValue").Value
        oRs.MoveNext
        i = i + 1
        Loop
        oRs.Close
    End If

    sSql = "Tag:R,('ProcessValueArchive\Fan1_P1'),'" & sStart & "','" & sStop & "' order by datetime"
    oCom.CommandText = sSql
    Set oRs = oCom.Execute
    If (oRs.EOF) Then
        oRs.Close
    Else
        oRs.MoveFirst
        i = 0
        Do While Not oRs.EOF
        Sheet1.Cells(i + 4, 4) = oRs.Fields("RealValue").Value
        oRs.MoveNext
        i = i + 1
        Loop
        oRs.Close
    End If
    
  
    sSql = "Tag:R,('ProcessValueArchive\Fan1_P2 '),'" & sStart & "','" & sStop & "' order by datetime"
    oCom.CommandText = sSql
    Set oRs = oCom.Execute
  
    If (oRs.EOF) Then
       oRs.Close
    Else
        oRs.MoveFirst
        i = 0
        Do While Not oRs.EOF
        Sheet1.Cells(i + 4, 5) = oRs.Fields("RealValue").Value
        oRs.MoveNext
        i = i + 1
        Loop
        oRs.Close
    End If
    
Set oRs = Nothing
Set conn = Nothing
End Sub


Private Sub DTPicker1_Change()
clear_cell get_wincc_data
End Sub

Sub clear_cell()
For i = 4 To 27
  For j = 2 To 5
  Cells(i, j) = ""
  Next j
Next i
End Sub
yuantao0615
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 73 個(gè)
工控威望: 186 點(diǎn)
下載積分: 696 分
在線時(shí)間: 45(小時(shí))
注冊(cè)時(shí)間: 2010-01-04
最后登錄: 2015-12-14
查看yuantao0615的 主題 / 回貼
1樓  發(fā)表于: 2013-10-15 23:08
是不是因?yàn)镃onnectivityPack沒(méi)有授權(quán)的緣故呢?

主站蜘蛛池模板: 亚洲AV无码专区日韩乱码 | 精品久久亚洲 | 日韩在线视频观看免费 | 日韩国产欧美一区二区三区 | 成人免费a级毛片无码片在线播放 | 亚洲综合久久av | 精品国产sm最大网站在线观看 | 久久久久人妻综合免费无码 | 男同男性xx视频在线观看免费 | 国内精品久久久久国产盗摄 | 91小视频在线观看 | 亚洲国产播放 | 青青草91久久久久久久久 | 国产亚洲精品拍拍拍拍拍 | 91精品国产91久久久久久最新 | 日产精品久久久一区二区 | 国产盗摄XXXX视频XXXⅩ | 国产精品午夜无码av体验区 | 精品综合久久久久久99粉芽 | 一区二区三区四区在线观看视频 | 国产精品久久久久77777丨 | 久久国产精品久久国产精品 | 亚洲午夜理论片精品无码推荐 | 2021av天堂网手机版高清 | 久久久久日本精品一区二区三区 | JAPANESE强迫第一次 | 国产午夜精品一区二区三区在线观看 | 99成人精品| 日处女视频 | 国产亲子乱 | 亚洲精品中文字 | 夜夜摸夜夜添夜夜添破 | 狠狠色丁香久久婷婷综合蜜芽五月 | a毛片成人免费全部播放 | 1级片无码高清久久久 | 无码人妻精品一区二区三区夜夜嗨 | 91久久综合精品国产丝袜长腿 | 国产欧美另类久久久精品91区 | 久久精品国产99国产 | 欧美精品国产第一区二区 | 亚洲欧美第一页 |