Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text = "" Then
MsgBox("Lütfen Firma Ünvani Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
Else
If Me.ComboBox6.Text = "" Then
MsgBox("Lütfen Firma Türü Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
Else
If Me.ComboBox7.Text = "" Then
MsgBox("Lütfen Defter Cinsi Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
Else
Dim durum As String
durum = MsgBox("Firmaunvani = " & TextBox1.Text & vbNewLine & _
"Adi = " & TextBox2.Text & vbNewLine & _
"Soyadi = " & TextBox3.Text & vbNewLine & _
"Faaliyetalani = " & TextBox4.Text & vbNewLine & _
"İsyeriadresi = " & TextBox5.Text & vbNewLine & _
"İsyeriil = " & ComboBox1.Text & vbNewLine & _
"İsyeriilce = " & ComboBox2.Text & vbNewLine & _
"Subeadresi = " & TextBox6.Text & vbNewLine & _
"Subeil = " & ComboBox3.Text & vbNewLine & _
"Subeilce = " & ComboBox4.Text & vbNewLine & _
"Vergidairesi = " & ComboBox5.Text & vbNewLine & _
"Vergino = " & MaskedTextBox1.Text & vbNewLine & _
"Tcno = " & MaskedTextBox2.Text & vbNewLine & _
"İsebaslama = " & MaskedTextBox3.Text & vbNewLine & _
"İsiterk = " & MaskedTextBox4.Text & vbNewLine & _
"Telefon1 = " & MaskedTextBox5.Text & vbNewLine & _
"Telefon2 = " & MaskedTextBox6.Text & vbNewLine & _
"Emailadresi = " & TextBox13.Text & vbNewLine & _
"Sozlesmetarihi = " & MaskedTextBox11.Text & vbNewLine & _
"Sozlesmeno = " & TextBox15.Text & vbNewLine & _
"Muhasebeucreti = " & MaskedTextBox7.Text & vbNewLine & _
"Tasdiksayfasi = " & TextBox17.Text & vbNewLine & _
"Firmaturu = " & ComboBox6.Text & vbNewLine & _
"Deftercinsi = " & ComboBox7.Text & vbNewLine & _
"Sgksicilno = " & MaskedTextBox8.Text & vbNewLine & _
"Sgkkullanici = " & MaskedTextBox12.Text & vbNewLine & _
"Sgkkod = " & TextBox20.Text & vbNewLine & _
"Sgksistemsifre = " & TextBox21.Text & vbNewLine & _
"Sgkisyerisifre = " & TextBox22.Text & vbNewLine & _
"İnternetkullanici = " & MaskedTextBox14.Text & vbNewLine & _
"İnternetparola = " & TextBox24.Text & vbNewLine & _
"İnternetsifre = " & MaskedTextBox15.Text & vbNewLine & _
"Ticaretsicilno = " & TextBox26.Text & vbNewLine & _
"Odano = " & TextBox27.Text & vbNewLine & _
"Anaadi = " & TextBox28.Text & vbNewLine & _
"Babaadi = " & TextBox29.Text & vbNewLine & _
"Dogumyeri = " & TextBox30.Text & vbNewLine & _
"Dogumtarihi = " & MaskedTextBox9.Text & vbNewLine & _
"Ciltno = " & TextBox32.Text & vbNewLine & _
"Ailesirano = " & TextBox33.Text & vbNewLine & _
"Sirano = " & TextBox34.Text & vbNewLine & _
"İkametgahadresi = " & TextBox35.Text & vbNewLine & _
"İkametgahil = " & ComboBox8.Text & vbNewLine & _
"İkametgahilce = " & ComboBox9.Text & vbNewLine & _
"Notertarih = " & MaskedTextBox10.Text & vbNewLine & _
"Noterno = " & TextBox37.Text & vbNewLine & _
"Dusunceler = " & TextBox38.Text & vbNewLine & _
"Telefon3 = " & MaskedTextBox13.Text & vbNewLine & _
"Ayirac = " & ComboBox10.Text & vbNewLine & _
"Musaviri = " & TextBox7.Text & vbNewLine & _
"Yukarıdaki yazdığınız veriler kayıt edilsinmi '", MsgBoxStyle.Question + MsgBoxStyle.YesNoCancel, "Kayıt Uyarı")
If durum = vbYes Then
Dim sql As New String("INSERT INTO data (Firmaunvani,Adi,Soyadi,Faaliyetalani,İsyeriadresi,İsyeriil,İsyeriilce,Subeadresi,Subeil,Subeilce,Vergidairesi,Vergino,Tcno,İsebaslama,İsiterk,Telefon1,Telefon2,Emailadresi,Sozlesmetarihi,Sozlesmeno,Muhasebeucreti,Tasdiksayfasi,Firmaturu,Deftercinsi,Sgksicilno,Sgkkullanici,Sgkkod,Sgksistemsifre,Sgkisyerisifre,İnternetkullanici,İnternetparola,İnternetsifre,Ticaretsicilno,Odano,Anaadi,Babaadi,Dogumyeri,Dogumtarihi,Ciltno,Ailesirano,Sirano,İkametgahadresi,İkametgahil,İkametgahilce,Notertarih,Noterno,Dusunceler,Telefon3,Ayirac,Musaviri) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}','{10}','{11}','{12}','{13}','{14}','{15}','{16}','{17}','{18}','{19}','{20}','{21}','{22}','{23}','{24}','{25}','{26}','{27}','{28}','{29}','{30}','{31}','{32}','{33}','{34}','{35}','{36}','{37}','{38}','{39}','{40}','{41}','{42}','{43}','{44}','{45}','{46}','{47}','{48}','{49}')")
sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, ComboBox1.Text, ComboBox2.Text, TextBox6.Text, ComboBox3.Text, ComboBox4.Text, ComboBox5.Text, MaskedTextBox1.Text, MaskedTextBox2.Text, MaskedTextBox3.Text, MaskedTextBox4.Text, MaskedTextBox5.Text, MaskedTextBox6.Text, TextBox13.Text, MaskedTextBox11.Text, TextBox15.Text, MaskedTextBox7.Text, TextBox17.Text, ComboBox6.Text, ComboBox7.Text, MaskedTextBox8.Text, MaskedTextBox12.Text, TextBox20.Text, TextBox21.Text, TextBox22.Text, MaskedTextBox14.Text, TextBox24.Text, MaskedTextBox15.Text, TextBox26.Text, TextBox27.Text, TextBox28.Text, TextBox29.Text, TextBox30.Text, MaskedTextBox9.Text, TextBox32.Text, TextBox33.Text, TextBox34.Text, TextBox35.Text, ComboBox8.Text, ComboBox9.Text, MaskedTextBox10.Text, TextBox37.Text, TextBox38.Text, MaskedTextBox13.Text, ComboBox10.Text, TextBox7.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
End If
Listele("SELECT * FROM data'")
baglanti.Close()
Temizle()
Else
End If
End If
End If
End If
End SubNot: Sadece Textbox1.text verisini excele aktaracak
