- Katılım
- 8 Mart 2005
- Mesajlar
- 3,288
- Excel Vers. ve Dili
-
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
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