Introduction

In this example, a tag value is written from WinCC to an Access database via an ODBC driver. The example does not contain error handling.

Procedure

1. Create the Access database with the WINCC_DATA table and (ID, TagValue) columns with the ID as the Auto Value.

2. Set up the ODBC data source with the name "SampleDSN" reference to the above Access database.

3. Programming.

Example

'VBS108

Dim objConnection

Dim strConnectionString

Dim lngValue

Dim strSQL

Dim objCommand

strConnectionString = "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

wincc6.0手冊里的例子，我試過好使。