Seçilen kolonların liste kutusuna aktarımı

[zafer]

Merhaba

Sql veritabanından sorgulama yapıyorum

kolon isimleri listbox'ımda seçtiğim kolon adlarının
LİSTELE butonuna bastığımda üstündeki lixtbox ta sadece seçtiğim kolon adlarına göre ilk kolondan başlayarak bütün kayıtlarımın listelenmesini istiyorum.

Aşağıdaki makroya nasıl bir döngü koymalıyım.bir türlü tam anlamıyla başaramadım.

With rst
.ActiveConnection = cnt
.Open SELECT * FROM " & tablename & " where " & columnname & " like '" & TextBox5.Text & "%'" & ""

Do While Not rst.EOF

ListBox1.AddItem
ListBox1.COLUMN(0, x) = rst(0)
ListBox1.COLUMN(1, x) = rst(1)
ListBox1.COLUMN(2, x) = rst(2)
ListBox1.COLUMN(3, x) = rst(3)
rst.MoveNext
x = x + 1

Loop
.Close
End With




Saygılarımla

 

[Levent Menteşoğlu]

[vb:1:30654ca879]ListBox1.AddItem
ListBox1.COLUMN(0, x) = rst(0)
ListBox1.COLUMN(1, x) = rst(1)
ListBox1.COLUMN(2, x) = rst(2)
ListBox1.COLUMN(3, x) = rst(3)
rst.MoveNext
x = x + 1
[/vb:1:30654ca879]

Sn Zafer yukarıdaki satırları aşağıdaki gibi denermisiniz.

[vb:1:30654ca879]ListBox1.AddItem
ListBox1.COLUMN(x, 0) = rst(0)
ListBox1.COLUMN(x, 1) = rst(1)
ListBox1.COLUMN(x, 2) = rst(2)
ListBox1.COLUMN(x, 3) = rst(3)
rst.MoveNext
x = x + 1
[/vb:1:30654ca879]

 

[zafer]

Merhaba

Sayın Leventm'im Teşekkür ederim
Sizin zamanınızı aldım. Dün foruma hiç girmemiştim.sizin gönderdiğiniz cevabıda görmemiştim özür dilerim.

Son 2 satırı sizn dediğiniz gibi yer değiştirerek

Aşağıda ki makroyla çözdüm.

Do While Not rst.EOF
For i = 0 To ListBox5.ColumnCount
ListBox1.AddItem
ListBox1.COLUMN(i, x) = rst(i)
Next i
rst.MoveNext
x = x + 1
Loop


Saygılarımla