Crearea unei baze de date de la zero

Totul! Acum începe proiectul și verificați.

Știu că nu doriți să vedeți pe forma care componenta mizerabil „date“, pentru că doriți butoanele pentru a gestiona baza de date sau imagini?!

Așezați forma patru mai multe butoane: „btnFirts“, în „caption“ - „primul“; "BtnLast" - "End"; "BtnPrev" - "Înapoi" și "btnNext" - "Next". Asigurați-un dublu clic pe „Start“ și introduceți „data1.recordset.moveFirst“, faceți dublu clic pe „End“ și introduceți „data1.recordset.movelast“, dublu click pe „Next“ și introduceți „data1.recordset.moveprevious“ și dublu-clic pe „Next“ și codul este introdus „data1.recordset.movenext“.
Totul! Verificați.
Știu, știu că atunci când ești răsfoirea bază butoane, ajungând la ultima intrare a declanșat un bug cu „3021“ număr - aceasta înseamnă că baza de date nu mai multe intrări. De bază are handler mare eroare! De exemplu:
Private Sub btnNext_Click ()
„A scrie«On Error Resume Next»și eroarea nu se va declanșa!
„Dar este mai bine să facă acest lucru:
Dacă nu Data1.Recordset.EOF Atunci
Data1.Recordset.MoveNext
altfel
Data1.Recordset.MovePrevious
End If
end Sub
Ea ne-a dat că, în cazul în care a ajuns la sfârșitul bazei de date, atunci ai nevoie pentru a trece la înregistrarea anterioară și nu va fi o eroare. Același lucru se poate face cu toate butoanele.

Totul! Felicitări! Ați făcut un sistem de baze de date și de management pentru ea!
Belyaev Danila