ADO ile veri almada doğrudan Listbox' a getirme

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
1,735
Excel Vers. ve Dili
Office 2013 İngilizce
Merhaba,
Aşağıdaki Kod' da filtrelenen veriler önce sayfaya kopyalanıyor, Range("A2").CopyFromRecordset RS

sonra sayfadan UserForm Listbox' a alınmakta; UserForm3.ListBox1.RowSource = "A1:F26"

Burada filtre edilen verilerin herhangi bir Sayfa' ya kopyalamadan doğrudan UserForm Listbox' a alınması için nasıl bir düzenleme yapılmalıdır?

Kod:
DBON
RSON

UserForm3.ListBox1.RowSource = Empty

Range("A2:F26").ClearContents

sicil1 = UserForm3.TextBox1.Value

adi1 = UserForm3.TextBox2.Value

soyadi1 = UserForm3.TextBox3.Value

SQLStr = "SELECT SIRA,SİCİL,ADI, SOYADI,GİRİŞ,ÜCRET FROM [DATA$]" & _
"WHERE SİCİL LIKE '" & sicil1 & "%' AND ADI LIKE '" & adi1 & "%' AND SOYADI LIKE '" & soyadi1 & "%'"

RS.Open SQLStr, DB, 1, 3

Range("A2").CopyFromRecordset RS

UserForm3.ListBox1.RowSource = "A1:F26"

DBOFF
RSOFF
Teşekkürler,

iyi akşamlar.
 

Ekli dosyalar

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
27,567
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Kendinize uyarlarsınız..

C++:
Private Sub TextBox1_Change()
'On Error Resume Next

DBON
RSON

UserForm3.ListBox1.RowSource = Empty

Range("A2:F26").ClearContents

sicil1 = UserForm3.TextBox1.Value

adi1 = UserForm3.TextBox2.Value

soyadi1 = UserForm3.TextBox3.Value

SQLStr = "SELECT SIRA,SİCİL,ADI, SOYADI,GİRİŞ,ÜCRET FROM [DATA$]" & _
"WHERE SİCİL LIKE '" & sicil1 & "%' AND ADI LIKE '" & adi1 & "%' AND SOYADI LIKE '" & soyadi1 & "%'"

RS.Open SQLStr, DB, 1, 3

UserForm3.ListBox1.Column = RS.GetRows

DBOFF
RSOFF

End Sub
 
Üst