二、对象     2.1 Connection 对象      2.1.1  open 方法       语法       connection.Open ConnectionString,UserID,Password,OpengOptions       说明       ConnectionString:可选参数，字符串，包含连接信息       UserID:可选参数，字符串，包含建立连接时候用的用户名       Password:可选参数，字符串，包含建立连接时候用密码       OpenOptions:可选参数，连接打开方式    eg1：(连接数据库代码方法1，仅连接部分代码）       Dim conn       Dim tagDSNName       Set tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")       Set conn = CreateObject("ADODB.Connection")       conn.ConnectionString = "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&";Data Source=.\WinCC"       conn.CursorLocation = 3       conn.Open   eg2：（连接数据代码方法2，连接部分代码）       Dim conn       Dim tagDSNName       Set tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")       Set conn = CreateObject("ADODB.Connection")       conn.CursorLocation = 3       conn.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&";Data Source=.\WinCC"        2.1.2  close方法      connection.close   eg:       Dim conn       Dim tagDSNName       Set tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")       Set conn = CreateObject("ADODB.Connection")       conn.CursorLocation = 3       conn.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&";Data Source=.\WinCC"      '这里写上对数据库查询，修改等操作       conn.close     2.1.3 execute方法       语法     Cn.Execute strCommand,[IngRowsAffected[,IngOptions]]      说明      strCommand：可以是查询语句、表名、存储过程名等      IngRowsAffected:可选参数，返回Insert、Update 、Delete查询语句后所影响的数目      IngOptiongs: 参数可以如下        adCmdUnkown:Command类型未定，由数据源提供者去判断Command语法        AdCmdFile:Command是和对象类型相应的文件名称        adCmdStoredProc:Command是存储过程名称        adCmdTable:Command是能产生内部SELECT*FROM TableName查询的表名称        adCmdTableDirect:Command是能直接从表中获取行内容的表名称        adCmdText:Command是一条SQL语句    eg:       Dim conn,oCom,oRs       Dim tagDSNName       Set tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")       Set conn = CreateObject("ADODB.Connection")       conn.CursorLocation = 3       conn.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&";Data Source=.\WinCC"       Set oCom = CreateObject("ADODB.Command")       Set oRs = CreateObject("ADODB.Recordset")       oCom.CommandType=1       Set oCom.ActiveConnection = conn       oCom.CommandText ="ALARMVIEW:Select * FROM AlgViewCHT "       Set oRs = oCom.Execute       '以上4句还可以写成  Set oRs=conn.Execute("ALARMVIEW:Select * FROM AlgViewCHT ")

      conn.close

过程值归档： Set oRs = CreateObject("ADODB.Recordset") Set oCom = CreateObject("ADODB.Command") oCom.CommandType = 1 Set oCom.ActiveConnection = conn oCom.CommandText = "TAG:R,'PVArchive\Tag1','0000-00-00 00:10:00.000','0000-00-00 00:00:00.000'" 报警消息归档： Set oRs = CreateObject("ADODB.Recordset") Set oCom = CreateObject("ADODB.Command") oCom.CommandType = 1 Set oCom.ActiveConnection = conn oCom.CommandText = "ALARMVIEW:Select * FROM AlgViewEnu" 用户归档 Set oRs = CreateObject("ADODB.Recordset") Set oCom = CreateObject("ADODB.Command") oCom.CommandType = 1 Set oCom.ActiveConnection = conn oCom.CommandText = "SELECT * FROM UA#Test" 关于数据集可参考《ConnectivityPackInfoSystem_zh-CHS》文档其中非常详细   如果需要了解更多的方法，属性，请查阅ADODB手册上面非常的详细，本文并非专门讲解ADODB对象的文章而是重点在讲WINCC中如何使用方法，欢迎交流学习 。