- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhabalar,
form üstünde çalışırken bir tabloyu ADO ile açıp, içinde SQL sorgusuna uyan veri leri bir listbox üzerine almak isterken;
Tablo 3 sütunlu olduğu için Listbox' u da 3 sütunlu olarak ayarladım, yalnız birebir tablodaki sütunları listbox taki farklı sütunlara akramadım,
st = rst(1) & " - " & rst(2) & " - " & rst(0)
bu şekilde birleştirerek ancak 1. sütuna aktarabildim.
rst(1) >>> 1. sütuna ... Me.List132.Column (0)
rst(2) >>> 2. sütuna ... Me.List132.Column (1)
rst(0) >>> 3. sütuna ... Me.List132.Column (2)
gibi aktarabirmiyim?
İyi Çalışmalar.
form üstünde çalışırken bir tabloyu ADO ile açıp, içinde SQL sorgusuna uyan veri leri bir listbox üzerine almak isterken;
Kod:
Dim rs As New ADODB.Recordset
rst.Open "SELECT * FROM Kişiler WHERE SiraNo=" & txtAra & ";", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.MoveFirst
While Not rst.EOF
st = rst(1) & " - " & rst(2) & " - " & rst(0)
Me.List132.AddItem st
rst.MoveNext
Wend
rs.Close
Tablo 3 sütunlu olduğu için Listbox' u da 3 sütunlu olarak ayarladım, yalnız birebir tablodaki sütunları listbox taki farklı sütunlara akramadım,
st = rst(1) & " - " & rst(2) & " - " & rst(0)
bu şekilde birleştirerek ancak 1. sütuna aktarabildim.
rst(1) >>> 1. sütuna ... Me.List132.Column (0)
rst(2) >>> 2. sütuna ... Me.List132.Column (1)
rst(0) >>> 3. sütuna ... Me.List132.Column (2)
gibi aktarabirmiyim?
İyi Çalışmalar.