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

Datagrid te anında gösterim

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 = "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]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt