Unutulan Değil iz bırakan OL!
Süper Üye
form_load kısmına
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path &"/veritabaniadi.mdb;Persist Security Info=False"
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
strg = "Select * from tabloadi order by TAKSİT ASC"
GOSTER
EndSub
Sub GOSTER()
Adodc1.RecordSource = strg
Adodc1.*******
If Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF ThenExitSub
ListView1.ListItems.Clear
For t = 1 To Adodc1.Recordset.RecordCount
OnErrorResumeNext
Set av = ListView1.ListItems.Add(, , Adodc1.Recordset!MNO, 0)
av.SubItems(1) = Adodc1.Recordset!ID
av.SubItems(2) = Adodc1.Recordset!AD
av.SubItems(3) = Adodc1.Recordset!SOYAD
av.SubItems(4) = Adodc1.Recordset!ODEME
av.SubItems(5) = Adodc1.Recordset!borc
av.SubItems(6) = Adodc1.Recordset!KALAN
av.SubItems(7) = Adodc1.Recordset!URUN
av.SubItems(8) = Adodc1.Recordset!TAKSİT
av.SubItems(9) = Adodc1.Recordset!TARIH
av.SubItems(10) = Adodc1.Recordset!DURUM
Adodc1.Recordset.MoveNext
Next
EndSub
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path &"/veritabaniadi.mdb;Persist Security Info=False"
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
strg = "Select * from tabloadi order by TAKSİT ASC"
GOSTER
EndSub
Sub GOSTER()
Adodc1.RecordSource = strg
Adodc1.*******
If Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF ThenExitSub
ListView1.ListItems.Clear
For t = 1 To Adodc1.Recordset.RecordCount
OnErrorResumeNext
Set av = ListView1.ListItems.Add(, , Adodc1.Recordset!MNO, 0)
av.SubItems(1) = Adodc1.Recordset!ID
av.SubItems(2) = Adodc1.Recordset!AD
av.SubItems(3) = Adodc1.Recordset!SOYAD
av.SubItems(4) = Adodc1.Recordset!ODEME
av.SubItems(5) = Adodc1.Recordset!borc
av.SubItems(6) = Adodc1.Recordset!KALAN
av.SubItems(7) = Adodc1.Recordset!URUN
av.SubItems(8) = Adodc1.Recordset!TAKSİT
av.SubItems(9) = Adodc1.Recordset!TARIH
av.SubItems(10) = Adodc1.Recordset!DURUM
Adodc1.Recordset.MoveNext
Next
EndSub
