Prvo, ne reche koju verziju VB koristish, da li VB6 ili VB.NET
Evo primera kako bi to koristio iz VB6, sa korishtjenjem DAO objekata
Code:
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase("nekabaza.mdb")
Set RS = DB.OpenRecordset("neka_tabela")
RS.MoveFirst
While Not RS.EOF
' Ovde radish neshto
RS.MoveNext
Wend
While Not RS.BOF
' Ovde radish neshto drugo
RS.MovePrevious
Wend
U sushtini EOF je uvek False, sve dok ne dodjesh do poslednjeg sloga u bazi... Slichno je za BOF, s jedinom razlikom shto je False sve dok ne dodjesh do prvog sloga u bazi... To je u sushtini to, nadam se da smo pomogli malo...
-
SKRati link -
JaZaKraljevo.rs -
"I have never let my schooling interfere with my education." - Mark Twain