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 - 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: vancongcodien86@gmail.com