Dim objConnection
Dim strConnectionString
Dim strSQL
Dim objCommand
' ** DEFINE SCRIPT Tag HERE **
Dim Var1
Dim Var2
Dim Var3
Set Var1=HMIRuntime.tags("Var1")
Var1.Read
Set Var2=HMIRuntime.tags("Var2")
Var2.Read
Set Var3=HMIRuntime.tags("Var3")
Var3.Read
strConnectionString = "Provider=MSDASQL;DSN=SQLServer;UID=;PWD=;"
strSQL = "INSERT INTO Table_1 (Column1,Column2,Column3) VALUES (" & Var1.Value & "," & Var2.Value & ",'" & Var3.Value & "');"
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
1 сен 2020