ADO kayıt seti

[excellcan]

Forumda emeği geçen herkese merhaba.
Aşağıdaki kod bloğunda sorgu1 için Rs
den farklı bir kayıt seti mi açmam
gerekiyor. İlgilenen arkadaşlara şimdiden
teşekkürler.

sorgu = "select*from [tbl$] where[ücret]>2000"
sorgu1 = "select*from [xyz$] where[ücret]<2000"

Rs.open sorgu,Con,3,1

Sheets("Sayfa1").Range("A2").Cells.CopyFromRecordset Rs
Sheets("Sayfa2").Range("A2").Cells.CopyFromRecordset  ?

?

 

[Orion1]

Deneyiniz.

sorgu = "select*from [tbl$] where[ücret]>2000"
sorgu1 = "select*from [xyz$] where[ücret]<2000"

rs.Open sorgu, Con, 3, 1
Sheets("Sayfa1").Range("A2").Cells.CopyFromRecordset rs
rs.Close
rs.Open sorgu1, Con, 3, 1
Sheets("Sayfa2").Range("A2").Cells.CopyFromRecordset rs
rs.close

 

[excellcan]

Hocam teşekkür ederim.

 

[Orion1]

Hocam teşekkür ederim.

Rica ederim.
İyi çalışmalar.