wincc与数据库sql server之间的数据存储

最新推荐文章于 2024-04-28 18:44:22 发布
最新推荐文章于 2024-04-28 18:44:22 发布
阅读量3.5k 收藏 18
点赞数 4
文章标签： 数据库 服务器 microsoft
原文链接：https://blog.csdn.net/qq_41684589/article/details/112475330?spm=1001.2101.3001.6650.1&utm_medium=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7Edefault-1-112475330-blog-2454388.pc_relevant_baidufeatures_v5&depth_1-utm_source=di
版权

这里写自定义目录标题

实现目标：1、把wincc中变量，存储到SQL数据库中

                  2、查询数据库内容，在控件中显示

 

步骤：1、软件wincc 7.3、wincc安装自带的sql server 2008 R2 

2、新建数据库

3、新建wincc项目--变量建立

4、所用到的控件

5、画面打开脚本：主要实现最新数据显示、连接数据库、控件设置等


 
 
  1. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Sub OnOpen()   
    
    
    
   
   
  2. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  3. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  4. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  5. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim kj1,kj2,kj3,kj4,kj5,kj6
    
    
    
   
   
  6. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim QR
    
    
    
   
   
  7. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim MSFlexGrid1   
     
     '对应表格控件名称
    
    
    
   
   
  8. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim LocalBeginTime, LocalEndTime,riqi
    
    
    
   
   
  9. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim oRs,oRs1,n,n1,i,z,s1,s11,oCom,oCom1,strcn,conn,pj
    
    
    
   
   
  10. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim zxy1
    
    
    
   
   
  11. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     '查询当天全部数据，除了控件名称要注意修改外，以上其他为标准
    
    
    
   
   
  12. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set MSFlexGrid1 = ScreenItems(
     
     "aaaa") 
     
     '对应表格控件名称
    
    
    
   
   
  13. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  14. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     riqi = Now
    
    
    
   
   
  15. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  16. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     LocalBeginTime = Year(riqi) & 
     
     "-" & Month(riqi) & 
     
     "-" & Day(riqi) & 
     
     "" & 
     
     "00:00:00"
    
    
    
   
   
  17. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     LocalEndTime = Year(riqi) & 
     
     "-" & Month(riqi) & 
     
     "-" & Day(riqi) & 
     
     "" & 
     
     "23:59:59"
    
    
    
   
   
  18. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  19. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     s1 = 
     
     "SELECT DT,name,a,b,c,d,e FROM en WHERE DT BETWEEN '" & LocalBeginTime & 
     
     "' And '" & LocalEndTime & 
     
     "'ORDER BY DT"
    
    
    
   
   
  20. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     's1后面的内容要对应数据库中列的内容，后面的DT与前面的DT要名称一致，enen要对应数据库列表名称dbo的名称
    
    
    
   
   
  21. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     strcn = 
     
     "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=wang;Data Source=.\wincc"
    
    
    
   
   
  22. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  23. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set conn = CreateObject(
     
     "ADODB.Connection")
    
    
    
   
   
  24. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  25. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.ConnectionString = strcn
    
    
    
   
   
  26. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  27. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.CursorLocation = 
     
     3
    
    
    
   
   
  28. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  29. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.Open
    
    
    
   
   
  30. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     's1 = "SELECT DT,name,a,b,c,d,e FROM en WHERE DT BETWEEN '" & LocalBeginTime & "' And '" & LocalEndTime & "'ORDER BY DT"
    
    
    
   
   
  31. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'Set oRs = CreateObject("ADODB.Recordset")
    
    
    
   
   
  32. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oRs = CreateObject(
     
     "ADODB.Recordset")
    
    
    
   
   
  33. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oCom = CreateObject(
     
     "ADODB.Command")
    
    
    
   
   
  34. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  35. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     oCom.CommandType = 
     
     1
    
    
    
   
   
  36. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oCom.ActiveConnection = conn
    
    
    
   
   
  37. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     oCom.CommandText = s1   
     
     '执行检索功能
    
    
    
   
   
  38. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oRs = oCom.Execute
    
    
    
   
   
  39. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'n = oRs.RecordCount  '获得检索到的总数
    
    
    
   
   
  40. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  41. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'HMIRuntime.Tags("I3").Write n
    
    
    
   
   
  42. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  43. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  44. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.Clear
    
    
    
   
   
  45. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.Rows = oRs.RecordCount + 2
    
    
    
   
   
  46. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     0) = 
     
     1500
    
    
    
   
   
  47. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     1) = 
     
     2000
    
    
    
   
   
  48. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     2) = 
     
     1500
    
    
    
   
   
  49. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     3) = 
     
     1500
    
    
    
   
   
  50. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     4) = 
     
     1500
    
    
    
   
   
  51. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     5) = 
     
     1500
    
    
    
   
   
  52. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     6) = 
     
     1500
    
    
    
   
   
  53. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     7) = 
     
     1500
    
    
    
   
   
  54. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  55. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.RowHeight(
     
     0) = 
     
     1200
    
    
    
   
   
  56. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.RowHeight(
     
     1) = 
     
     600
    
    
    
   
   
  57. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  58. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.Row = 
     
     0
    
    
    
   
   
  59. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     For z = 
     
     0 
     
     To 
     
     7
    
    
    
   
   
  60. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.CellFontSize = 
     
     12
    
    
    
   
   
  61. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.Col = z
    
    
    
   
   
  62. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.
     
     Text = 
     
     "工况信息表"
    
    
    
   
   
  63. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
     
     Next 
    
    
    
   
   
  64. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.MergeCells = 
     
     4
    
    
    
   
   
  65. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.MergeRow(
     
     0) = 
     
     True
    
    
    
   
   
  66. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  67. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.Row = 
     
     1
    
    
    
   
   
  68. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  69. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
     
     For z = 
     
     0 
     
     To 
     
     7
    
    
    
   
   
  70. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
      MSFlexGrid1.Col = z
    
    
    
   
   
  71. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  72. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
      MSFlexGrid1.CellBackColor = vbCyan
    
    
    
   
   
  73. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
     
     Next
    
    
    
   
   
  74. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     0) = 
     
     "序号"
    
    
    
   
   
  75. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     1) = 
     
     "日期"
    
    
    
   
   
  76. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     2) = 
     
     "名称"
    
    
    
   
   
  77. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     3) = 
     
     "重量(kg)"
    
    
    
   
   
  78. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     4) = 
     
     "高度(mm)"
    
    
    
   
   
  79. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     5) = 
     
     "流量"
    
    
    
   
   
  80. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     6) = 
     
     "压力"
    
    
    
   
   
  81. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     7 )= 
     
     "温度"
    
    
    
   
   
  82. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  83. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  84. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     0) = 
     
     4
    
    
    
   
   
  85. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     1) = 
     
     4
    
    
    
   
   
  86. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     2) = 
     
     4
    
    
    
   
   
  87. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     3) = 
     
     4
    
    
    
   
   
  88. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     4) = 
     
     4
    
    
    
   
   
  89. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     5) = 
     
     4
    
    
    
   
   
  90. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     6) = 
     
     4
    
    
    
   
   
  91. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     7) = 
     
     4
    
    
    
   
   
  92. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
       
    
    
    
   
   
  93. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
       
     
     If (n > 
     
     0)
     
     Then 
    
    
    
   
   
  94. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
       
    
    
    
   
   
  95. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             oRs.MoveFirst
    
    
    
   
   
  96. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             i = 
     
     0
    
    
    
   
   
  97. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
     
     Do 
     
     While 
     
     Not oRs.EOF
    
    
    
   
   
  98. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             n = n + 
     
     1
    
    
    
   
   
  99. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
    
    
    
   
   
  100. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     0) = i
    
    
    
   
   
  101. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     1) = oRs.Fields(
     
     0).Value
    
    
    
   
   
  102. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     2) = oRs.Fields(
     
     1).Value
    
    
    
   
   
  103. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     3) = oRs.Fields(
     
     2).Value
    
    
    
   
   
  104. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     4) = oRs.Fields(
     
     3).Value
    
    
    
   
   
  105. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     5) = oRs.Fields(
     
     4).Value
    
    
    
   
   
  106. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     6) = oRs.Fields(
     
     5).Value
    
    
    
   
   
  107. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     7) = oRs.Fields(
     
     6).Value
    
    
    
   
   
  108. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  109. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
    
    
    
   
   
  110. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             i = i + 
     
     1
    
    
    
   
   
  111. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             oRs.MoveNext
    
    
    
   
   
  112. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
     
     Loop
    
    
    
   
   
  113. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             conn.Close
    
    
    
   
   
  114. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
                 MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 
     
     1
    
    
    
   
   
  115. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
     
     Else
    
    
    
   
   
  116. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
              MsgBox 
     
     "您所查询的时段没有数据......"
    
    
    
   
   
  117. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             oRs.Requery
    
    
    
   
   
  118. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             conn.Close
    
    
    
   
   
  119. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
     
     End 
     
     If
    
    
    
   
   
  120. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
    
    
    
   
   
  121. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     End 
     
     Sub

