Function action
Dim objconnection
Dim strconnectionstring
Dim lngvalue,lngvalue1,shijian1,sj
Dim strSQL
Dim objcommand
strconnectionstring ="provider=MSDASQL;DSN=sample;UID=;PWD=;"
lngvalue = HMIRuntime.Tags("Tag1").Read
'lngvalue1 = HMIRuntime.Tags("str_riqi").Read

shijian1=FormatDateTime(Now,2)
'sj=Date()
strSQL ="INSERT INTO wincc_data (TagValue,shijian) VALUES ("&lngvalue&","&shijian1&");"

'lngvalue1 = HMIRuntime.Tags("str_riqi").Read
'strSQL ="INSERT INTO wincc_data (Date) VALUES ("&lngvalue1&");"

Set objconnection = CreateObject("ADODB.Connection")
HMIRuntime.Trace strSQL
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