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