6、全局动作--在控件中循环显示当前最新数据


 
 
  1. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Function action
    
    
    
   
   
  2. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  3. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim sCon,conn,oRs,n,i,s1,oCom,strcn,z
    
    
    
   
   
  4. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim riqi,mazhi,qxlx,qxwz,ok
    
    
    
   
   
  5. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim MSFlexGrid1
    
    
    
   
   
  6. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim LocalBeginTime,LocalEndTime
    
    
    
   
   
  7. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R_JC,Weight,R_FC,GBD
    
    
    
   
   
  8. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim J1
    
    
    
   
   
  9. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set J1 = HMIRuntime.Tags(
     
     "aa")
    
    
    
   
   
  10. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     J1.Read
    
    
    
   
   
  11. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     If J1.Read 
     
     Then
    
    
    
   
   
  12. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     J1.Write 
     
     0
    
    
    
   
   
  13. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Else
    
    
    
   
   
  14. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     J1.Write 
     
     1
    
    
    
   
   
  15. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set MSFlexGrid1 = HMIRuntime.Screens(
     
     "首页.画面窗口1:报表信息").ScreenItems(
     
     "aaaa")
    
    
    
   
   
  16. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  17. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     riqi = Now
    
    
    
   
   
  18. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  19. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim name
    
    
    
   
   
  20. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set name = HMIRuntime.Tags(
     
     "name1")
    
    
    
   
   
  21. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     name.Read
    
    
    
   
   
  22. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  23. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R1
    
    
    
   
   
  24. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R1 = HMIRuntime.Tags(
     
     "a")
    
    
    
   
   
  25. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R1.Read
    
    
    
   
   
  26. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  27. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R2
    
    
    
   
   
  28. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R2 = HMIRuntime.Tags(
     
     "b")
    
    
    
   
   
  29. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R2.Read
    
    
    
   
   
  30. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  31. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R3
    
    
    
   
   
  32. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R3 = HMIRuntime.Tags(
     
     "c")
    
    
    
   
   
  33. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R3.Read 
    
    
    
   
   
  34. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  35. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R4
    
    
    
   
   
  36. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R4 = HMIRuntime.Tags(
     
     "d")
    
    
    
   
   
  37. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R4.Read
    
    
    
   
   
  38. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  39. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R5
    
    
    
   
   
  40. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R5 = HMIRuntime.Tags(
     
     "e")
    
    
    
   
   
  41. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R5.Read 
    
    
    
   
   
  42. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  43. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     If name.Value = 
     
     "" 
     
     Then
    
    
    
   
   
  44. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Else 
    
    
    
   
   
  45. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'sCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=wang;Data Source=.\wincc"
    
    
    
   
   
  46. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'Set conn = CreateObject("ADODB.Connection")
    
    
    
   
   
  47. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'conn.ConnectionString = sCon
    
    
    
   
   
  48. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'conn.CursorLocation = 3
    
    
    
   
   
  49. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'conn.Open
    
    
    
   
   
  50. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'Set oRs = CreateObject("ADODB.Recordset")
    
    
    
   
   
  51. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  52. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'Set oCom = CreateObject("ADODB.Command")
    
    
    
   
   
  53. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  54. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'oCom.CommandType = 1
    
    
    
   
   
  55. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'Set oCom.ActiveConnection = conn
    
    
    
   
   
  56. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  57. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     's1 = "insert into en (DT,name,a,b,c,d,e) Values ( '"&riqi&"','"&name.Value&"','"&R1.Value&"','"&R2.Value&"','"&R3.Value&"','"&R4.Value&"','"&R5.Value&"')"
    
    
    
   
   
  58. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'conn.Execute s1
    
    
    
   
   
  59. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'conn.Close
    
    
    
   
   
  60. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  61. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  62. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.Rows = MSFlexGrid1.Rows + 
     
     1
    
    
    
   
   
  63. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  64. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     n = MSFlexGrid1.Rows
    
    
    
   
   
  65. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TextMatrix(n-
     
     1,
     
     0) = n - 
     
     3
    
    
    
   
   
  66. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TextMatrix(n-
     
     1,
     
     1) = riqi
    
    
    
   
   
  67. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TextMatrix(n-
     
     1,
     
     2) = name.Value
    
    
    
   
   
  68. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TextMatrix(n-
     
     1,
     
     3) = R1.Value
    
    
    
   
   
  69. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TextMatrix(n-
     
     1,
     
     4) = R2.Value
    
    
    
   
   
  70. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TextMatrix(n-
     
     1,
     
     5) = R3.Value
    
    
    
   
   
  71. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TextMatrix(n-
     
     1,
     
     6) = R4.Value
    
    
    
   
   
  72. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TextMatrix(n-
     
     1,
     
     7) = R5.Value
    
    
    
   
   
  73. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  74. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  75. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 
     
     1
    
    
    
   
   
  76. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
        
     
     End 
     
     If
    
    
    
   
   
  77. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
        
     
     End 
     
     If
    
    
    
   
   
  78. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  79. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     End 
     
     Function

