Combobox ile DataGridview (Access Veritabanı) Sorgusu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html) +--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html) +--- Konu Başlığı: Combobox ile DataGridview (Access Veritabanı) Sorgusu (/konu-combobox-ile-datagridview-access-veritabani-sorgusu.html) |
Combobox ile DataGridview (Access Veritabanı) Sorgusu - chevy - 30/03/2014 Ekte gönderdiğim uygulamada Combox1 veritabanından AdiSoyadi bilgilerini getirip süzerken eklediğim Combobox2 ile de BabaAdi bilgilerini getirip süzmek istiyorum. Yani Filtreleme işlemi Combobox değerlerine göre birlikte çalışmasını istiyorum. Combobox1 ve Combobox2 değerlerine göre datagrid verileri göstersin istiyorum. Combobox1 = Ali Combobox2 = Veli DataGrid sonucu = Adi Soyadı Ali BabaAdi Verli olanların tamamı. Cvp: Combobox ile DataGridview (Access Veritabanı) Sorgusu - alpeki99 - 31/03/2014 Bu sitede uzman seviyesinde kimse VS2010 üzeri sürümleri kullanmıyor. Ne olur artık bunu dikkate alın. Cvp: Combobox ile DataGridview (Access Veritabanı) Sorgusu - ogulcan92 - 31/03/2014 Sn:chevy Aşağıda kod ile istemiş olduğunuz sonucu alırsınız verdiğim örnek VB6 üzerine ama mantık aynı yani Sql kodlar ile işlem yapacaksınız.
Combobox ile DataGridview (Access Veritabanı) Sorgusu - chevy - 31/03/2014 Daha açıklayıcı olması açısından; AdiSoyadi (Combobox1) BabaAdi (Combobox2) Combobox1 den Ali seçildiğinde 2 adet kayıt Datagridde gösteriliyor. Combobox2 den de Veli seçildiğinde tek kayıt göstersin istiyorum. Yani Datagridde sonuç; AdiSoyadı=Ali BabaAdi=Veli olsun.. Codelar bu şekli ile düzgün çalışıyor ancak Combobox2 ilave edilince nasıl bir değişiklik yada ilave gerekiyor. 'DataGridView nesnesine verileri aktar Private Sub Listele(ByVal Sql As String) Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='kayıt.mdb'") Dim veriler As New DataTable("Kayitlar") Dim adapter As New OleDbDataAdapter(SQL, baglanti) adapter.Fill(veriler) DataGridView1.DataSource = veriler End Sub Private Sub doldur() Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='kayıt.mdb'") baglanti.Open() Dim komut As New OleDb.OleDbCommand("SELECT AdiSoyadi FROM Kayitlar GROUP BY AdiSoyadi", baglanti) Dim oku As OleDb.OleDbDataReader oku = komut.ExecuteReader() ComboBox1.Items.Clear() While oku.Read() ComboBox1.Items.Add(oku("AdiSoyadi")) End While baglanti.Close() End Sub Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged If Me.ComboBox1.Text > "" Then Dim Sql As New String("SELECT * FROM Kayitlar WHERE Kayitlar.AdiSoyadi='{0}'") Sql = String.Format(sql, ComboBox1.SelectedItem) Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='kayıt.mdb'") Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti) Dim sonuc As Integer baglanti.Open() sonuc = komutnesnesi.ExecuteNonQuery() If sonuc = 1 Then MsgBox("Hatayı Kontrol Ediniz.", MsgBoxStyle.Exclamation, "Silme İşlemi") End If Listele(sql) baglanti.Close() Else Dim Sql As New String("SELECT * FROM Kayitlar '") Sql = String.Format(sql, ComboBox1.SelectedItem) Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='kayıt.mdb'") Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti) Dim sonuc As Integer baglanti.Open() sonuc = komutnesnesi.ExecuteNonQuery() If sonuc = 1 Then MsgBox("Hatayı Kontrol Ediniz.", MsgBoxStyle.Exclamation, "Silme İşlemi") End If Listele(sql) baglanti.Close() doldur() End If End Sub Cvp: Combobox ile DataGridview (Access Veritabanı) Sorgusu - ogulcan92 - 31/03/2014 Sn:chevy Az önce yukarıda vermiş olduğum kodlar ile bende kendi programlarımda sizin istemiş olduğunuz şekilde raporlamalar alıyorum burada Comboboxların Clik olayına fonksiyonun çalışması için kodları yazacaksınız. Cvp: Combobox ile DataGridview (Access Veritabanı) Sorgusu - chevy - 31/03/2014 Combobox1 ve combobox2 birlikte çalışması için codları nasıl düzenleyeceğimi veya ne ilave edeceğim konusunda yardımcı olabilirmisiniz. Access veritabanı kullanıyorum ancak codları nasıl düzenleyeceğim... |