Dim conn, rst,tarih,saat,SQL_Table, tarihsaat
On Error Resume Next
tarih=Now
tarihsaat=Month(tarih) & "/" & Day(tarih) & "/" & Year(tarih) &" "& Hour(tarih) & ":" & Minute(tarih) & ":" & Second(tarih)
tarih=Month(tarih) & "/" & Day(tarih) & "/" & Year(tarih)
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
conn.Open "Provider=MSDASQL;Initial Catalog=DENEME;DSN=DENEME"
SQL_Table = "insert into RAPOR_DENEME (ZAMAN, OLCUM_1, TARIH_SAAT) values ('" & SmartTags("ZAMAN") & "', '" & SmartTags("TERMOCOUPLE1_ACTUEL") & "', '" & tarihsaat & "')"
Set rst = conn.Execute(SQL_Table)
conn.close
Set rst = Nothing
Set conn = Nothing
