Listboxa recordset teki veriyi almak

[Orion1]

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.

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

 

[modalı]

Evren Bay,

Bir de şunu deneyin:

With Me.ListBox0
.RowSourceType = "Value list"
.RowSource = rs(0), rs(1)
End With

 

[Orion1]

Evren Bay,

Bir de şunu deneyin:

With Me.ListBox0
.RowSourceType = "Value list"
.RowSource = rs(0), rs(1)
End With

teşekkür ederim.
Alttaki satırda kırmızı boyuyor hata veriyor.Sanırım virgülü kabul etmiyor.

.RowSource = rs(0), rs(1)

 

[modalı]

Basit bir örnek ekleyebilir misiniz?

İyi çalışmalar

 

[Orion1]

Basit bir örnek ekleyebilir misiniz?

İyi çalışmalar

Dosyayı ekledim.

 

[modalı]

Evren Bey,

Kodlar aşağıda:

Private Sub Komut1_Click()
Dim x As Long
Dim rs As New ADODB.Recordset


rs.Open "tblveriler", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
rs.MoveFirst

Do While Not rs.EOF
With Me.Liste3
.RowSourceType = "Value list"
.RowSource = Liste3.RowSource & rs(0) & ";" & rs(1) & ";"
End With
rs.MoveNext
Loop
rs.Close

End Sub

İyi çalışmalar

 

[Orion1]

Teşekkürler üstadım.oldu.
Burada dikkatimi çeken bir noktada connection tanımlamamız.Demekki direk access dosyası olduğu için böyle davranıyor.Peki başka bir dosyadaki veritabanına erişmek isteseydik o zaman tanımlama provider ve datasource yapıcakmıydık?

 

[modalı]

Çeşitli yolları var biri de şöyle:

Slayt 10 .O {font-size:149%;}

'conn u bir ADODB bağlantı olarak tanımlıyoruz -
Dim conn As ADODB.Connection
' conn ile bir bağlantı oluşturuyoruz -
Set conn = New ADODB.Connection
' hangi sağlayıcıyı kullanacağımızı anlatıyoruz  -
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
' bağlantı yardımıyla veritabanını açıyoruz -
conn.Open "c:/modali/deneme.mdb"
' bir kayıt kümesi tanımlıyoruz -
Dim myTableRS As ADODB.Recordset
' kayıt kümesini oluşturuyoruz - 
Set myTableRS = New ADODB.Recordset
' kayıt kümesini, bağlantı ve veritabanı yardımıyla aşıyoruz
myTableRS.Open “tblDeneme", conn, adOpenDynamic, adLockPessimistic

 

[Orion1]

Üstadım bunu(connection) başka mdb dosyasını açmak için kullanıyoruz diilmi.(Mecburmu?benim kanaatim bu olmadan olmaz.)
Ama curruntproject dosyasında bunlara gerek yok.Doğrumudur?

 

[modalı]

Evet ilk örnekte nasıl bağlandık?

 

[modalı]

Aşağıdaki başlıkları incelediniz mi bilmiyorum.

http://www.excel.web.tr/showthread.php?t=71233
http://www.excel.web.tr/showthread.php?t=71234

 

[Orion1]

Üstadım teşekkür ederim.
Ben zaten excelde bağlanıyorum.Access için nasıl olur onu bilmiyordum.Burada aktif dosyadaki bağlantı diğerinden farklı oluyor.Bunuda görmüş olduk.Ayrıca listboxa veriyi almayı öğrendik.
İyi akşamlar.