Ö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
