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

Windows XP Key

Yazar: by_anderson
Bu kod Registryden Windows XP Key i okur.


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?

"Data Combo Hk."

Arkadaşlar merhaba. Aşağıdaki kod ile data comboya gelen doktor isimlerine göre verileri sorgulayarak bilgileri datagride yazdırıyorum. Ancak aynı doktor ismi farklı tarihlerde kayıt edildiğinde data comboda da farklı satırlarda çıkıyor. Gelen aynı bilgileri data comboda tek satırda göstermek istiyorum. Veritabanı access.

Teşekkürler.

Private Sub Command4_Click()
DataCombo2.Enabled = False
Command5.Enabled = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
Command3.Enabled = False
Frame4.Enabled = False
Frame2.Enabled = False
Label8.Enabled = False
Label9.Enabled = False
Label11.Enabled = False
Adodc1.RecordSource = "recete where doktoradisoyadi like '" & Trim(DataCombo1.Text) & "%' order by doktoradisoyadi"
Adodc1.Refresh
rapor.Adodc1.CommandType = adCmdUnknown
rapor.Adodc1.CursorLocation = adUseClient
rapor.Adodc1.RecordSource = MYSQL1
Set rapor.DataGrid1.DataSource = rapor.Adodc1
Label13.Caption = "Veri Tabanında" & "  " & Adodc1.Recordset.RecordCount & "  " & " Kayıt Bulunmaktadır."
End Sub

Üyeye Özelden Mesaj At baranakalan | 30.07.2015 16:58


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 | 01.09.2016 16:30



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