Listbox a verileri sutun başlığı ile getirme

[ajan83]

Merhaba,

Çektiğim verileri sütun başlıkları ile getirmem mümkün mü?

Yada ilk satıra manuel veri girip, gelen verileri ardından yüklemek?

Kod: Tümünü seç

Call MDC
    sql = "SELECT * FROM Tablo1 WHERE SUT02 LIKE '%" & sut02 & "%' AND " & _
                                    "SUT03 LIKE '%" & sut03 & "%' AND " & _
                                    "SUT05 LIKE '%" & sut05 & "%' AND " & _
                                    "SUT06 LIKE '%" & sut06 & "%' AND " & _
                                    "SUT07 LIKE '%" & sut07 & "%' AND " & _
                                    "SUT08 LIKE '%" & sut08 & "%' AND " & _
                                    "(SUT09 LIKE '%" & sut09 & "%' OR SUT10 LIKE '%" & sut09 & "%') AND " & _
                                    "SUT11 LIKE '%" & sut11 & "%' AND " & _
                                    "SUT12 LIKE '%" & sut12 & "%' AND " & _
                                    "SUT13 LIKE '%" & sut13 & "%' ORDER BY SUT01"
    
    Set rs = Cn.Execute(sql)
    ListBox1.RowSource = Empty
    ListBox1.Column = rs.GetRows

    Cn.Close
    Set Cn = Nothing: Set rs = Nothing:

[Tarkan VURAL]

Merhaba,
Çektiğiniz verileri bir sayfaya alarak, sayfadan başlıklı şekilde ListBox nesnesine aktarmanız mümkün olabilir.

Aşağıdaki kod ile veriyi bir sayfaya aldığınızı düşünelim:

Kod: Tümünü seç

        
        For i = 0 To rs.Fields.Count - 1
            ActiveSheet.Cells(1, i + 1).Value = rs.Fields(i).Name
        Next i
        ActiveSheet.Cells(2, 1).CopyFromRecordset rs

Bu kod ile de başlıkla listeleme yapabilirsiniz:

Kod: Tümünü seç

        Set veriseti = Range("A1").CurrentRegion.Offset(1, 0)
        With UserForm1.ListBox1
            .ColumnCount = fldCount - 1
            .RowSource = veriseti.Address
        End With

[ajan83]

Kod: Tümünü seç

ListBox1.RowSource = Empty
    ListBox1.RowSource = "SAYFA3!A1:M" & Sheets("SAYFA3").Range("M65536").End(xlUp).Row

Aynı şekilde verileri ListView1 e nasıl yüklerim?