6.0如何将数据写入ACCESS？急！！ 点击：523 | 回复：5
发表于：2008-03-02 23:43:00
4楼
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手册里的例子，我试过好使。
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手册里的例子，我试过好使。
热门招聘
相关主题
- PLC编程实例之3个计数器构成...
[3203] - 西门子S7-200指令表[2918]
- WINCC的实时趋势和历史趋势怎...[14910]
- 软件问题导致电子图板意外关...[2964]
- OPC[2385]
- 基于OPC的新一代组态软件 ic...[2482]
- 组态王通过modbus-tcp读取温...[2938]
- PCschematic[2142]
- 重赏VB编程高手，MODBUS通讯的...[2095]
- wincc装不上，求助！[3731]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
