activex data objects library gerekli, mdac_type.exe; project menusunden prefences a tıkla, listede microsoft activex data objects yoksa, yuklemen gerekli vb6.0 da olan dataenvironment ı da kullanabilirsin.
activex data objects ve windows common controls 6.0, listwiev ile command buton ekle projene asagıdakini kaynaga yapıstır.
Dim conBaglanti as New ADODB.Connection
Dim rstTablo as New ADODB.Recordset
Dim strSQL as String
Dim lngRc as Long
Private Sub Command1_Click()
'Access DB'sine baglanmak icin
conBaglanti.connectionstring="Provider=Microsoft.J et.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;Persist Security Info=False"
'Burada degisecek tek parametre Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb dir
'Access mdb dosyasinin diskte nerede oldugu bu parametrede yazilmalidir.
conBaglanti.open
'Baglanti kurulduktan sonra sira verileri okumaya geldi.
strSQL="select * from X_TBL"
set rstTablo=conBaglanti.execute(strSQL)
'listview kolonlari ekleniyor
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Add , , "Ilk Alan Degerleri"
'Veriler tabloya cekildikten sonra listview'a aktariliyor.
for lngRc=1 to rstTablo.recordcount
listview1.listitems.add ,,rstTablo(0) '(rstTablo'nun ilk alani ekleniyor)
rstTablo.movenext
next
'Rs ve baglanti kapatiliyor
rstTablo.close
conBaglanti.close
End Sub
ben birşey anlamadım
böyle geçiyor nette ama