7、全局动作--往数据库中写数据


 
 
  1. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Option 
     
     Explicit
    
    
    
   
   
  2. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Function action
    
    
    
   
   
  3. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim sCon,conn,oRs,n,i,s1,oCom,strcn,z
    
    
    
   
   
  4. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim riqi,mazhi,qxlx,qxwz,ok
    
    
    
   
   
  5. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim MSFlexGrid1
    
    
    
   
   
  6. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim LocalBeginTime,LocalEndTime
    
    
    
   
   
  7. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R_JC,Weight,R_FC,GBD
    
    
    
   
   
  8. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim J1
    
    
    
   
   
  9. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set J1 = HMIRuntime.Tags(
     
     "aa")
    
    
    
   
   
  10. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     J1.Read
    
    
    
   
   
  11. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     If J1.Read 
     
     Then
    
    
    
   
   
  12. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     J1.Write 
     
     0
    
    
    
   
   
  13. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Else
    
    
    
   
   
  14. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     J1.Write 
     
     1
    
    
    
   
   
  15. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'Set MSFlexGrid1 = HMIRuntime.Screens("首页.画面窗口1:报表信息").ScreenItems("aaaa")
    
    
    
   
   
  16. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  17. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     riqi = Now
    
    
    
   
   
  18. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  19. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim name
    
    
    
   
   
  20. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set name = HMIRuntime.Tags(
     
     "name1")
    
    
    
   
   
  21. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     name.Read
    
    
    
   
   
  22. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  23. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R1
    
    
    
   
   
  24. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R1 = HMIRuntime.Tags(
     
     "a")
    
    
    
   
   
  25. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R1.Read
    
    
    
   
   
  26. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  27. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R2
    
    
    
   
   
  28. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R2 = HMIRuntime.Tags(
     
     "b")
    
    
    
   
   
  29. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R2.Read
    
    
    
   
   
  30. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  31. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R3
    
    
    
   
   
  32. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R3 = HMIRuntime.Tags(
     
     "c")
    
    
    
   
   
  33. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R3.Read 
    
    
    
   
   
  34. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  35. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R4
    
    
    
   
   
  36. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R4 = HMIRuntime.Tags(
     
     "d")
    
    
    
   
   
  37. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R4.Read
    
    
    
   
   
  38. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  39. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim R5
    
    
    
   
   
  40. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set R5 = HMIRuntime.Tags(
     
     "e")
    
    
    
   
   
  41. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     R5.Read 
    
    
    
   
   
  42. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  43. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     If name.Value = 
     
     "" 
     
     Then
    
    
    
   
   
  44. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Else 
    
    
    
   
   
  45. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     sCon = 
     
     "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=wang;Data Source=.\wincc"
    
    
    
   
   
  46. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set conn = CreateObject(
     
     "ADODB.Connection")
    
    
    
   
   
  47. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.ConnectionString = sCon
    
    
    
   
   
  48. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.CursorLocation = 
     
     3
    
    
    
   
   
  49. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.Open
    
    
    
   
   
  50. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oRs = CreateObject(
     
     "ADODB.Recordset")
    
    
    
   
   
  51. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  52. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oCom = CreateObject(
     
     "ADODB.Command")
    
    
    
   
   
  53. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  54. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     oCom.CommandType = 
     
     1
    
    
    
   
   
  55. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oCom.ActiveConnection = conn
    
    
    
   
   
  56. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  57. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     s1 = 
     
     "insert into en (DT,name,a,b,c,d,e) Values ( '"&riqi&
     
     "','"&name.Value&
     
     "','"&R1.Value&
     
     "','"&R2.Value&
     
     "','"&R3.Value&
     
     "','"&R4.Value&
     
     "','"&R5.Value&
     
     "')"
    
    
    
   
   
  58. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.Execute s1
    
    
    
   
   
  59. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.Close
    
    
    
   
   
  60. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  61. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  62. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
    
    
    
   
   
  63. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  64. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'n = MSFlexGrid1.Rows
    
    
    
   
   
  65. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TextMatrix(n-1,0) = n - 3
    
    
    
   
   
  66. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TextMatrix(n-1,1) = riqi
    
    
    
   
   
  67. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TextMatrix(n-1,2) = name.Value
    
    
    
   
   
  68. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TextMatrix(n-1,3) = R1.Value
    
    
    
   
   
  69. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TextMatrix(n-1,4) = R2.Value
    
    
    
   
   
  70. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TextMatrix(n-1,5) = R3.Value
    
    
    
   
   
  71. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TextMatrix(n-1,6) = R4.Value
    
    
    
   
   
  72. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TextMatrix(n-1,7) = R5.Value
    
    
    
   
   
  73. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  74. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  75. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1
    
    
    
   
   
  76. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
        
     
     End 
     
     If
    
    
    
   
   
  77. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
        
     
     End 
     
     If
    
    
    
   
   
  78. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     End 
     
     Function

8、按时间检索数据--控件显示


 
 
  1. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Sub OnClick(
     
     ByVal Item)                                  
    
    
    
   
   
  2. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  3. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  4. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim MSFlexGrid1
    
    
    
   
   
  5. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim a1,a2,a3,a4,z
    
    
    
   
   
  6. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim LocalBeginTime,LocalEndTime,riqi
    
    
    
   
   
  7. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim oRs,n,i,s1,oCom,strcn,conn
    
    
    
   
   
  8. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Dim kj4,kj5,kj6
    
    
    
   
   
  9. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     '以上其他为标准
    
    
    
   
   
  10. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set MSFlexGrid1 = ScreenItems(
     
     "qq") 
     
     '对应表格控件名称
    
    
    
   
   
  11. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  12. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set a1 = ScreenItems(
     
     "sd")
    
    
    
   
   
  13. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set a2 = ScreenItems(
     
     "st")
    
    
    
   
   
  14. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set a3 = ScreenItems(
     
     "ed")
    
    
    
   
   
  15. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set a4 = ScreenItems(
     
     "et")
    
    
    
   
   
  16. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  17. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  18. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'riqi = Now
    
    
    
   
   
  19. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  20. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     LocalBeginTime = 
     
     Year(a1.Value) & 
     
     "-" & 
     
     Month(a1.Value) & 
     
     "-" & 
     
     Day(a1.Value) & 
     
     " " & 
     
     Hour(a2.Value) & 
     
     ":" & 
     
     Minute(a2.Value) & 
     
     ":" & 
     
     Second(a2.Value) 
    
    
    
   
   
  21. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     LocalEndTime = 
     
     Year(a3.Value) & 
     
     "-" & 
     
     Month(a3.Value) & 
     
     "-" & 
     
     Day(a3.Value) & 
     
     " " & 
     
     Hour(a4.Value) & 
     
     ":" & 
     
     Minute(a4.Value) & 
     
     ":" & 
     
     Second(a4.Value) 
    
    
    
   
   
  22. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  23. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     s1 = 
     
     "SELECT DT,name,a,b,c,d,e FROM en WHERE DT BETWEEN '" & LocalBeginTime & 
     
     "' And '" & LocalEndTime & 
     
     "'ORDER BY DT"
    
    
    
   
   
  24. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     's1后面的内容要对应数据库中列的内容，后面的DT与前面的DT要名称一致，enen要对应数据库列表名称dbo的名称
    
    
    
   
   
  25. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     strcn = 
     
     "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=wang;Data Source=.\wincc"
    
    
    
   
   
  26. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  27. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set conn = 
     
     CreateObject(
     
     "ADODB.Connection")
    
    
    
   
   
  28. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  29. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.ConnectionString = strcn
    
    
    
   
   
  30. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  31. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.CursorLocation = 
     
     3
    
    
    
   
   
  32. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  33. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     conn.Open
    
    
    
   
   
  34. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  35. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oRs = 
     
     CreateObject(
     
     "ADODB.Recordset")
    
    
    
   
   
  36. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oCom = 
     
     CreateObject(
     
     "ADODB.Command")
    
    
    
   
   
  37. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  38. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     oCom.CommandType = 
     
     1
    
    
    
   
   
  39. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oCom.ActiveConnection = conn
    
    
    
   
   
  40. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     oCom.CommandText = s1   
     
     '执行检索功能
    
    
    
   
   
  41. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     Set oRs = oCom.
     
     Execute
    
    
    
   
   
  42. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     n = oRs.RecordCount  
     
     '获得检索到的总数
    
    
    
   
   
  43. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  44. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     'HMIRuntime.Tags("I3").Write n
    
    
    
   
   
  45. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  46. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  47. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.Clear
    
    
    
   
   
  48. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.Rows = oRs.RecordCount + 
     
     2
    
    
    
   
   
  49. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     0) = 
     
     1500
    
    
    
   
   
  50. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     1) = 
     
     2000
    
    
    
   
   
  51. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     2) = 
     
     1500
    
    
    
   
   
  52. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     3) = 
     
     1500
    
    
    
   
   
  53. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     4) = 
     
     1500
    
    
    
   
   
  54. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     5) = 
     
     1500
    
    
    
   
   
  55. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     6) = 
     
     1500
    
    
    
   
   
  56. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.ColWidth(
     
     7) = 
     
     1500
    
    
    
   
   
  57. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  58. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.RowHeight(
     
     0) = 
     
     1200
    
    
    
   
   
  59. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.RowHeight(
     
     1) = 
     
     600
    
    
    
   
   
  60. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  61. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     MSFlexGrid1.Row = 
     
     0
    
    
    
   
   
  62. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     For z = 
     
     0 
     
     To 
     
     7
    
    
    
   
   
  63. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.CellFontSize = 
     
     12
    
    
    
   
   
  64. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.Col = z
    
    
    
   
   
  65. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.Text = 
     
     "工况信息表"
    
    
    
   
   
  66. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
     
     Next 
    
    
    
   
   
  67. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.MergeCells = 
     
     4
    
    
    
   
   
  68. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.MergeRow(
     
     0) = 
     
     True
    
    
    
   
   
  69. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  70. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.Row = 
     
     1
    
    
    
   
   
  71. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  72. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
     
     For z = 
     
     0 
     
     To 
     
     7
    
    
    
   
   
  73. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
      MSFlexGrid1.Col = z
    
    
    
   
   
  74. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  75. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
      MSFlexGrid1.CellBackColor = vbCyan
    
    
    
   
   
  76. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
     
     Next
    
    
    
   
   
  77. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     0) = 
     
     "序号"
    
    
    
   
   
  78. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     1) = 
     
     "日期"
    
    
    
   
   
  79. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     2) = 
     
     "名称"
    
    
    
   
   
  80. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     3) = 
     
     "重量(kg)"
    
    
    
   
   
  81. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     4) = 
     
     "高度(mm)"
    
    
    
   
   
  82. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     5) = 
     
     "流量"
    
    
    
   
   
  83. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     6) = 
     
     "压力"
    
    
    
   
   
  84. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
       MSFlexGrid1.TextMatrix(
     
     1,
     
     7 )= 
     
     "温度"
    
    
    
   
   
  85. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  86. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
      
    
    
    
   
   
  87. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     0) = 
     
     4
    
    
    
   
   
  88. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     1) = 
     
     4
    
    
    
   
   
  89. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     2) = 
     
     4
    
    
    
   
   
  90. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     3) = 
     
     4
    
    
    
   
   
  91. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     4) = 
     
     4
    
    
    
   
   
  92. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     5) = 
     
     4
    
    
    
   
   
  93. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     6) = 
     
     4
    
    
    
   
   
  94. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
        MSFlexGrid1.ColAlignment(
     
     7) = 
     
     4
    
    
    
   
   
  95. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
       
    
    
    
   
   
  96. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
       
     
     If (n > 
     
     0)
     
     Then 
    
    
    
   
   
  97. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
       
    
    
    
   
   
  98. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             oRs.MoveFirst
    
    
    
   
   
  99. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             i = 
     
     0
    
    
    
   
   
  100. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
     
     Do 
     
     While 
     
     Not oRs.EOF
    
    
    
   
   
  101. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             n = n + 
     
     1
    
    
    
   
   
  102. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
    
    
    
   
   
  103. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     0) = i
    
    
    
   
   
  104. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     1) = oRs.Fields(
     
     0).Value
    
    
    
   
   
  105. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     2) = oRs.Fields(
     
     1).Value
    
    
    
   
   
  106. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     3) = oRs.Fields(
     
     2).Value
    
    
    
   
   
  107. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     4) = oRs.Fields(
     
     3).Value
    
    
    
   
   
  108. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     5) = oRs.Fields(
     
     4).Value
    
    
    
   
   
  109. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     6) = oRs.Fields(
     
     5).Value
    
    
    
   
   
  110. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             MSFlexGrid1.TextMatrix(i+
     
     2,
     
     7) = oRs.Fields(
     
     6).Value
    
    
    
   
   
  111. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
     
    
    
    
   
   
  112. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
    
    
    
   
   
  113. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             i = i + 
     
     1
    
    
    
   
   
  114. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             oRs.MoveNext
    
    
    
   
   
  115. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
     
     Loop
    
    
    
   
   
  116. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             conn.Close
    
    
    
   
   
  117. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
                 MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 
     
     1
    
    
    
   
   
  118. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
     
     Else
    
    
    
   
   
  119. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
              MsgBox 
     
     "您所查询的时段没有数据......"
    
    
    
   
   
  120. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             oRs.Requery
    
    
    
   
   
  121. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
             conn.Close
    
    
    
   
   
  122. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
     
     End 
     
     If
    
    
    
   
   
  123. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
            
    
    
    
   
   
  124. 
   
   
    
    
    
    
   
   
    
   
   
    
    
    
    
     
     End 
     
     Sub

