Enregistrer la création sur un ensemble 

Une des opérations les plus courantes a exécuté sur une base de données se compose créer des disques. Dans les leçons précédentes, nous avions vu différentes manières de faire ceci dans le SQL, la bibliothèque des programmes résultants de Microsoft Access, et DAO. Si en utilisant un objet de Recordset dans une base de données qui emploie la bibliothèque des programmes résultants de Microsoft Access ou DAO, pour créer un nouveau disque

1. Appeler la méthode d'AddNew () de votre objet de Recordset
2. Identifier chaque colonne dont la valeur vous savez en passant son nom comme index à la propriété de champs, et lui assignez (et s'approprier) la valeur désirée. Il est important de maintenir dans l'esprit que là pas vérifierait les champs requis ou les types de valeurs jusqu'au code fonctionne. Ceci signifie que vous devriez se rendre compte des types de valeurs que vous traitez et vous devriez connaître quelles colonnes sont exigées
3. Après avoir assigné les valeurs, appeler la méthode de mise à jour () d'objet de Recordset.

Voici un exemple en utilisant DAO pour créer un nouveau disque dans une table appelée Videos :

Private Sub cmdAddVideo_Click()
   Dim dbVideoCollection As DAO.Database
   Dim rstVideos As DAO.Recordset

   Set dbVideoCollection = CurrentDb
   Set rstVideos = dbVideoCollection.OpenRecordset("Videos")

   rstVideos.AddNew
   rstVideos("Title").Value = "Cape Fear"
   rstVideos("Director").Value = "Martin Scorsese"
   rstVideos("CopyrightYear").Value = 1991
   rstVideos("Length").Value = "2 Hours 8 Mins"
   rstVideos("Rating").Value = "R"
   rstVideos.Update
End Sub

ADO emploie les mêmes étapes que DAO pour créer un nouveau disque mais elle prolonge l'approche. D'abord, vous devriez vérifier si l'objet de Recordset permettrait à un nouveau disque d'être ajouté. Pour faire ceci, vous pouvez appeler la méthode de Supports(). Sa syntaxe est:

boolean = recordset.Supports(CursorOptions)

L'argument passé à cette méthode est un membre de l'agent recenseur de CursorOptionEnum. Si vous voulez vérifier si l'addition record de soutiens d'ensemble record, passent cet argument comme adAddNew. Si l'ensemble record permet l'addition, la méthode renvoie vrai. Autrement elle renvoie faux. Après vérification de ceci, si l'addition record de soutiens d'ensemble record, vous peut alors assigner chaque valeur désirée à la colonne appropriée. Après avoir assigné les valeurs, appeler la méthode de mise à jour () d'objet de Recordset. Voici un exemple qui crée un nouveau disque avec les colonnes choisies dans une table appelée Videos :

Private Sub cmdAddNewVideo_Click()
    Dim rstVideos As ADODB.Recordset

    Set rstVideos = New ADODB.Recordset
    rstVideos.Open "Videos", CurrentProject.Connection, _
                   adOpenDynamic, adLockOptimistic, adCmdTable

    If rstVideos.Supports(adAddNew) Then
        rstVideos.AddNew
        rstVideos("Title").Value = "Leap of Faith"
        rstVideos("Director").Value = "Richard Pearce"
        rstVideos("Rating").Value = "PG-13"
        rstVideos.Update
    End If
   
   rstVideos.Close
   Set rstVideos = Nothing
End Sub