Notes

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
kul_id = TextBox1.Text
ad_soyad = TextBox2.Text
lokasyon = TextBox3.Text
domain = TextBox4.Text
autoline = TextBox5.Text
departman = TextBox6.Text
görev = TextBox7.Text
bilgisayar_adi = TextBox8.Text
e_mail_adresi = TextBox9.Text
e_mail_sifre = TextBox10.Text
mac_adresi = TextBox11.Text
mac_wireless_adresi = TextBox12.Text
domain_user = TextBox13.Text
bilgisayar_tedarikcisi = TextBox14.Text
bilgisayar_modeli = TextBox15.Text
islemci = TextBox16.Text
ram = TextBox17.Text
sabit_disk = TextBox18.Text
monitör = TextBox19.Text
os = TextBox20.Text
os_tedarikcisi = TextBox21.Text
os_fatura_no = TextBox22.Text
os_fatura_tarih = TextBox23.Text
os_türü = TextBox24.Text
os_anlasma_no = TextBox25.Text
office_kutu_no = TextBox26.Text
office_modeli = TextBox27.Text
office_tedarikci = TextBox28.Text
office_fatura_no = TextBox29.Text
office_fatura_tarih = TextBox30.Text
office_türü = TextBox31.Text
office_anlasma_no = TextBox32.Text
vpn_user = TextBox33.Text
vpn_sifre = TextBox34.Text
yerel_admin = TextBox35.Text
yerel_admin_sifre = TextBox36.Text
anti_virüs = TextBox37.Text
yüklü_programlar = TextBox38.Text
If kul_id = "" Or ad_soyad = "" Or lokasyon = "" Or domain = "" Or autoline = "" Or departman = "" Or bilgisayar_adi = "" Or e_mail_adresi = "" Or bilgisayar_adi = "" Or e_mail_sifre = "" Or mac_adresi = "" Or mac_wireless_adresi = "" Or domain_user = "" Or bilgisayar_tedarikcisi = "" Or bilgisayar_modeli = "" Or islemci = "" Or ram = "" Or sabit_disk = "" Or monitör = "" Or os = "" Or os_tedarikcisi = "" Or os_fatura_no = "" Or os_fatura_tarih = "" Or os_türü = "" Or os_anlasma_no = "" Or office_kutu_no = "" Or office_modeli = "" Or office_tedarikci = "" Or office_fatura_no = "" Or office_fatura_tarih = "" Or office_türü = "" Or office_anlasma_no = "" Or vpn_user = "" Or vpn_sifre = "" Or yerel_admin = "" Or yerel_admin_sifre = "" Or anti_virüs = "" Or yüklü_programlar = "" Then
MessageBox.Show("Lütfen boş alan bırakmayınız !")
Exit Sub
End If

sql = "insert into bilgiler (kul_id,ad_soyad,lokasyon,domain,autoline,departman,görev,bilgisayar_adi,e_mail_adresi,e_mail_sifre,mac_adresi,mac_wireless_adresi,domain_user,bilgisayar_tedarikcisi,bilgisayar_modeli,islemci,ram,sabit_disk,monitör,os,os_tedarikcisi,os_fatura_no,os_fatura_tarih,os_türü,os_anlasma_no,office_kutu_no,office_modeli,office_tedarikci,office_fatura_no,office_fatura_tarih,office_türü,office_anlasma_no,vpn_user,vpn_sifre,yerel_admin,yerel_admin_sifre,anti_virüs,yüklü_programlar) VALUES ('" & kul_id & "','" & ad_soyad & "','" & lokasyon & "','" & domain & "','" & autoline & "','" & departman & "','" & görev & "','" & bilgisayar_adi & "','" & e_mail_adresi & "','" & e_mail_sifre & "','" & mac_adresi & "','" & mac_wireless_adresi & "','" & domain_user & "','" & bilgisayar_tedarikcisi & "','" & bilgisayar_modeli & "','" & islemci & "','" & ram & "','" & sabit_disk & "','" & monitör & "','" & os & "','" & os_tedarikcisi & "','" & os_fatura_no & "','" & os_fatura_tarih & "','" & os_türü & "','" & os_anlasma_no & "','" & office_kutu_no & "','" & office_modeli & "','" & office_tedarikci & "','" & office_fatura_no & "','" & office_fatura_tarih & "','" & office_türü & "','" & office_anlasma_no & "','" & vpn_user & "','" & vpn_sifre & "','" & yerel_admin & "','" & yerel_admin_sifre & "','" & anti_virüs & "','" & yüklü_programlar & "')"
sql2 = "select * from bilgiler"
Dim komut As New OleDbCommand(sql2, coon)
Dim dr As OleDb.OleDbDataReader
coon.Open()
dr = komut.ExecuteReader
Do While dr.Read
If dr("kul_id") = kul_id Then
TextBox1.Text = ""
MessageBox.Show("Bu kullanıcı Adı numarası sisteme kayıtlıdır !")
Exit Sub
End
Me.Close()
Exit Sub
End If
Loop
dr.Close()
komut.CommandText = sql
komut.ExecuteNonQuery()
coon.Close()
MessageBox.Show("Bilgileri kayıt edildi !")


End Sub