Supprimer un disque

Pour supprimer un disque d'un ensemble, l'objet de Recordset est équipé d'une méthode appelée effacement (). Il est tout à fait facile employer cette méthode mais il y a deux soucis principaux que vous devriez avoir. D'abord, en créant un ensemble record, vous devriez placer un critère qui sera employé pour localiser le disque vous vouloir supprimer : ce n'est pas une bonne idée d'indiquer simplement le nom d'une table ou d'une question comme source d'ensemble. Voici un exemple de supprimer un disque en utilisant la bibliothèque des programmes résultants de Microsoft Access :

Private Sub cmdDeleteVideo_Click()
   Dim dbVideoCollection As Object
   Dim rstVideos As Object

   Set dbVideoCollection = CurrentDb
   Set rstVideos = dbVideoCollection.OpenRecordset( _
	"SELECT * FROM Videos WHERE Title = 'The Firm'")

   rstVideos.Delete
End Sub

Quand ce code fonctionne, il recherchera une vidéo intitulée la société dans une table appelée Videos. S'il le trouve, il le supprime.

Si vous essayez de supprimer un disque qui n'existe pas, vous recevriez une erreur 3021 n'énonçant « aucun disque courant » :

Ceci signifie que vous devriez vérifier si le disque existe avant de le supprimer. Le deuxième souci que vous auriez est d'indiquer quoi faire après que le disque ait été supprimé. Dans la plupart des cas, vous devriez se rappeler de déplacer la position à un disque différent. 

L'AGITATION emploie essentiellement la même approche que le Microsoft Access et le DAO pour supprimer un disque. Les soucis sont également identiques. Voici un exemple :

Private Sub cmdDeleteLast_Click()
    Dim rstVideos As ADODB.Recordset
    
    Set rstVideos = New ADODB.Recordset
    rstVideos.Open "SELECT * FROM Videos WHERE Title = 'Leap of Faith'", _
		   CurrentProject.Connection, _
                   adOpenDynamic, adLockPessimistic, adCmdText
                   
    rstVideos.Delete
    
    rstVideos.Close
    Set rstVideos = Nothing
End Sub