步骤
1. 创建名为“Tag_1”的 WinCC 变量。
2.创建名为“ArTags”的过程值归档。将 WinCC 变量“Tag_1”与过程值归档连接起来。
3.创建 Visual Basic 项目。将 MS Windows Common Controls 6.0 的“ListView 控件”与名称“ListView1”连接起来。ListView 中的各列由脚本创建。
将“视图”属性设置为 ListView 控件的“3 - lvwReport”选项。
4.创建“CommandButton”。从下面的“实例脚本”一节中复制脚本。
5.在脚本中,将 WinCC 运行系统数据库的名称“CC_OpConPac_04_10_01_10_36_36R”更改为自己的项目。
数据库名称可在“SQL 企业管理器”中的“SQL Server 组”>“<计算机名称>\WinCC”>“数据库”>“<数据库名称_R>”处找到。
6.激活 WinCC 运行系统并启动 VB 应用程序。
3.单击“CommandButton”。
Option Explicit
Const NMAX = 100
Private Sub Command1_Click()
Dim sPro As String
Dim sDsn As String
Dim sSer As String
Dim sCon As String
Dim sSql As String
Dim conn As Object
Dim oRs As Object
Dim oCom As Object
Dim oItem As ListItem
Dim m, n, s, nRec
Dim strDateTime As String
Dim iMS As Long
'1.1 Make connection string for ADODB
sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=CC_OpConPac