97视频免费观看2区_无码A级毛片免费视频内谢_JAPANESEXXXX日本熟妇伦视频_国产精品主播在线_黄色大片视频观看性感_久久精品国际

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

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
級別: 探索解密
精華主題: 0
發帖數量: 73 個
工控威望: 186 點
下載積分: 696 分
在線時間: 45(小時)
注冊時間: 2010-01-04
最后登錄: 2015-12-14
查看yuantao0615的 主題 / 回貼
1樓  發表于: 2013-10-15 23:08
是不是因為ConnectivityPack沒有授權的緣故呢?

主站蜘蛛池模板: 国产伦理久久精品久久久久 | 午夜爽爽爽羞羞视频影院 | 护士做xxxxx免费看国产 | japanese old man中老年tv | 娇妻呻吟一区二区三区 | 嫂子的职业中文 | 内射后入在线观看一区 | 国产农村一级特黄α**毛片 | 福利在线免费视频 | 日本aⅴ精品一区二区三区 www99久久 | www.成人.com| 免费看国产曰批40分钟视频男 | 婷婷色中文字幕综合在线 | 亚洲日本欧美日韩中文字幕 | 粉嫩av一区二区国产精品 | 蜜桃视频在线网站 | 伊人免费观看 | 国产精品女同一区二区三区 | 国产在线中文字幕 | 女人牲交视频一级毛片 | 无码手机线免费观看 | 麻豆一区二区三区在线 | 国产男小鲜肉同志免费 | 日日狠狠久久8888偷偷色 | 91传媒免费?看 | 久久久免费大片 | 在火车上和少妇做爰 | wwwwxxxx欧美| 有码无码国产动漫婷婷久久 | 手机在线一区二区 | 欧美1区2区3区 | www.久久久com| 男男肉肉动漫无删减在线观看 | 美国人泡妞xxxxwww免费看 | 伊人av成人| 免费萌白酱国产一区二区三区 | 国产成人无精品久久久久国语 | 羞羞答答www网站进入 | 国产一区二区三区不卡在线观看 | 四虎国产精品成人永久免费影视 | 天天av天天好逼 |