"GetRows" metodunda alanlar

[tamer42]

Merhaba,
ADO ile Userform' a veri alırken GetRows metodunda alanları ayırmamız mümkün müdür?

Listbox' a 2 alanıda alırken, Combobox'a sadece ilk sütunu (urunadi) almak istiyorum; aşağıdaki şekilde denedim, fakat hata verdi.

yardımcı olursanız sevinirim.

Sql1 = "Select urunadi, stokkodu from [urunler]"

rs.Open Sql1, baglan, 1, 3

ListBox4.Column = rs.GetRows
ComboBox4.Column = rs.GetRows(0)

iyi haftalar.

 

[Korhan Ayhan]

Merhaba,

Normalde aşağıdaki şekilde ben bilgiyi alabildim.

ComboBox1.Column = Kayit_Seti.GetRows(, , 1)

Fakat GetRows ile verileri bir nesneye yükledikten sonra ikinci nesneye yükleme işlemini yapamadım. Sanırım bir kez yüklendikten sonra GetRows özelliği kalkıyor.

Yani aşağıdaki şekilde çalışmadı.

ComboBox1.Column = Kayit_Seti.GetRows(, , 1)
ListBox1.Column = Kayit_Seti.GetRows

Ekteki dosyada biraz dolambaçlı yoldan sonuca gidebildim. Belki işinize yarar. Ya da bu konuda tecrübeli arkadaşlardan daha farklı çözüm önerileri gelebilir.

 

[tamer42]

Merhaba,

Normalde aşağıdaki şekilde ben bilgiyi alabildim.

ComboBox1.Column = Kayit_Seti.GetRows(, , 1)

Fakat GetRows ile verileri bir nesneye yükledikten sonra ikinci nesneye yükleme işlemini yapamadım. Sanırım bir kez yüklendikten sonra GetRows özelliği kalkıyor.

Yani aşağıdaki şekilde çalışmadı.

ComboBox1.Column = Kayit_Seti.GetRows(, , 1)
ListBox1.Column = Kayit_Seti.GetRows

Ekteki dosyada biraz dolambaçlı yoldan sonuca gidebildim. Belki işinize yarar. Ya da bu konuda tecrübeli arkadaşlardan daha farklı çözüm önerileri gelebilir.

teşekkürler Korhan Hocam,

 

[Erdem Akdemir]

Merhaba,

Recordset eof özelliği true olduğunda son kayıta gelmiş demektir.
Bunu başa almak için rs.movefirst kodunu araya eklemeniz lazım.

Aşağıdaki gibi olabilir.

        With ListBox1
            .ColumnCount = 2
            .ColumnWidths = "100;100"
            .Column = rs.getrows
        End With
        
        rs.movefirst

    ComboBox1.Column = rs.getrows(, , 1)

 

[Korhan Ayhan]

@Erdem_34 bey bilgi için teşekkürler...

 

[tamer42]

Merhaba,

Recordset eof özelliği true olduğunda son kayıta gelmiş demektir.
Bunu başa almak için rs.movefirst kodunu araya eklemeniz lazım.

Aşağıdaki gibi olabilir.

        With ListBox1
            .ColumnCount = 2
            .ColumnWidths = "100;100"
            .Column = rs.getrows
        End With
       
        rs.movefirst

    ComboBox1.Column = rs.getrows(, , 1)

Erdem Hocam bilgilendirme için çok teşekkürler