Comment ajouter un nouvel enregistrement

Une partie d'un tutoriel en cours. Ce cours fait partie d'un tutoriel en cours. La première partie est ici:

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

Dans la partie précédente , vous avez appris comment mettre à jour les enregistrements de la base de données. Dans la partie, nous allons voir comment ajouter un nouvel enregistrement à la base de données à l'aide du code VB. NET.

Ajouter un nouvel enregistrement

Ajout d'un nouvel album est un peu plus complexe. Tout d'abord, vous devez ajouter une nouvelle ligne dans le DataSet, puis valider la nouvelle ligne à la base de données.
Mais le bouton Ajouter un nouvel enregistrement sur ​​le formulaire est très simple. La seule chose qu'il fait est d'éteindre d'autres boutons, et d'effacer les zones de texte, prêt pour une nouvelle entrée. Voici le code de votre bouton Ajouter un nouvel enregistrement:

btnCommit.Enabled = True btnAddNew.Enabled = False
btnUpdate.Enabled = False
btnDelete.Enabled = False

txtFirstName.Clear ()
txtSurname.Clear ()

Donc, trois boutons sont désactivés lorsque le bouton Ajouter un nouvel enregistrement est cliqué, et l'on est sous tension. Le bouton qui obtient allumé le bouton Valider les modifications. La propriété Enabled de btnCommit obtient la valeur True. Mais, pour que cela fonctionne, vous devez mettre à false lorsque le formulaire est chargé. Donc, revenir à votre formulaire. Cliquez btnCommit pour le sélectionner. Ensuite, recherchez la propriété Enabled dans la boîte de dialogue Propriétés. Mettre à false. Lorsque le formulaire démarre, le bouton sera éteint.
Le bouton Effacer / Annuler peut être utilisé pour le rallumer à nouveau. Alors ajouter ce code à votre btnClear:

btnCommit.Enabled = False
btnAddNew.Enabled = True
btnUpdate.Enabled = True
btnDelete.Enabled = True

inc = 0
NavigateRecords ()

Nous commutation sur le bouton OFF Commit Changes, et les trois autres sur le dos. Les deux autres lignes assurez-vous juste que nous affichons le premier enregistrement à nouveau, après le bouton Annuler est cliqué. Sinon, les zones de texte seront tous vides.
Pour ajouter un nouvel enregistrement à la base de données, nous allons utiliser le bouton du changement Commit. Donc, double-cliquez sur votre btnCommit pour accéder à son code. Ajoutez les lignes suivantes:

Si inc <> -1 ALORS

Dim cb As New OleDb.OleDbCommandBuilder (da)
DsNewRow As DataRow

dsNewRow = ds.Tables ("AddressBook"). NewRow ()

dsNewRow.Item ("Prénom") = txtFirstName.Text
dsNewRow.Item ("Nom") = txtSurname.Text

ds.Tables ("AddressBook"). Rows.Add (dsNewRow) / p>

da.Update (ds, "AddressBook")

MsgBox ("Le nouvel enregistrement ajouté à la base de données")

btnCommit.Enabled = False
btnAddNew.Enabled = True
btnUpdate.Enabled = True>
btnDelete.Enabled = True

End If

Le code est un peu plus longue que d'habitude, mais nous allons passer par là.
La première ligne est une instruction if. Nous demandons à l'avance qu'il ya un enregistrement valide à ajouter. S'il n'y a pas, la variable inc sera sur moins 1. A l'intérieur de l'if, nous avons d'abord mis en place un générateur de commandes, comme avant . La ligne suivante est la suivante:

DsNewRow As DataRow

Si vous souhaitez ajouter une nouvelle ligne à votre DataSet, vous avez besoin d'un objet DataRow. Cette ligne définit simplement un appelé dsNewRow variable. Le type de variable est un DataRow.
Pour créer le nouvel objet DataRow, cette ligne vient ensuite:

dsNewRow = ds.Tables ("AddressBook"). NewRow ()

Nous disons simplement: «Créer un nouvel objet dans le DataSet du carnet d'adresses et le stocker dans le appelé dsNewRow variable." Comme vous pouvez le voir, NewRow () est une méthode de ds.Tables. Utilisez cette méthode pour ajouter des lignes à votre DataSet.
Les valeurs réelles que nous voulons stocker dans les lignes proviennent des zones de texte. Nous avons donc ces deux lignes:

dsNewRow.Item ("Prénom") = txtFirstName.Text
dsNewRow.Item ("Nom") = txtSurname.Text

L'objet dsNewRow nous avons créé possède une propriété appelée Point. C'est comme la propriété Item vous avez utilisé plus tôt. Il représente une colonne dans votre DataSet. Nous aurions pu dire ceci:

dsNewRow.Item (1) = txtFirstName.Text
dsNewRow.Item (2) = txtSurname.Text

La propriété Item est maintenant en utilisant le numéro d'index des colonnes DataSet, plutôt que des noms. Le résultat est le même, cependant: pour stocker les nouvelles valeurs de ces propriétés. Nous sommes stocker le texte des zones de texte à notre nouvelle ligne.
Nous avons seulement besoin maintenant d'appeler la méthode qui ajoute réellement le rang au DataSet:

ds.Tables ("AddressBook"). Rows.Add (dsNewRow)

Pour ajouter la ligne, vous utilisez la méthode Add de la propriété Rows de l'objet DataSet. Entre les parenthèses, vous devez connaître le nom de votre DataRow (le dsNewRow variables, dans notre cas).
Vous devez savoir ce que le reste du code ne. Voici la ligne suivante:

da.Update (ds, "AddressBook")

Encore une fois, nous sommes juste en utilisant la méthode de mise à jour de l'adaptateur de données, comme la dernière fois. Le reste du code affiche simplement une boîte de message et réinitialise le bouton.
Mais pour ajouter une nouvelle ligne à un DataSet, voici un récapitulatif de ce qu'il faut faire:

• Créez une variable de DataRow
• Cretae d'un objet de cette variable en utilisant la méthode NewRow () de la propriété Tables de DataSet
• Attribuer des valeurs aux éléments de la nouvelle ligne
• Utilisez la méthode Add de l'objet DataSet pour ajouter la nouvelle ligne

Un peu plus compliqué, mais il ne fonctionne pas! Tentez votre programme sur. Cliquez sur votre bouton Ajouter un nouvel enregistrement. Les champs de saisie doivent s'éteindre, et trois des boutons seront éteints. Entrez un nouveau Nom et prénom, puis cliquez sur le bouton Valider les modifications. Vous devriez voir la boîte de message vous indiquant qu'un nouveau record a été ajoutée à la base de données. Pour voir le nouveau record, fermez votre programme et exécutez-le à nouveau. Le nouveau record sera là.
Dans la partie suivante, vous allez apprendre comment supprimer un enregistrement de la base de données.

Posted in: Visual Basic .NET