SQL: Update value of table

Code VB Script - WinCC Advanced (WinCC Prof. : SmartTags("")= HMIRuntime.Tags("").Read)
**********************
Sub N05_Edit_a_value(ByRef DSN_NAME)

Dim conn, rst, SQL_Table

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

'Open data source - Datenquelle öffnen
conn.Open "Provider=MSDASQL;Initial Catalog=" & SmartTags("Name_database") & ";DSN="& DSN_NAME &"" 'DSN= Name of the ODBC database - DSN= Name der ODBC-Datenbank

''''''''''''''''Update record in table''''''''''''''''''
' SQL_Table ="UPDATE "&SmartTags("szTableName")&" Set Symbol = '"&SmartTags("Val1")&"', Name ='"&SmartTags("Val2")&"', Value = '"&SmartTags("Val3")&"' WHERE Symbol LIKE " & "'"&SmartTags("name_seach")&"'"
SQL_Table ="UPDATE "&SmartTags("Name_table")&" Set Gia_tri = '"&SmartTags("Gia_tri_record")&"' WHERE Ten_thiet_bi LIKE " & "'"&SmartTags("Ten_tb_seach")&"'"

'Execute - Ausführen
Set rst = conn.Execute(SQL_Table)

'Close data source - Datenquelle schließen
conn.close

Set rst = Nothing
Set conn = Nothing

End Sub
Công ty Cổ phần Tự động hóa Vinatec
- Thiết kế, lập trình các hệ thống tự động (tủ điều khiển bơm, nhà máy - trạm xử lý nước, ...).
- Cung cấp các thiết bị vật tư ngành điện: Máy biến áp, Thiết bị điện LS, Mitsubishi, Schneider.
- Lập trình PLC, HMI, hệ thống giám sát SCADA.
- Gia công tủ điện các loại.
- Email: [email protected]