9、最终结果

 

weixin_46429259
关注
  • 4
    点赞
  • 踩
  • 18
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
WinCC 7.5 读取 SQL server2016 中的表格数据
skr？
04-26 5668
环境 win10 SQL Server 2016 WinCC V7.5 SP2 1 安装SQL Server 2016 2 选择服务器名称 .\WINCC 3 建数据库
博图WINCC历史数据记录到SQL数据库
AAbutbQshE的博客
11-20 1808
因此，将这些数据记录下来是至关重要的。本文将围绕着博图WinCC历史数据的记录和存储展开，以向读者介绍如何将博图WinCC中的变量作为历史数据记录到SQL Server数据库中，并将历史数据记录作为曲线图的方式展示出来。将博图WinCC中的变量作为历史数据记录到SQL Server数据库中，并将历史数据记录作为曲线图的方式展示出来，软件采用博图V15.1 Adanced编写，数据库为SQL Server2014 变量循环记录20000条，间隔2S记录一次数据到数据库中，有需要的朋友可以联系我。
WINCC写入数据库实操
jianlai1的博客
07-31 6376
实际操作环境：winccV7.5 SP1 Microsoft SQL Server Management Studio 18 西门子plc s7-1200 写入方式：VB脚本 扩展应用：C脚本 目前论坛上存在各种有关VB写入数据库的操作，本人查了很多资料，也是为了工作需要，找到了相应的读写数据库的代码，并实际操作成功。 步骤如下： 一、wincc操作 1、建立plc与wincc的连接 本人使用的S7-1200，仅测试的朋友只需使用博途软件仿真运行一款plc即可。 网线连接好plc和笔记本，打开wincc变量
WINCC报表 VBS脚本链接SQL Server数据库，实现日报月报功能，支持数据导出至EXCEL和PDF
最新发布
jMpePZAwpK的博客
04-28 1108
通过对登录界面、主控画面、录入数据、日报月报、信息查询、数据归档和用户管理等七个方面的详细阐述，读者可以了解WINCC报表功能的实现原理，并学会如何通过VBS脚本与SQL Server数据库进行交互，实现数据的录入、查询和导出等功能。5.信息查询：可根据Type、Code、Time、归档/不归档等条件综合查询数据，并显示查询数量，查询结果以表格形式显示在界面，方便、快捷、美观，并支持导出为EXCEL表格，EXCEL表格模板可自由设定。主控画面显示了每个工作站的工作状态，不同的状态用不同的颜色来表示。
博图WINCC历史数据记录到SQL数据库 将博图WinCC中的变量作为历史数据记录到SQL Server数据库
2301_76297380的博客
01-20 714
将博图WinCC中的变量作为历史数据记录到SQL Server数据库中，并将历史数据记录作为曲线图的方式展示出来，软件采用博图V15.1 Adanced编写，数据库为SQL Server2014 变量循环记录20000条，间隔2S记录一次数据到数据库中，有需要的朋友可以联系我。资源包扣，数据库的安装方法和下载地址以及数据库的配置过程，开发文档里显示的很详细。博图WINCC历史数据记录到SQL数据库。
数据库系统概论（1）
TheWorldSpark的博客
09-14 2223
数据库系统概论绪论 数据，数据库，数据库管理系统，数据库系统的概念 。 数据：描述事物的符号记录 数据库：是长期储存在计算机内、有组织的、可共享的大量数据的集合。数据库中的数据按一定的数据模型组织、描述和储存，具有较小的冗余度、较高的数据独立性和易扩展性，并可为各种用户共享。 数据库管理系统：计算机的软件系统。 数据库系统：是由数据库、数据库管理系统（及其应用开发工具）、应用程序和数据库管理员组成的存储、管理、处理和维护数据的系统。 数据库系统的好处。 可以大大提高应用开发的效率，方便用户使用，减轻数据库
wincc变量定时存储到本地数据库
薛定谔的猫头咕咕咕
09-09 1747
项目场景： 将wincc的变量定时存储到sql server数据库（需要设置定时触发器） 代码实现： Dim sCon, conn, oRs, sql_command, oCom, strcn Dim R1 Set R1 = HMIRuntime.Tags("S7R2_R1") R1.Read Dim R2 Set R2 = HMIRuntime.Tags("S7R2_R2") R2.Read Dim R3 Set R3 = HMIRuntime.Tags("S7R2_R3") R3.Read Di
WinCC SQL SERVER 数据库实现数据库同步
07-11
实现两个Sqlserver之间的数据库同步 对实时性有较高要求，数据同步延时尽量在1S之内 可以全库、单表、多表的数据同步 2. 读写分离 数据同步之后程序上就可以通过分别使用不同的DbContext实现程序上的读写分离 3. ...
笔记10_WinCC数据远程上传SQLServer.doc
12-04
总之，WinCC与SQL Server的集成允许在HMI系统和企业级数据库之间实现数据交换，从而实现数据的远程存储和分析。通过编写适当脚本并确保数据库操作语句的正确性，可以实现高效且可靠的数据上传。
wincc对sql数据库进行读写的实例
09-25
wincc对sql数据库进行读写的实例，由winc集成的vb代码功能在画面中实现对sql数据库的读写。使用环境为博途wincc为方便大家 对代码进行了txt处理 过程进行了截屏处理。代码有注释，截屏有说明。
16358010wincc通过vbs访问数据库_VB数据库_wincc读写数据库_wincc读写sql_wincc数据库_
10-04
在实际应用中，有时我们需要通过WinCC来读写数据库，例如SQL Server，以便存储、检索生产过程中的数据。本文将深入探讨如何在WinCC中利用Visual Basic Script (VBScript) 来实现对数据库的访问。 首先，VBScript是...
wincc数据库读取
03-27
读取wincc数据库过程数据，形成报表 WinCC可以使用其本身提供的控件(如在线变量表格控件及在线趋势控件)访问归档数据，那么如何处理导出WinCC归档数据到其他文件(如Excel)的问题呢？这里来个抛砖引玉，简单介绍一下几种处理方法，并告诉大家有什么可参考的文档资料。
wincc 脚本大全连接sql2005
08-20
点击按钮将数据添加进数据表，追加一条记录（如果是定时添加记录，将代码写在全局脚本，稍作改动即可） Sub OnClick(ByVal Item) Dim sCon Dim sSql Dim oRs Dim conn Dim oCom Dim Con Dim Data1, Data2, Data3,Data4,Data5,Data6,Data7,Data8,Data9 Data1=HMIRuntime.tags("TE101").read Data2=HMIRuntime.tags("TE102").read Data3=HMIRuntime.tags("TE103").read Data4=HMIRuntime.tags("PT101").read Data5=HMIRuntime.tags("PT102").read Data6=HMIRuntime.tags("PT103").read Data7=HMIRuntime.tags("LT101").read Data8=HMIRuntime.tags("LT102").read Data9=HMIRuntime.tags("LT103").read
WINCC＋SQLServer实现配方管理
10-12
WINCC＋SQLServer实现配方管理
wincc数据导出mysql_wincc上传变量数据到mysql数据库
weixin_32734545的博客
01-26 414
脚本如下，Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)Dim adoConn '定义ADO连接对象Dim ConnectionStr '定义数据库连接字符串Dim sqlstrDim adoRstDim data(3)ConnectionStr="Provider=MSDASQL.1;Persist Security Info...
WINCC读写SQL数据库的示例
热门推荐
bazzihong的博客
03-21 3万+
一、在数据库中建立数据库文件，文件名为“读写数据库”，在数据库中建立新的表，命名为“个人信息”分别建立编号、姓名、年龄。 二、数据库中建立表后，在wincc中建立与数据库中类型相同的变量，变量类型相同在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加三个输入输出域，并连接变量。 三、添加两个按钮控件，分别命名为写数据、读数据。 1.在写数据中写入如下脚本 Dim sSql Dim
WINCC中使用ADO对象连接数据库 例子 常用属性 方法 原创
weixin_30851867的博客
04-27 638
在WINCC中连接数据库可以使用ADO控件进行连接数据库，但是通常都不是用的ADO控件进行连接数据库，以下讲讲winccZ中使用ADO对象连接查询数据库。以下以报警记录为例。 一、了解ADO对象 1.1ADO对象操作数据库是微软提供的一种接口。 1.2对ADO对象的访问使用CreateObject函数（详情请参看CreateObject函数资料） ADO...
wincc与Access数据库的数据交互(读取数据)
yue008的博客
02-26 3406
wincc的数据存储目前主要是存储到数据库，而目前主流的数据库，主要由SQL Server和Access数据库，此文主要是关于wincc如何与Access数据库之间的数据读取。 条目 描述 运行环境 wincc7.5 SP1 Access数据库 2010版 运行画面 操作流程 创建Access数据库表 1.创建Access数据库文件，文件名：Wincc_Access_Data.accdb 2.创建数据库表，表名：Machineinfo，表内字段为：ID、Pressure、Temp
wincc7.5读写sql server数据库
08-06
WinCC 7.5是西门子公司的一款专业的监控和数据管理软件，它可以与SQL Server数据库进行读写操作。通过WinCC 7.5，我们可以使用现成的工具和功能来连接和管理SQL Server数据库，实现数据的读取和写入。 首先，我们需要在WinCC 7.5中配置数据库连接。在WinCC Explorer中选择相应的项目，右键点击“数据库”节点，选择“添加数据库连接”来添加一个新的数据库连接。在弹出的对话框中，选择SQL Server数据库类型，并输入数据库的相关信息，如服务器名称、登录凭据等。完成配置后，我们可以在WinCC中使用该数据库连接。 在WinCC 7.5中读取SQL Server数据库的数据通常使用VBScript等编程语言来实现。我们可以通过编写脚本来执行查询语句，获取所需的数据，并进行相应的处理和展示。WinCC 7.5提供了可视化的编程环境，方便我们编写和调试脚本。 除了读取数据外，WinCC 7.5还可以将数据写入SQL Server数据库。通过编写相应的脚本，我们可以将实时数据、报警信息等写入数据库，实现数据的存储和管理。根据需要，我们可以选择合适的方式来执行数据的批量写入或逐条写入。 总结来说，WinCC 7.5可以实现与SQL Server数据库的读写操作。通过配置数据库连接、编写脚本等方式，我们可以方便地读取和写入数据，并将其用于监控和数据管理等应用中。这使得WinCC 7.5成为了一个功能强大的工具，满足了广泛的监控和控制需求。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值