Luge imam problem. Problemot e sto ne znam kako da najdam zapis od baza na podatoci. Ako mozete da mi dadete source code za ova togas odlicno. Ako ne barem objasnete kako da gi koristam EOF(end of file) i BOF(begin of file). VE MOLAM POMOGNETE ITNO E. FALA
Kako da gi koristam EOF i BOF. Deko
Zaključano
Zakačeno
Primer iz koda za pretrazivanje baze povezane preko ADO
EOF = End Of File
BOF = Begining of File
Znaci ova linija If Adodc1.Recordset.EOF Then UradiNesto
ako stigne do kraja baze da izvrsi zadate komande....
Code:
Adodc1.Recordset.MoveFirst
If Text1.Text <> Adodc1.Recordset(0) Then
Do
If Adodc1.Recordset.EOF Then
MsgBox "Nema podatka u bazi"
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop Until Text1.Text = Adodc1.Recordset(0)
Adodc1.Recordset.MoveFirst
If Text1.Text <> Adodc1.Recordset(0) Then
Do
If Adodc1.Recordset.EOF Then
MsgBox "Nema podatka u bazi"
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop Until Text1.Text = Adodc1.Recordset(0)
EOF = End Of File
BOF = Begining of File
Znaci ova linija If Adodc1.Recordset.EOF Then UradiNesto
ako stigne do kraja baze da izvrsi zadate komande....
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
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...
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
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...
Potpis
- SKRati link - JaZaKraljevo.rs -
"I have never let my schooling interfere with my education." - Mark Twain
"I have never let my schooling interfere with my education." - Mark Twain
ADODB.Recordset ima i RecordCount Prop. (broj pronadjenih redova u tabeli posle SQL upita)
Potpis
HomePage http://www.eurora3d.com
koji ume da zada problema :) pa je preporucljivije u te svrhe koristiti COUNT(*)
izmenjeno 1 put, poslednji put Eurora3D Team 06.03.2008. u 21:16
Izmene poruke
- Eurora3D Team06.03.2008. u 21:16zapis iz teksta poruke
