comment supprimer toutes les lignes de DB via OpenRecordset (DAO)

Question

Comment supprimer toutes les lignes de la table avant de commencer à les insérer?

Answer 1

Si vous programmez vba, je suppose que vous travaillez avec Adodb ou simplement avec ADO. Par conséquent, pour supprimer un enregistrement de table, vous pouvez utiliser un objet de commande pour le faire.

Dim cnn as Connection 
Dim cmd as Command 

Set cnn=new Connection() 
cnn.ConnectionString="ConnectionString" 
cnn.Open() 

Set cmd=new Command() 
cmd.ActiveConnection=cnn 
cmd.CommandText="DELETE FROM MyTable" 
cmd.Execute() 

cnn.Close() 

Mise à jour: Pour utiliser ADO Les objets doivent ajouter une référence à la bibliothèque ADODB

Answer 2

Deux choses. Tout d'abord, DAO vs ADO est presque hors de propos. Ils sont tous deux disponibles pour accéder via Windows 7 et AFAIK il n'y a pas de plans pour les supprimer. L'un ou l'autre devrait être OK pour utiliser dans Access. Deuxièmement, vous pouvez tout faire:

Public Sub Example() 
    With Access.CurrentDb 
     .Execute "DELETE Table2.* FROM Table2;" 
     .Execute "INSERT INTO Table2 (fld1, fld2) SELECT Table1.ID, Table1.MyField FROM Table1;" 
    End With 
End Sub 

Vous pourriez juste ceci:

Public Sub Example() 
    With Access.DoCmd 
     .RunSQL "DELETE Table2.* FROM Table2;" 
     .RunSQL "INSERT INTO Table2 (fld1, fld2) SELECT Table1.ID, Table1.MyField FROM Table1;" 
    End With 
End Sub 

Mais la méthode Execute jette des messages d'erreur plus d'information (et si vous encore des soins, est OAC).

Answer 3

DAO Les jeux d'enregistrements ne disposent pas d'un moyen efficace de vider la table, pour autant que je sache. Si c'est une petite table, vous pouvez probablement supprimer enregistrement par enregistrement, mais je trouverais cela idiot. Je viens d'utiliser DoCmd.RunSQL pour exécuter une requête DELETE. Normalement, je définirais SetWarnings sur False, bien sûr.

Puisqu'il est distinct de DAO, je verrais cette opération à travers avant d'ouvrir le jeu d'enregistrements correctement.

Answer 4

S'il vous plaît essayez ceci:

Do While Not rs.EOF 
rs.Delete 
rs.MoveNext 
Loop