Naviguer dans une base de données avec VB. NET

Une partie d'un tutoriel en cours. . La première partie de bases de données et VB NET peut être trouvé ici:

Codage vos propres projets de base de données VB Net.

Vous avez vu dans la section précédente que vous pouvez naviguer dans les enregistrements d'une base de données par incrémenter ou décrémenter le numéro de ligne du DataSet. Dans cette section, nous allons voir un exemple plus concret de la façon de le faire.
Pour naviguer dans l'ensemble de données, nous allons changer notre formulaire. En ajoutant quelques touches de navigation, nous pouvons reproduire ce que l'assistant a fait . Nous aurons également besoin de déplacer le code que nous avons déjà. Donc, nous allons commencer avec ça.
À l'heure actuelle, tout le code est dans le bouton, nous avons ajouté à la forme. Nous allons supprimer cette touche, donc nous avons besoin de la sortir de là. Les déclarations de variables peuvent être déplacés tout en haut de la fenêtre de codage. De cette façon, n'importe quel bouton peut voir les variables. Alors déplacer vos déclarations de variables vers le haut, comme dans l'image ci-dessous (n'oubliez pas d'ajouter le inc As Integer ligne):

Nous pouvons aller de quelques lignes à l'événement Form Load. Donc, créer un événement Form Load, comme vous l'avez fait dans la section précédente. Maintenant, déplacez tous, mais les lignes de texte à là-bas. Votre fenêtre de codage devrait ressembler à ceci (vous pouvez supprimer les lignes de la boîte de message, ou tout simplement les commenter):

Pour votre bouton, tout ce que vous auriez laissé sont ces deux lignes:

txtFirstName.Text = ds.Tables ("AddressBook"). Lignes (inc). Item (1)
txtSurname.Text = ds.Tables ("AddressBook"). Lignes (inc). Item (2)

Puisque nous allons supprimer cette touche, ce code peut être déplacé. Parce que tous les boutons doivent mettre quelque chose dans les zones de texte, les deux lignes qui nous restent sont un candidat idéal pour un sous-programme. Donc, ajouter les alinéas suivants à votre code:

NavigateRecords Private Sub ()

txtFirstName.Text = ds.Tables ("AddressBook"). Lignes (inc). Item (1)
txtSurname.Text = ds.Tables ("AddressBook"). Lignes (inc). Item (2)

End Sub

Lorsque nous naviguons à travers le DataSet, nous appellerons ce sous-programme.
Maintenant que tout le code est passé de votre bouton, vous pouvez supprimer le code du bouton complètement. Revenir à vous forme, cliquez sur le bouton pour sélectionner, puis appuyez sur la touche Suppr de votre clavier. Cela permettra d'éliminer le bouton lui-même à partir de votre formulaire. (Vous pouvez aussi faire un clic droit sur le bouton, puis sélectionnez Supprimer dans le menu.)
Voici ce que votre fenêtre de codage voudrais:

Maintenant, vous pouvez re-conception de la forme. Ajouter quatre nouveaux boutons et modifier les propriétés de nom pour: btnNext, btnPrevious, btnFirst et btnLast. Modifier les propriétés de texte à>, <, << et >>. Votre formulaire sera alors ressembler à ceci:

Juste un couple de plus de choses à mettre en place avant que nous commencions. Ajouter une nouvelle déclaration de variable en haut de votre code, juste sous la inc As Integer ligne. Ajouter à ceci:

MaxRows As Integer

Nous pouvons stocker combien de lignes sont dans le DataSet avec cette variable. Vous pouvez obtenir le nombre de lignes sont dans le DataSet avec ceci:

MaxRows = ds.Tables ("AddressBook"). Rows.Count

Ainsi, la propriété Rows a une méthode de comptage. Ce compte simplement le nombre de lignes sont dans le DataSet. Nous passons ce nombre à une variable appelée MaxRows. Vous pouvez alors tester ce qui est de la variable, et voyez si le compteur inc ne va pas dépasser. Vous devez faire cela parce que VB jette vers le haut un message d'erreur si essayer d'aller au-delà de la dernière ligne dans le DataSet. (Précédentes versions de VB avaient une certaine appelé propriétés EOF et BOF. Ils ont vérifié la fin du fichier et avant la fin du fichier. Ces propriétés ont maintenant disparu.)
Ajoutez les deux lignes de code suivantes à la charge événement formulaire de Form1:

MaxRows = ds.Tables ("AddressBook"). Rows.Count
inc = - 1

Votre code doit alors ressembler à ceci:

Remarquez l'autre ligne de code pour l'événement Load du formulaire:

inc = - 1

Cette ligne définit la variable inc au moins une fois le formulaire charges. Lorsque les boutons sont cliqués, ce qui garantira que nous passons le compteur sur le montant exact.
Dans la prochaine partie, nous verrons comment les boutons sur le travail de forme.

Posted in: Visual Basic .NET