Spreadsheet 如何循环填充数据库数据？

2017年7月26日上午2:29 • SIMATIC WinCC

求脚本，谢谢大神！

最佳答案

填充spreadsheet控件代码：这是一路的
连接字符串：
Dim tagDSNName,sPro,sDsn,sSer,sCon
Set tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")
  sdsn=tagDSNName.Read
    sPro = "Provider=WinCCOLEDBProvider.1;"
    sDsn = "Catalog=" & sDsn & ";"
    sSer = "Data Source=.\WinCC"
    sCon = sPro & sDsn & sSer
查询字符串：
sSql = "Tag:R,(””””ProcessValueArchive\INCOD””””),””””" & sStart & "””””,””””" & sStop & "””””"
oCom.CommandText = sSql
    Set oRs = oCom.Execute
    m = oRs.recordCount
If m > 0 Then
     EL1=1
        oRs.MoveFirst
        i = 0
        k = 0
        Do While Not oRs.EOF
  tim=GetLocalDate(oRs.Fields(1).Value) ””””得到当地时间，从格林尼治时间转换过来的
  If Hour(tim)=k Then
  objExcelApp.Worksheets(sheetname).cells(i+8,2).value = Round(oRs.Fields(2).Value,2)
  oRs.MoveNext
  Else
  objExcelApp.Worksheets(sheetname).cells(i+8,2).value = "#"
  End If
        i = i + 1
        k = k + 1
        Loop
        k=24-k
        For j=0 To k-1
        objExcelApp.Worksheets(sheetname).cells(24-k+8+j,2).value = "#"
        Next
    Else
  EL1=0
        End If
        oRs.Close
这段读取代码加了空值的处理，希望你能看懂。
淘宝有卖报表培训教材的，搜wincc报表就能看到，带实例。
如果有其他问题，可以加2606352062联系我

提问者对于答案的评价：
求针对 Spreadsheet 的关键代码董工谢谢你！

最佳答案作者回复:
spreadsheet没有关键代码，他就是个显示控件而已跟其他的控件一样，都需要操作他的属性和方法来显示东西。我倒是整理了这个控件的大多数操作代码，还有其他控件的属性方法。不过这个东西我只写在了自己的教程里。所以不方便给你。网上你可以搜一下。很多。只不过没经过wincc的测试而已。你可以自己去实际测试一下。

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc188189.html

Spreadsheet 如何循环填充数据库数据？

相关推荐