Källkoden för /anders.enges/ado/adovb2.asp

---

<!--#include file="../inc/navstuff.asp" -->
<p><b>Tema:</b><br />Navigering och validering</p>
<h4>Navigering</h4>
<p>Tag fram formen i ADO programmet och dubbelklicka på någon av knapparna i formen</p>
<p>Skriv in följande kod för navigeringsknapparnas <b>cmdNavigera_Click(Index As Integer)</b>. Observera att samma kod används för alla fyra knapparna eftersom dessa bildar en "Control Array"</p>
<div class="code">
Select Case Index<br />
    ' Tryckte på första knappen<br />
    Case 0<br />
        RS.MoveFirst<br />
    ' Tryckte på andra knappen<br />
    Case 1<br />
        ' Prova gå bakåt<br />
        RS.MovePrevious<br />
        ' Gick det ??<br />
        If RS.BOF Then<br />
            ' Gå till första<br />
            Beep<br />
            RS.MoveFirst<br />
        End If<br />
    ' Tryckte på tredje knappen<br />
    Case 2<br />
        RS.MoveNext<br />
        If RS.EOF Then<br />
            Beep<br />
            RS.MoveLast<br />
        End If<br />
    ' Tryckte på fjärde knappen<br />
    Case 3<br />
        RS.MoveLast<br />
End Select<br />
lblStatus.Caption = "Pos nummer : " & RS.AbsolutePosition<br /><br />
</div>
<p>Prova genom att:
<ol>
<li>Bläddra fram och tillbaka. Prova alla knapparna<br /><br /></li>
<li>Ändra på texten i den första textboxen. Bäddra sedan framåt och sedan tillbaka till den post du ändrade<br /><br /></li>
</ol>
<h4>Validering av data</h4>
<p>I VB:s editor väljer du objektet <b>txtEttDatum</b> och dess händelse <b>Validate</b></p>
<p>Du får då händelseproceduren <b>Private Sub txtEttDatum_Validate(Cancel As Boolean)</b>. </p>
<p>I denna skriver du in följande kod:</p>
<div class="code">
If Not IsDate(txtEttDatum) Then<br />
    Beep<br />
    MsgBox "Inte ett datum", vbInformation<br />
    ' Fortsätt inte<br />
    Cancel = True<br />
End If<br /><br />
</div>
<p>Prova genom att skriva in ett ogiltigt datum i datumfältet</p>
<!--#include file="../inc/footer.asp" -->