Samanalevi Netkafe Anasayfa

Lıstbox'u Acsess Verıtabanına Bağlamak.

Sosyal Ağ Paylaşımı :                                

	Ekleyen : beykozlu Zaman : 28 Haziran 2007 Okunma : 963 Yorumlar : 0 - Yorumları Oku - Yorum Yaz

On Error GoTo Hata_Kontrol

Dim DB as Database
Dim Kayitlar as Recordset
Dim X as Long, record_count as Long

'Veritabanini açalim

Set DB = OpenDatabase("Ogrenci.mdb", dbOpenSnapshot)
Set Kayitlar = DB.OpenRecordset("Ogrenciler")

' Dikkat ederseniz asagida yapilan islem önce veritabaninin sonuna gitmek, RecordCount degerini
' ögrenmek ve sonra tekrar veritabani basina dönmektir. Veritabani sonuna gitmeden kaç adet kayit
' oldugunu ögrenemezsiniz.

Kayitlar.MoveLast
X = Kayitlar.RecordCount
Kayitlar.MoveFirst

' Listbox içine adlari yerlestirelim
' Ilk kayita geldikten sonra artik sirayla ögrenci adlarini listbox içine alabiliriz

Do
List1.AddItem Kayitlar!OgrenciAdi
Y = Y + 1
Kayitlar.MoveNext
Loop Until Y = X ' X = Recordcount, yani son kayit

Hata_Kontrol:
Select Case (Err)
Case 3021 ' Kayit yok
record_count = 0 'Kayit yoksa degeri 0 a esitleyelim.
Exit Sub
List1.Refresh

Konuya Ait Yorumlar

Şu an yorum yazılmamış!..

İlginizi Çekebilecek Konular
Başlık	Ekleyen
Bilgisayarın Ip Adresini Bulmak	seasparrow
Çalışan Bir Exe Nin Silinmesi	seasparrow
Dosya Açılış Yolları	seasparrow
Kredi Kartı Kontrolu	seasparrow
Alt Klasörlerde Dosya Aratıp Listeletmek	seasparrow
Kontrol Paneldeki Ayarları Programdan Açmak	seasparrow
Dikine Uzanan Label Nasıl Yazılır	beykozlu
Modemle Telefon No Çevirme	Ayhans
Karakter Düzenleme	seasparrow
Duvar Kağıdını Değiştirmek	seasparrow
Asp İle Veritabanı	seasparrow
Scanf İşlevi	seasparrow
Harici Disk Ve Usb Bellek Engeli	admin
Explorerda Bir Web Sitesini Açma	seasparrow
Doğum Günü Yaşı Nasıl Hesaplanır	beykozlu
Windows Gezginini İstediğiniz Bir Klasörle Açma	seasparrow
Programınızın Butonunu Görev Çubuğundan Gizlemek	seasparrow
Herhangi Bir Diskin Programdan Kopyalanması	seasparrow
Programınızın Alt+f4 Tuşuyla Kapanmaması İçin	seasparrow
Formun Arkasına Resmi Döşemek	seasparrow