Acceso a base de datos de WinCC

Ejemplo: Proyectar una conexión a una base de datos con VBS
Introducción
Los siguientes ejemplos describen la configuración de una conexión a base de datos Access mediante un driver ODBC.
• Elejemplo 1 escribe un valor de variable de WinCC en una base de datos Access.
• El ejemplo 2 lee un valor de una base de datos y lo escribe en una variable WinCC.
Los ejemplos no contienentratamiento de errores.
Procedimiento ejemplo 1
1. Crear base de datos Access con tabla WINCC_DATA y columnas (ID, TagValue) con la ID como autovalor.
2. Ajustar origen de datos ODBC con nombre "SampleDSN",con referencia a la base de datos Access indicada arriba.
3. Programación.
Ejemplo 1
'VBS108
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommandstrConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"
lngValue = HMIRuntime.Tags("Tag1").Read
strSQL = "INSERT INTO WINCC_DATA (TagValue) VALUES (" & lngValue & ");"
Set objConnection =CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
Procedimiento ejemplo 2
1. Crear variable WinCC con el nombredbValue
2. Crear base de datos Access con tabla WINCC_DATA y las columnas: ID, TagValue(ID como autovalor).
3. Ajustar origen de datos ODBC con nombre "SampleDSN", con referencia a la base de datosAccess indicada arriba.
4. Programación.
Ejemplo 2
'VBS108a
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim lngValue
Dim lngCount
strConnectionString ="Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"
strSQL = "select TagValue from WINCC_DATA where ID = 1"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString =...