![Çözüldü](images/icons/cozuldu.png)
Bu örnekte AdiSoyadi sütununda aynı isimler kaydedildiğinde Ara/Bul combobox ında o kadar isim gözüküyor. Ara/Bul combobox ında aynı isimleri tekrarlamadan tek göstersin istiyorum. Yardımlarınızı bekliyorum. Teşekkürler...
Private Sub doldur()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")
baglanti.Open()
Dim komut As New OleDb.OleDbCommand("Select Kayitlar.AdiSoyadi FROM Kayitlar GROUP BY Kayitlar.AdiSoyadi", baglanti)
Dim oku As OleDb.OleDbDataReader
oku = komut.ExecuteReader()
While oku.Read()
ComboBox1.Items.Add(oku("AdiSoyadi"))
End While
baglanti.Close()
End Sub
olarak değiştiriniz....