Bir arkadaş access dosyasından listboxa veri çekmekle ilgili sordu.Onun sorusu tamam.

[Orion1]

Ekteki dosya tamamdır.Access dosyası masa üstünde olmalı.

Private Sub arama(kosul As Variant, alan As String)
Dim baglan As ADODB.Connection, rs As ADODB.Recordset, sorgu As String
Set baglan = New ADODB.Connection
Set rs = New ADODB.Recordset
ListBox1.Clear
yol = CreateObject("wscript.shell").specialfolders(10)
baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=" & yol & "\ornek.accdb;"
If IsNumeric(kosul) Then
    sorgu = "select Kimlik, ad, soyad, telefon, adres from[musteri] where " & alan & "=" & kosul
Else
    sorgu = "select Kimlik, ad, soyad, telefon, adres from[musteri] where " & alan & " like '" & kosul & "%'"
End If
rs.Open sorgu, baglan, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then ListBox1.Column = rs.GetRows
rs.Close
baglan.Close
        
End Sub

 

[Haluk]

Soruyu soran @tristanfermat idi, sanırım....

.

 

[Orion1]

Hocam onun sorularına baktım soru başlığını bulamadım.Yok.

 

[tristanfermat]

Cok sagolun. Dosyalari tekrar birlikte yüklemek icin konunun kapatilmasini rica etmistim. Evet soruyu ben sormustum.

 

[Orion1]

İstediğiniz cevabı aldınızmı?