+- 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)
Cvp: Combobox ile DataGridview (Access Veritabanı) Sorgusu - alpeki99 - 11/04/2014
O alanların boş olup olmadığını kontrol edin. Eğer boş ise mesaj verdirip exit sub yapın.
Cvp: Combobox ile DataGridview (Access Veritabanı) Sorgusu - chevy - 12/04/2014
Access veri tabanındaki ilgili alanların boş olup olmadığını nasıl kontrol ettireceğimi bilmiyorum. Bu kontrolü sorgu() içerisinde mi kullanacağım. Kodlar nasıl olacak yardım edermisiniz lütfen ?
Bu arada sorun üstüne sorun çıkıyor. Bir türlü çözemedim şu sorgu işini gelen yanıtlarda benim anlayacağım kadar açık değil. Aşağıdaki kodlar ile de Comboboxları dolduruyorum ancak comboboxların içerisi 2 şer 3 er aynı değerlerle dolu. Group by ifadesini yanlış mı kullanıyorum ?
Kod:
Private Sub doldur()
baglanti.Open()
kmt.Connection = baglanti
kmt.CommandText = "Select AdiSoyadi,BabaAdi,DogumYeri from KAYITLAR group By AdiSoyadi,BabaAdi,DogumYeri"
Dim oku As OleDb.OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
ComboBox1.Items.Add(oku("AdiSoyadi").ToString())
ComboBox2.Items.Add(oku("BabaAdi").ToString())
ComboBox3.Items.Add(oku("DogumYeri").ToString())
End While
baglanti.Close()
oku.Dispose()
ComboBox1.Sorted = True
ComboBox2.Sorted = True
ComboBox3.Sorted = True
End Sub