VB Hızlı SQL SQL Server'den Yaptiginiz Sorgulamalari Bir Listeye Aktarirken While Wend Dongusu Kullanmaniz Hizinizi Dusurecektir.
Ornegin:
SQL.Open "SELECT *FROM MyTablo"
While Not SQL.EOF
................
...............
Wend
Bu Dongudeki Her Donuste Son Kayda Gelinip Gelinmedigi Sorgulanacagindan Hiziniz Dusecektir. Halbu ki Soyle Bir Donguyle Bu Isı Cozmek Daha Mantiklidir.
Ornek:
SQL.Open "SELECT * , (SELECT COUNT(MyField) FROM MyTablo) AS Count FROM MyTablo "
For i=1 to SQL!Count
...................
...................
Next i
Burada Tek Sorguda Datadaki Sartlara Uygun Bilgiler ve Bunlarin Adedini Ogreniyor ve For-Next Dongusuyle Daha Hizli Bir Sekilde Listeliyoruz. Isterseniz Sartlari da Cumlenize Uygulayabilrsiniz.
Ornegin:
SQL.Open "SELECT * , (SELECT COUNT(MyField) FROM MyTablo Where 1=1) AS Count FROM MyTablo Where 1=1" |