RecordCount Sorunu (VB)

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb RecordCount Sorunu (VB)

Bu konudaki kullanıcılar: 1 misafir

2
Cevap 1014
Tıklama 0
Öne Çıkarma

1. sayfa

RecordCount Sorunu (VB)

Cevap Yaz

slartibartfast

19 yıl

Çavuş

Konu Sahibi

Private Sub Command1_Click() 
   
  ToplamKayit = Data1.Recordset.RecordCount 
  Text1.Text = ToplamKayit 
   
  End Sub

Yukarıdaki şekilde veritabanından toplam kayıdı almak istediğimde toplam kayıt "19" olmasına rağmen dönen değer "1" oluyor.. Bunun sebebi ve çözümü ne olabilir?

Teşekkürler

Sesostris

19 yıl

Onbaşı

orada ki sorun
bi dataset olmasına ragmen bır sefer bır tek kayda erısmen once

while not(data1.recordset.eof)
i=i+1
}
seklinde kayıt sayısını alman lasımdır
o sekılde alıp yapman lasım

Bu mesaja 1 cevap geldi.

slartibartfast

19 yıl

Çavuş

Konu Sahibi

quote:

Orjinalden alıntı: Sesostris

orada ki sorun
bi dataset olmasına ragmen bır sefer bır tek kayda erısmen once

while not(data1.recordset.eof)
i=i+1
}
seklinde kayıt sayısını alman lasımdır
o sekılde alıp yapman lasım

Dediğin şekilde yaptım.. İstediğim sonuca ulaştım.. Teşekkürler
Kod şu şekilde..

 
  Private Sub Command1_Click() 
  i = 0 
  While Not (Data1.Recordset.EOF) 
  i = i + 1 
  Data1.Recordset.MoveNext 
  Wend 
  RastgeleSayi = CInt(Rnd * i) + 1 
  Text1.Text = RastgeleSayi 
  End Sub

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb RecordCount Sorunu (VB)