Listview'i adodc'ye bağlamak


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    1 Yorum    138 Görüntüleme

Paylaşım Tarihi: 12.05.2016, 19:06:58 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,012 Konuları:442 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

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

Kullanıcı İmzası
#fenerbahçeA.A.K.
nErB8V.png
İletişim İçin Facebook;

https://www.facebook.com/profile.php?id=100012991933980


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



LQgldG.png






 

         


Paylaşım Tarihi: 12.05.2016, 19:19:48 #2
mesut196 Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:116 Konuları:41 Kayıt Tarihi:13.03.2016 Rep Puanı: 107

bunlar ne işe yarıyo

Kullanıcı İmzası


oE4r49.gifget?url=https%3A%2F%2Fmedia.giphy.com%2F...1yAcUPnieQ16%2B-%2B1

  +2 REP VERMEYİ UNUTMA




Önceki Konu Sonraki Konu





Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi