Sub DAOOpenRecordset ()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données 
    Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
    sSQL =  "Select * From CLIENTS Where Région= \'WA\'"
    ' Ouverture du recordset 
    Set rst = db.OpenRecordset (sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    rst.Close
End Sub 

Sub ADOOpenRecordset ()
    Dim cnn As New ADODB.connection, rst As New ADODB.Recordset, fld As ADODB.Field
    ' Ouverture de la connexion
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\Comptoir.mdb;"
    ' Ouverture du Recordset en défilement en avant, et en lecture seule
    rst.Open "SELECT * FROM Clients WHERE Région =\'WA\'", cnn,  adOpenForwardOnly, adLockReadOnly
    ' Fermeture du Recordset
    rst.Close
End Sub 

If Not oRecordset.EOF Then
  Rst.MoveFirst 
  While Not rst.Eof
     ' code
     rst.MoveNext
  Wend
else
  Msgbox "Le jeu d'enregistrements est vide"
End if

Do Until rst.Eof
    ' code
    rst.MoveNext
Loop 

Dim Rst as DAO.RecordSet

MonRecordSet.Close

dim SQL as string
SQL = "Delete * From TABLE" 
Docmd.RunSQL SQL

Sub DAOExecuteBulkOpQuery()
    Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
    ' Exécution de la requête
    db.Execute "Update CLIENTS Set PAYS = \'États-Unis\' Where PAYS = \'USA\'"
    Debug.Print "Records Affected = "  & db.RecordsAffected
    db.Close
End Sub

Sub ADOExecuteBulkOpQuery()
    Dim cnn As New ADODB.connection, iAffected As Integer
    Dim sSQL As String
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\Comptoir.mdb;"
    sSQL = "Update CLIENTS Set PAYS = \'États-Unis\' Where PAYS = \'USA\'"
    ' Exécution de la requête
    cnn.Execute sSQL, iAffected, adExecuteNoRecords
    Debug.Print "Records Affected = " & iAffected
    cnn.Close
End Sub 

 DoCmd.SetWarnings False 

 DoCmd.SetWarnings True 

Docmd.SetWarnings True
Docmd.RunSql ""Update MATABLE Set MATABLE.[MONCHAMP] = ""DVP.COM"";"

Dim val As String
val = "l\'exemple" 
CurrentDb.Execute "Insert Into TEST Values(""" & val & """)"

Sub supp()
'Pour fonctionner ce code nécessite la référence
'   - Microsoft DAO X Object Library
 
Dim oDb As DAO.Database
Dim oQdf  As DAO.QueryDef
Dim strReqName As String 'Nom de la requête à supprimer
 
 
'Accède à la base de données courante
Set oDb = CurrentDb
 
strReqName = "R1"
 
'Parcours toutes les requêtes jusqu'à la suppression
For Each oQdf In oDb.QueryDefs
    With oQdf
        If .Name = strReqName Then
            ' Une requête porte le nom recherché, donc nous la supprimons
             oDb.QueryDefs.Delete strReqName
             'Quitte la boucle
             Exit For
        End If
      End With
Next oQdf
End Sub

Sub supp()
'Pour fonctionner ce code nécessite la référence
'   - Microsoft DAO X Object Library
 
'Gestion d'erreur
On Error GoTo err
 
 
    Dim oDb As DAO.Database
    Dim oQdf  As DAO.QueryDef
    Dim strReqName As String 'Nom de la requête à supprimer
 
 
    'Accède à la base de données courante
    Set oDb = CurrentDb
    
    strReqName = "R2"
    
    'Tente la suppression
    oDb.QueryDefs.Delete strReqName
    'Affiche un message
    MsgBox "La requête " & strReqName & " a été supprimée"
 
 
fin:
    'Libère l'objet oDb
    Set oDb = Nothing
    Exit Sub
 
err:
    'Affiche un message suivant l'erreur
    Select Case err.Number
        Case 3265: MsgBox "La requête n'existe pas"
        Case Else: MsgBox "Erreur critique inconnue"
    End Select
    'Termine le programme
    Resume fin
 
End Sub

SQL & "And roulage!numéro =  " & Me.cmbRechNumero   

SQL = SQL & "And roulage!repère =  "& chr(34) & Me.cmbRechRepere & chr(34) 

SQL & "And roulage!LADATE= #" & format(Me.txtRechDateDebut,"mm/dd/yyyy") & "#"

Sub Sauvegarder() 

    'Création des 2 recordsets 
    Dim myRS1 As New ADODB.Recordset 
    Dim myRS2 As New ADODB.Recordset 

    myRS1.Open "Table1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic 
    myRS2.Open "Table2", CurrentProject.Connection, adOpenDynamic, adLockOptimistic 

    'Parcours du RS pour ajouter à table1 tout en supprimant de table2 
    Do Until myRS2.EOF 
        With myRS1 
            .AddNew Array("Champ1", "Champ2", "Champ3"), _
                          Array(myRS2("Alpha"), myRS2("Beta"), myRS2("Gamma")) 
            .Update 
        End With 

       myRS2.Delete 
       myRS2.MoveNext 
    Loop 

    'Fermeture des recordsets 
    myRS1.Close 
    myRS2.Close 

    Set myRS1 = Nothing 
    Set myRS2 = Nothing 

End Sub

Select TABLE.CHAMP1, Sum(TABLE.CHAMP2) AS CHAMP2 Into NOUVELLETABLE 
From TABLE
Group By TABLE.CHAMP1, 
Order By TABLE.CHAMP1, 

Dim cn as ADODB.Connection
Dim cmd as ADODB.Command
Dim insQuery  as String

Set cn = New ADODB.Connection
Set cmd = New ADODB.Command

cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=D:\CS527\P1\bd1_archive.mdb;Persist Security Info=False;" & _
               "Jet OLEDB:System database=c:\LePath\LeFichier.mdw"

insQuery = "INSERT INTO purchasearchive VALUES (" & Chr(34) _
        & PUID & Chr(34) & "," & Chr(34) _
        & cardNum & Chr(34) & "," & Chr(34) _
        & cardType & Chr(34) & "," & Chr(34) _
        & productID & Chr(34) & ",#" _
        & date & "#," _
        & number & ");"

cn.Open
cmd.ActiveConnection=cn
cmd.CommandText=insQuery
cmd.Execute

Password=LeMotDePasse;User ID=LeUser  

Parameters TON_PARAM Text;
Insert Into TABLE1 Select  CHAMP1 From TABLE2 Where CHAMP2 = [TON_PARAM];

Set qdf= CurrentDb.QueryDefs("TAREQUETE")
      With qdf
         .Parameters("TON_PARAM") = TaVariable
         .Execute
      End With

Dim qdf As DAO.Querydef
Set qdf = Currentdb.Querydefs!NomDeMaRequête
qdf.SQL = "Select * From MaTABLE"
Set qdf = Nothing

Sub Form_Error(DataErr As Integer, Response As Integer)
 ' Si l'erreur est due à un doublon, la fonction affiche un message permettant d'annuler une commande.
Const ERR_DOUBLON = 3022 ' erreur de doublon
 ' DataErr reçoit le code erreur de la part du moteur de la bdd ou de l'interface
Select Case DataErr
   Case ERR_DOUBLON
       'Votre message...
        MsgBox "Ce nom existe déjà.", vbExclamation, "Attention"
       'La zone a surveiller
        [Client].SetFocus
       'Demande à Access de continuer l'exécution sans afficher le message standard
       Response = acDataErrContinue
   End Select

End Sub

requete = "Select * From carnet Where Prénom Like \'*" & prenom & "*\'"

Function BenchmarkIt()

Dim t0 As Single, t1 As Single
Dim rst As DAO.Recordset
Dim i As Long

t0 = Timer
For i = 1 To 5000
    CurrentDb.Execute "INSERT INTO [tblINSERT] VALUES (" & Format(i, "000000") & ");"
Next i
t1 = Timer
Debug.Print "Exécution par INSERT : " & Format(t1 - t0, "0.000") & " s"

t0 = Timer
Set rst = CurrentDb.OpenRecordset("tblRecordset")
For i = 1 To 5000
    rst.AddNew
    rst!dum = Format(i, "000000")
    rst.Update
Next i
rst.Close
set rst = Nothing
t1 = Timer
Debug.Print "Exécution par RECORDSET : " & Format(t1 - t0, "0.000") & " s"

End Function