• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Listview'i adodc'ye bağlamak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ByClxon

Süper Üye
Katılım
7 Ocak 2016
Mesajlar
955
Beğeni Puanı
4
Yaş
22
[font='Titillium Web', sans-serif]form_load kısmına[/FONT]

[font='Titillium Web', sans-serif]Adodc1.ConnectionString = [/FONT][font='Titillium Web', sans-serif]"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "[/FONT][font='Titillium Web', sans-serif] & App.Path &[/FONT][font='Titillium Web', sans-serif]"/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 = [/FONT][font='Titillium Web', sans-serif]"Select * from tabloadi order by TAKSİT ASC"[/FONT]
[font='Titillium Web', sans-serif]GOSTER[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] GOSTER()[/FONT]
[font='Titillium Web', sans-serif]Adodc1.RecordSource = strg[/FONT]
[font='Titillium Web', sans-serif]Adodc1.*******[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] Adodc1.Recordset.BOF [/FONT][font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] Adodc1.Recordset.EOF [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif]Exit[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
[font='Titillium Web', sans-serif]ListView1.ListItems.Clear[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] t = 1 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] Adodc1.Recordset.RecordCount[/FONT]
[font='Titillium Web', sans-serif]On[/FONT][font='Titillium Web', sans-serif]Error[/FONT][font='Titillium Web', sans-serif]Resume[/FONT][font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]Set[/FONT][font='Titillium Web', sans-serif] 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]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt