1 / 11

Vbnet access bağlantısı, ekleme, güncelleme, silme 

Vbnet access bağlantısı, ekleme, güncelleme, silme . Imports System .Data. OleDb. ' DataGridView nesnesine verileri aktar Private Sub Listele ( ByVal SQL As String )

meagan
Download Presentation

Vbnet access bağlantısı, ekleme, güncelleme, silme 

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Vbnetaccess bağlantısı, ekleme, güncelleme, silme 

  2. ImportsSystem.Data.OleDb 'DataGridView nesnesine verileri aktar PrivateSub Listele(ByVal SQL AsString) DimbaglantiAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")'Veritabanımızın yerini belirtiyoruz. Dimveriler AsNewDataTable("Kayitlar") DimadapterAsNewOleDbDataAdapter(SQL,baglanti) adapter.Fill(veriler)'buradaki veriler oluşturduğumuz sanal tablo. DataGridView1.DataSource= veriler 'veri tabanından gelen kayıtları DataGridView'e aktarıyoruz . EndSub

  3. PrivateSub doldur() DimbaglantiAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'") baglanti.Open() Dimkomut AsNewOleDb.OleDbCommand("SELECT AdiSoyadi FROM Kayitlar ORDER BY AdiSoyadi",baglanti) Dimoku AsOleDb.OleDbDataReader oku = komut.ExecuteReader() Whileoku.Read() ComboBox1.Items.Add(oku("AdiSoyadi")) EndWhile baglanti.Close() EndSub

  4. PrivateSub Form1_Load(ByValsenderAsSystem.Object,ByVal e AsSystem.EventArgs)HandlesMyBase.Load DataGridView1.EditMode=DataGridViewEditMode.EditProgrammatically DataGridView1.SelectionMode=DataGridViewSelectionMode.FullRowSelect Listele("SELECT * FROM Kayitlar'") doldur() EndSub 'formumuzun üzerindeki nesneleri temizlePrivateSub Temizle() TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() TextBox7.Clear() EndSub

  5. 'KAYDET PrivateSub Button1_Click(ByValsenderAsSystem.Object,ByVal e AsSystem.EventArgs)Handles Button1.Click IfMe.TextBox1.Text= "" Then MsgBox("Lütfen TCKimlikNo Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.",MsgBoxStyle.Exclamation, "Kayıt Uyarı")Else DimsqlAsNewString("INSERT INTO Kayitlar (TckimlikNo,AdiSoyadi,BabaAdi,Ogrencino,DogumYeri,Dogumtarihi,Aciklama) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}')") sql=String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text) DimbaglantiAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'") DimkomutnesnesiAsNewOleDb.OleDbCommand(sql,baglanti) DimsonucAsInteger baglanti.Open()sonuc=komutnesnesi.ExecuteNonQuery() Ifsonuc= 1 Then MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.",MsgBoxStyle.Exclamation, "Tebrikler") EndIf Listele("SELECT * FROM Kayitlar'") baglanti.Close() Temizle() EndIf Me.ComboBox1.Text= "" EndSub

  6. 'DEĞİŞİKLİKLERİ KAYDET.'Burada DataGrid içerisinden seçtiğimiz kaydı düzenleyerek kaydetmemize yarayan kodlar vardır. PrivateSub Button2_Click(ByValsenderAsSystem.Object,ByVal e AsSystem.EventArgs)Handles Button2.ClickIfMe.TextBox1.Text= "" Then MsgBox("Lütfen Kayıt Seçiniz.",MsgBoxStyle.Exclamation, "DİKKAT") Else DimsqlAsNewString("UPDATE Kayitlar SET TckimlikNo='{0}',AdiSoyadi='{1}',BabaAdi='{2}',Ogrencino='{3}',DogumYeri='{4}',Dogumtarihi='{5}',Aciklama='{6}' WHERE TckimlikNo='{7}' ") sql=String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, DataGridView1.CurrentRow.Cells(0).Value) DimbaglantiAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'") DimkomutnesnesiAsNewOleDb.OleDbCommand(sql,baglanti) DimsonucAsInteger baglanti.Open() sonuc=komutnesnesi.ExecuteNonQuery() Ifsonuc= 1 Then MsgBox("Değiştirmiş Olduğunuz Veriler Doğrultusunda Kayıtlar Güncellenmiştir.",MsgBoxStyle.Exclamation, "Değişiklik Uyarısı") EndIf Listele("SELECT * FROM Kayitlar'") baglanti.Close() Temizle() EndIf Me.ComboBox1.Text= "" EndSub

  7. 'Sil Butonu'DataGrid üzerinden seçilen kaydı silmemize yarar. PrivateSub Button3_Click(ByValsenderAsSystem.Object,ByVal e AsSystem.EventArgs)Handles Button3.Click IfMe.TextBox1.Text= "" Then MsgBox("Lütfen Öncelikle Kayıt Seçiniz.",MsgBoxStyle.Exclamation, "DİKKAT") Else DimsqlAsNewString("DELETE FROM Kayitlar WHERE TckimlikNo='{0}' ") sql=String.Format(sql, DataGridView1.CurrentRow.Cells(0).Value) DimbaglantiAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'") DimkomutnesnesiAsNewOleDb.OleDbCommand(sql,baglanti) DimsonucAsInteger baglanti.Open()sonuc=komutnesnesi.ExecuteNonQuery() Ifsonuc= 1 Then MsgBox("Listeden Seçmiş Olduğunuz Veriler Silinmiştir.",MsgBoxStyle.Exclamation, "Silme İşlemi") EndIf Listele("SELECT * FROM Kayitlar'") baglanti.Close() Temizle() EndIf EndSub

  8. 'DataGrid tıklandığında ilgili kaydın Metin Kutularına aktarılması. PrivateSub DataGridView1_CellClick(ByValsenderAsObject,ByVal e AsSystem.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellClick TextBox1.Text=IIf(IsDBNull(DataGridView1.CurrentRow.Cells(0).Value), "", DataGridView1.CurrentRow.Cells(0).Value)'İlgili alan boş ise TextBox'a boş olarak ataması. TextBox2.Text=IIf(IsDBNull(DataGridView1.CurrentRow.Cells(1).Value), "", DataGridView1.CurrentRow.Cells(1).Value) TextBox3.Text=IIf(IsDBNull(DataGridView1.CurrentRow.Cells(2).Value), "", DataGridView1.CurrentRow.Cells(2).Value) TextBox4.Text=IIf(IsDBNull(DataGridView1.CurrentRow.Cells(3).Value), "", DataGridView1.CurrentRow.Cells(3).Value) TextBox5.Text=IIf(IsDBNull(DataGridView1.CurrentRow.Cells(4).Value), "", DataGridView1.CurrentRow.Cells(4).Value) TextBox6.Text=IIf(IsDBNull(DataGridView1.CurrentRow.Cells(5).Value), "", DataGridView1.CurrentRow.Cells(5).Value) TextBox7.Text=IIf(IsDBNull(DataGridView1.CurrentRow.Cells(6).Value), "", DataGridView1.CurrentRow.Cells(6).Value)EndSub PrivateSub Button4_Click(ByValsenderAsSystem.Object,ByVal e AsSystem.EventArgs)Handles Button4.Click Temizle() EndSub

  9. PrivateSub ComboBox1_TextChanged(ByValsenderAsObject,ByVal e AsSystem.EventArgs)Handles ComboBox1.TextChanged IfMe.ComboBox1.Text> "" Then DimsqlAsNewString("SELECT * FROM Kayitlar WHERE Kayitlar.AdiSoyadi='{0}'") sql=String.Format(sql, ComboBox1.SelectedItem) DimbaglantiAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'") DimkomutnesnesiAsNewOleDb.OleDbCommand(sql,baglanti) DimsonucAsInteger baglanti.Open()sonuc=komutnesnesi.ExecuteNonQuery() Ifsonuc= 1 Then MsgBox("Hatayı Kontrol Ediniz.",MsgBoxStyle.Exclamation, "Silme İşlemi") EndIf Listele(sql) baglanti.Close() Else DimsqlAsNewString("SELECT * FROM Kayitlar '") sql=String.Format(sql, ComboBox1.SelectedItem) DimbaglantiAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'") DimkomutnesnesiAsNewOleDb.OleDbCommand(sql,baglanti) DimsonucAsInteger baglanti.Open() sonuc=komutnesnesi.ExecuteNonQuery() Ifsonuc= 1 Then MsgBox("Hatayı Kontrol Ediniz.",MsgBoxStyle.Exclamation, "Silme İşlemi") EndIf Listele(sql) baglanti.Close() EndIf EndSub

  10. PrivateSub Button6_Click_1(ByValsenderAsSystem.Object,ByVal e AsSystem.EventArgs)Handles Button6.ClickMe.ComboBox1.Text= "" EndSub PrivateSub Button5_Click(ByValsenderAsSystem.Object,ByVal e AsSystem.EventArgs)Handles Button5.Click Close() EndSub

More Related