- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Merhaba.
toolboxtan msforms2 listbox nesnesi ekledim fomuma.
Aşağıdaki kodlarla db'den verileri alıyorum.Bunda sorun yokta(msgboxla denedim.Çalışıyor) listboxa verileri alamadım.
Listboxa verileri nasıl alabilirim.EXCEL vba da oluyordu ama bunda olmadı.additem metodunu desteklemiyor.Herhalde veriler başka metodla alınıyor.
En hızlı ve doğru olarak verilerimi listboxa nasıl alabilirim.
Teşekkür ederim.
toolboxtan msforms2 listbox nesnesi ekledim fomuma.
Aşağıdaki kodlarla db'den verileri alıyorum.Bunda sorun yokta(msgboxla denedim.Çalışıyor) listboxa verileri alamadım.
Listboxa verileri nasıl alabilirim.EXCEL vba da oluyordu ama bunda olmadı.additem metodunu desteklemiyor.Herhalde veriler başka metodla alınıyor.
En hızlı ve doğru olarak verilerimi listboxa nasıl alabilirim.
Teşekkür ederim.
Kod:
Private Sub Komut1_Click()
Dim x As Long
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
ListBox0.Value = ""
Set conn = New ADODB.Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & Application.CurrentProject.FullName
Set rs = New ADODB.Recordset
rs.Open "select * from tblveriler;", conn, 1, 3
rs.MoveFirst
Do While Not rs.EOF
ListBox0.AddItem
ListBox0.List(x, 0) = rs(0)
ListBox0.List(x, 1) = rs(1)
x = x + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub