Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglanti As New OleDbConnection
baglanti.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source=C:\veritani.mdb"
baglanti.Open()
Dim cmd As New OleDbCommand
cmd.Connection = baglanti
cmd.CommandText = "insert into current_card (tckn,unvanı,adi,soyadi,adres,telefon,telefon1,fax,yetkili,ceptel,yetkili1,ceptel1,yetkili2,ceptel2,ilce,il) values (@tckn,@unvanı,@adi,@soyadi,@adres,@teleon,@telefon1,@telefon2,@yetkili,@ceptel,@yetkili1,@ceptel,@yetkili2,@ceptel,@ilce,@il)"
cmd.Parameters.Add("@tckn", OleDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@unvanı", OleDbType.VarChar).Value = TextBox2.Text
cmd.Parameters.Add("@adi", OleDbType.VarChar).Value = TextBox3.Text
cmd.Parameters.Add("@soyadi", OleDbType.VarChar).Value = TextBox4.Text
cmd.Parameters.Add("@adres", OleDbType.VarChar).Value = TextBox5.Text
cmd.Parameters.Add("@telefon", OleDbType.VarChar).Value = TextBox6.Text
cmd.Parameters.Add("@telefon1", OleDbType.VarChar).Value = TextBox7.Text
cmd.Parameters.Add("@fax", OleDbType.VarChar).Value = TextBox8.Text
cmd.Parameters.Add("@yetkili", OleDbType.VarChar).Value = TextBox9.Text
cmd.Parameters.Add("@ceptel", OleDbType.VarChar).Value = TextBox10.Text
cmd.Parameters.Add("@yetkili1", OleDbType.VarChar).Value = TextBox11.Text
cmd.Parameters.Add("@ceptel1", OleDbType.VarChar).Value = TextBox12.Text
cmd.Parameters.Add("@yetkili2", OleDbType.VarChar).Value = TextBox13.Text
cmd.Parameters.Add("@ceptel2", OleDbType.VarChar).Value = TextBox14.Text
cmd.Parameters.Add("@ilce", OleDbType.VarChar).Value = TextBox15.Text
cmd.Parameters.Add("@il", OleDbType.VarChar).Value = TextBox16.Text
cmd.ExecuteNonQuery()
MsgBox("kayıt İşlemi Başarılı")
cmd.Dispose()
baglanti.Close()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()
End Sub
yukarıda yapmış olduğum küçük çaplı rehber programımda textbox boş iken veri kaydı yapmasın istedim ama yardımcı olursanız sevinirim bu kodları nereye yazman gerekiyor biir örneklem yapasanız sevinirim şimdiden tşkler saygılarımla sayın hocalarımız,
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglanti As New OleDbConnection
baglanti.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source=C:\veritani.mdb"
baglanti.Open()
Dim cmd As New OleDbCommand
cmd.Connection = baglanti
cmd.CommandText = "insert into current_card (tckn,unvanı,adi,soyadi,adres,telefon,telefon1,fax,yetkili,ceptel,yetkili1,ceptel1,yetkili2,ceptel2,ilce,il) values (@tckn,@unvanı,@adi,@soyadi,@adres,@teleon,@telefon1,@telefon2,@yetkili,@ceptel,@yetkili1,@ceptel,@yetkili2,@ceptel,@ilce,@il)"
cmd.Parameters.Add("@tckn", OleDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@unvanı", OleDbType.VarChar).Value = TextBox2.Text
cmd.Parameters.Add("@adi", OleDbType.VarChar).Value = TextBox3.Text
cmd.Parameters.Add("@soyadi", OleDbType.VarChar).Value = TextBox4.Text
cmd.Parameters.Add("@adres", OleDbType.VarChar).Value = TextBox5.Text
cmd.Parameters.Add("@telefon", OleDbType.VarChar).Value = TextBox6.Text
cmd.Parameters.Add("@telefon1", OleDbType.VarChar).Value = TextBox7.Text
cmd.Parameters.Add("@fax", OleDbType.VarChar).Value = TextBox8.Text
cmd.Parameters.Add("@yetkili", OleDbType.VarChar).Value = TextBox9.Text
cmd.Parameters.Add("@ceptel", OleDbType.VarChar).Value = TextBox10.Text
cmd.Parameters.Add("@yetkili1", OleDbType.VarChar).Value = TextBox11.Text
cmd.Parameters.Add("@ceptel1", OleDbType.VarChar).Value = TextBox12.Text
cmd.Parameters.Add("@yetkili2", OleDbType.VarChar).Value = TextBox13.Text
cmd.Parameters.Add("@ceptel2", OleDbType.VarChar).Value = TextBox14.Text
cmd.Parameters.Add("@ilce", OleDbType.VarChar).Value = TextBox15.Text
cmd.Parameters.Add("@il", OleDbType.VarChar).Value = TextBox16.Text
cmd.ExecuteNonQuery()
MsgBox("kayıt İşlemi Başarılı")
cmd.Dispose()
baglanti.Close()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()
End Sub
yukarıda yapmış olduğum küçük çaplı rehber programımda textbox boş iken veri kaydı yapmasın istedim ama yardımcı olursanız sevinirim bu kodları nereye yazman gerekiyor biir örneklem yapasanız sevinirim şimdiden tşkler saygılarımla sayın hocalarımız,