步骤、示例 2

创建名称为 dbValue 的 WinCC 变量。

使用 WINCC_DATA 表和 ID，TagValue 列创建 Access 数据库： ID，创建 TagValue（ID 作用自动值）。

设置名称为“SampleDSN”的 ODBC 数据源，引用以上 Access 数据库。

编程。

示例 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 = strConnectionString

objConnection.Open

Set objRecordset = CreateObject("ADODB.Recordset")

Set objCommand = CreateObject("ADODB.Command")

objCommand.ActiveConnection = objConnection

objCommand.CommandText = strSQL

Set objRecordset = objCommand.Execute

lngCount = objRecordset.Fields.Count

If (lngCount>0) Then

objRecordset.movefirst

lngValue = objRecordset.Fields(0).Value

HMIRuntime.Tags("dbValue").Write lngValue

Else

HMIRuntime.Trace "Selection returned no fields" & vbNewLine

End If

Set objCommand = Nothing

objConnection.Close

Set objRecordset = Nothing

Set objConnection = Nothing

clipboard

根据使用的提供程序不同，有多种方法可用来定义连接的连接字符串。

ODBC 的 Microsoft OLE DB 提供程序

启用与 ODBC 数据源的连接。 相应的语法为：

"[Provider=MSDASQL;]{DSN=name|FileDSN=filename};

[DATABASE=database;]UID=user; PWD=password"

clipboard

其它 Microsoft OLE DB 提供程序（例如 MS Jet、MS SQL Server）

可以不使用 DSN 运行。 相应的语法为：

"[Provider=provider;]DRIVER=driver; SERVER=server;

DATABASE=database; UID=user; PWD=password"