ADO ile veri almada doğrudan Listbox' a getirme

[tamer42]

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?

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.

 

[Korhan Ayhan]

Kendinize uyarlarsınız..

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

 

[tamer42]

UserForm3.ListBox1.Column = RS.GetRows

Çok teşekkürler
iyi ve mutlu bir gün dilerim.