New Document

Access Veritabanına Kayıt Ekleme

Bu örneğimizde Access Veritabanımıza kayıt eklemeyi göreceğiz. İlk önce
C:\p_takip.mdb şeklinde veritabanımızı tanımlayalım.
Daha sonra Şekil 1 deki gibi formumuzu dizayn edelim ve

Resim1

Şekil 1
Buttonumuzun Click yordamına aşağıdaki kodları yazalım...Bahadirsa

Forma yazılacak kodlar:

Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click

If txttc.Text = "" Then
ep1.SetError(txttc, "T.C. Kimlik No Giriniz")
Exit Sub
Else
ep1.SetError(txttc, "")
End If
If txtAd.Text = "" Then
ep1.SetError(txtAd, "Personel Adı Giriniz")
Exit Sub
Else
ep1.SetError(txtAd, "")
End If
If txtSoyad.Text = "" Then
ep1.SetError(txtSoyad, "Personel Soyadı Giriniz")
Exit Sub
Else
ep1.SetError(txtSoyad, "")
End If
If txtBAd.Text = "" Then
ep1.SetError(txtBAd, "Baba Adını Giriniz")
Exit Sub
Else
ep1.SetError(txtBAd, "")
End If
If txtAnad.Text = "" Then
ep1.SetError(txtAnad, "Anne Adını Giriniz")
Exit Sub
Else
ep1.SetError(txtAnad, "")
End If
If cmb1.Text = "" Then
ep1.SetError(cmb1, "Gün Giriniz")
Exit Sub
Else
ep1.SetError(cmb1, "")
End If
If cmb2.Text = "" Then
ep1.SetError(cmb2, "Ay Giriniz")
Exit Sub
Else
ep1.SetError(cmb2, "")
End If
If txtDTarih.Text = "" Then
ep1.SetError(txtDTarih, "Yıl Giriniz")
Exit Sub
Else
ep1.SetError(txtDTarih, "")
End If
If cmb4.Text = "" Then
ep1.SetError(cmb4, "Operatör Kod Giriniz")
Exit Sub
Else
ep1.SetError(cmb4, "")
End If
If txtCepTlf.Text = "" Then
ep1.SetError(txtCepTlf, "Cep Tlf. Giriniz")
Exit Sub
Else
ep1.SetError(txtCepTlf, "")
End If
If cmb5.Text = "" Then
ep1.SetError(cmb5, "Öğrenim Durumunu Giriniz")
Exit Sub
Else
ep1.SetError(cmb5, "")
End If
If cmb6.Text = "" Then
ep1.SetError(cmb6, "Meslek Giriniz")
Exit Sub
Else
ep1.SetError(cmb6, "")
End If
If txtIsGirTarih.Text = "" Then
ep1.SetError(txtIsGirTarih, "İşe Giriş Tarihini Giriniz")
Exit Sub
Else
ep1.SetError(txtIsGirTarih, "")
End If
If cmb9.Text = "" Then
ep1.SetError(cmb9, "Çalıştığı Kısmı Giriniz")
Exit Sub
Else
ep1.SetError(cmb9, "")
End If
If cmb10.Text = "" Then
ep1.SetError(cmb10, "Ehliyet Türünü Giriniz")
Exit Sub
Else
ep1.SetError(cmb10, "")
End If

Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\p_takip.mdb;")
Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * From personel", baglan)
Dim CB As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adp)

baglan.Open()

Dim ds As New DataSet()

adp.Fill(ds)
Dim rw1 As DataRow
rw1 = ds.Tables(0).NewRow

Dim x As Integer
x = ds.Tables(0).Rows.Count

Dim s1, s2 As String

s1 = cmb1.Text + cmb2.Text + txtDTarih.Text
s2 = cmb4.Text + txtCepTlf.Text

rw1.Item("ID") = txtid.Text
rw1.Item("TCKimlikNo") = txttc.Text
rw1.Item("Ad") = txtAd.Text
rw1.Item("Soyad") = txtSoyad.Text
rw1.Item("BabaAd") = txtBAd.Text
rw1.Item("AnneAd") = txtAnad.Text
rw1.Item("DogumYeri") = txtDyer.Text
rw1.Item("DogumTarihi") = s1.ToString
rw1.Item("Uyruk") = cmb3.Text
rw1.Item("TelefonNo") = txttlf.Text
rw1.Item("CepTelNo") = s2.ToString
rw1.Item("OgrenimDurum") = cmb5.Text
rw1.Item("Meslek") = cmb6.Text
rw1.Item("Cinsiyet") = cmb7.Text
rw1.Item("MedeniHal") = cmb8.Text
rw1.Item("IseGirTarih") = txtIsGirTarih.Text
rw1.Item("CalistigiKisim") = cmb9.Text
rw1.Item("EhliyetTur") = cmb10.Text
rw1.Item("KimlikSeriNo") = txtKSeriNo.Text
rw1.Item("NufKayIl") = txtIl.Text
rw1.Item("NufKayIlce") = txtIlce.Text
rw1.Item("NufKayMah") = txtMahalle.Text
rw1.Item("CiltNo") = txtCiltNo.Text
rw1.Item("AileSiraNo") = txtAileNo.Text
rw1.Item("SiraNo") = txtSiraNo.Text
rw1.Item("EvAdresi") = txtAdres.Text
rw1.Item("Aciklama") = txtAciklama.Text

ds.Tables(0).Rows.InsertAt(rw1, x + 1)
adp.Update(ds)

DataGridView1.DataSource = ds.Tables(0)

baglan.Close()

j = j + 1

btnTemizle_Click(sender, e)

End Sub

‘Bir sonraki makalede buluşmak üzere. Bol kod‘lu günler...Bahadirsa