Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    Anasayfa » Forum Anasayfa » Kategori: Visual Basic 6.0
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Sinir & sitenizin hitlerini artırma

Yazar: anthrax3
sinir olduğunuz birini kullanarak sitenizin hit lerini artıran program


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?

"ComboboxTekrars?z Kay?tlar"

Merhaba,

Combobox içerisine access veri taban?ndan verileri listeliyorum. Ancak bir isimden  den çok oldu?unda mükerrer isimlerde listeleniyor. Örne?in ahmet ismi veri taban?nda 3 kere kay?tl? olmas?na ra?men combobox'da ahmet ismini tek sat?rda gözükmesini istiyorum. A?a??daki kod ile veri taban?ndan bilgileri çekiyorum. Yard?mlar?n?z? rica ediyorum. te?ekkürler.

Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
Combo1.AddItem Adodc1.Recordset.Fields("sonuc")
Adodc1.Recordset.MoveNext
Next i
End Sub

Üyeye Özelden Mesaj At glhnbrn | 10.06.2016 12:30




Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
Combo1.AddItem Adodc1.Recordset.Fields("sonuc")

For x As Int16 = 0 To Me.Combo1.Items.Count - 2
For j As Int16 = Me.Combo1.Items.Count - 1 To x + 1 Step -1
If Me.Combo1.Items(x).ToString = Me.Combo1.Items(j).ToString Then
Me.Combo1.Items.RemoveAt(j)
End If
Next
Next

Adodc1.Recordset.MoveNext
Next i
End Sub




Üyeye Özelden Mesaj At BAYDIN | 08.07.2016 13:50

DISTINCT deyimini içeren SQL kullanmayı denedin mi?

Üyeye Özelden Mesaj At mkefeli | 22.07.2016 08:40
BAYDIN yazdığın kodla denedim ancak olmadı. DISTINC ile denemey çalıştım ancak hatalar aldım sürekli. Örnek verebileceğin bir kod varmı?

Üyeye Özelden Mesaj At glhnbrn | 25.07.2016 17:03
Kullanımı:

SELECT DISTINCT column_name,column_name FROM table_name;

biçimindedir. w3schools web sitesinde kendin deneyebileceğin bir örneğini de bulabilirsin.
Kolay gelsin.

Üyeye Özelden Mesaj At mkefeli | 26.07.2016 17:07

Merhaba,

Aşağıdaki kod ile çözdüm. Başkasının işine de yarar.

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BILGI.mdb"
Combo1.Clear

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "select distinct sonuc from bilgi"

Adodc1.Refresh

With Adodc1.Recordset

Do Until .EOF
Combo1.AddItem ![sonuc]

.MoveNext

Loop

End With

Adodc1.RecordSource = "bilgi"

Label1.BackColor = &HFFFFFF
Label2.BackColor = &HFFFFFF

Üyeye Özelden Mesaj At glhnbrn | 31.08.2016 11:40

Tüm Kategoriler | Visual Basic 6.0 | Visual Basic 6.0  1. Sayfa
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin