Dim PiCi


PiCi = HMIRuntime.Tags("demo_2").read
HMIRuntime.Tags("demo_2").Write PiCi

strCon="DRIVER={SQL server};SERVER=.\WinCC;DATABASE=SPC_SQL;UID=sa;PWD=123456;"

strSQL="insert into demo values ("&pici&",'11111');"


Set objCon=CreateObject("ADODB.Connection")
objCon.ConnectionString = strCon
objCon.Open
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objCon
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute