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