Listbox Kolon Başlıklarını Recordsetten Almak

[piqueteros]

Merhabalar.

SQL serverdan bir Stored prosudurle aldığım veri setini record setin alan adlarını Listboxdaki başlıklara eklemek istiyorum. Fakat sanırım listbox bunu desteklemiyor. Listboxların colon adları sanırım rowsource denilenen değerden columndheads enable edildiğinde alıyor. Fakat ben rowsource olarak recordesti gösteremiyourm. Ben recordseti listeye aşağıdaki kodla dökebiliyorum.

//
...
cmd.Parameters(1).Value = TxbArama.Text
cmd.Parameters(2).Value = TxbArama.Text ''Stored proca parametre ata
Set rs = cmd.Execute()
u = 0

If IsEmptyRecordset(rs) = False Then
i = 0
Me.ListBox1.ColumnCount = rs.Fields.Count
Me.ListBox1.ColumnWidths = "100;100;200;200;50;50;50"

With Me.ListBox1

.Clear
Do
.AddItem
.List(i, 0) = rs!MALKOD
.List(i, 1) = rs!URETICIKOD
.List(i, 2) = rs!MALAD
.List(i, 3) = rs!MALAD2
.List(i, 4) = rs!LISTEFIYATI
.List(i, 5) = rs!ACIKLAMA
.List(i, 6) = rs!MARKA
.List(i, 7) = rs!KULLANILABILIR
i = i + 1
rs.MoveNext
Loop Until rs.EOF
End With
Else
MsgBox "Arama Kutusuna Üretici Kodu Yada Malkodu Çağrıştıracak Cümle Giriniz"
End If

----

Yukardaki koda colon başlıklarını ekleyebileceğim bir listbox özelliği varmıdır.

Teşekürler...

 

[Murat OSMA]

Deneyiniz;

for a = 0 to rs.fields.count - 1
cells(1,a+1).value = rs.fields(a).name
next a