WINCCFLEXIBLE SQL VERİTABANINA VERİ KAYDI

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

WINCCFLEXIBLE SQL VERİTABANI OLUŞTURMA

İLK OLARAK DSN AYARLARIMIZI YAPMAMIZ LAZIMKİ SQL İLE BAĞLANTI KURABİLELİM

ÖNCELİKLE DENETİM MASASINA VE ORADANDA YÖNETİMSEL ARAÇLARA GİRİYORUZ




YÖNETİMSEL ARAÇLARDA Veri Kaynakları (ODBC) TIKLIYORUZ




ODBC VERİ KAYNAĞI YÖNETİCİSİNDE SAĞ ÜSTTE EKLE TIKLIYORUZ



AÇILAN PENCEREDE EN ALTTA SQLSERVER SEÇİYORUZ



AÇILAN PENCEREDE ADI KISIMINA DSN ADINI YAZIYORUZ(HERHANGİ BİR ŞEY OLABİLİR) SUNUCU KISIMINADA "BİLGİSAYAR ADI\DATABASE ADI" YAZIYORUZ VE İLERİ BUTONLARIYLA SON BUTONU GELENE KADAR DEVAM EDİYORUZ



SON BUTONU GELİNCE TIKLIYORUZ VE AÇILAN PENCEREDE VERİ KAYNAĞINI SINA TIKLIYORUZ



EĞER BÖYLE BİR YAZI GELDİ İSE İŞLEM TAMAM, EĞER HATA VERDİ İSE AYARLARIMIZI TEKRAR KONTROL EDİYORUZ VEYA SQL SERVER ADINI KONTROL EDİYORUZ



ŞİMDİ SIRA GELDİ WİNCCFLEXİBLE İÇİNDE SCRİPT İLE VERİTABANI OLUŞTURMAYA



Dim conn, rst, Sql_Table, i,dd, tarih

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

conn.Open "Provider=MSDASQL;DSN=DENEME"

Sql_Table = "CREATE DATABASE DENEME"

Set rst = conn.Execute(Sql_Table)
conn.close
Set conn = Nothing
Set rst = Nothing

VERİTABANIMIZI OLUŞTURDUK ŞİMDİ TABLOMUZU OLUŞTURALIM

Dim conn, rst, Sql_Table, i,dd, tarih

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

conn.Open "Provider=MSDASQL;Initial Catalog=DENEME;DSN=DENEME"

Sql_Table = "CREATE TABLE RAPOR_DENEME (ZAMAN int, OLCUM_1 real, OLCUM_2 real, OLCUM_3 real, OLCUM_4 real, PRES_OPERATORU nvarchar(20), TARIH datetime, TARIH_SAAT datetime)"
Set rst = conn.Execute(Sql_Table)

conn.close
Set conn = Nothing
Set rst = Nothing

SIEMENS WINCCFLEXIBLE DOSYA BOYUTU SCRIPT

Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\DENEME.XLSX")
s = f.Size
Tag_1 = s/1048576 'DENEME XLSX DOSYASININ MB DEĞERİ