Fonction DELETE dans Bd ACCESS

Version imprimable

Bonjour, je suis actuellement sur un projet en VB6 et une base de données ACCESS.
J'arrive bien à insérer des données dans cette base (fonction INSERT) j'arrive aussi à les modifier (fonction UPDATE), mais je ne sais pas comment faire pour supprimer totalement une ou plusieurs ligne d'une ou plusieurs tables en fonction d'un critère.

Voici un bout de code pour insérer des données, qui fonctionne sur mon projet:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    'création de la connexion
        Set Cnx = New ADODB.Connection
    'définition de la chaine de connextion
        Cnx.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\HistoMac.mdb;" & "Jet OLEDB:Database Password=" & motdepasse & ";"
    'ouvre la base de données
        Cnx.Open
 
    'création de la requète
        Set rst = New ADODB.Recordset
 
    'si la machine n'existe pas, on l'insère dans la base
        If TestNum_de_serie = False And TestNum_client = False Then
            'création de la requète insérer
            stSQL = "INSERT INTO Machines(Type_machine,Marque_machine,Mod_machine,Num_de_série,Num_client,Type_CN) VALUES('" & Replace(Combo1.Text, "'", "''") & "','" & Replace(UCase(Combo2.Text), "'", "''") & "','" _
                                        & Replace(UCase(Combo3.Text), "'", "''") & "','" & UCase(Text1.Text) & "','" & UCase(Text2.Text) & "','" & Replace(UCase(Combo4.Text), "'", "''") & "')"
            Debug.Print stSQL
            'exécution de la requète
            rst.Open stSQL, Cnx
        End If

Auriez vous une piste à me proposer pour pouvoir supprimer une ou plusieurs lignes...
Merci d'avance.
Guillaume

Bonjour,

Tout dépend de ta clé primaire.
Code:

1 2 stSQL = "DELETE FROM Machines WHERE LaCle = '" & Valeur & "' "

14/10/2014, 17h45
petit rabot

Bonjour pc75 et surtout merci pour ta réponse,
cela fonctionne très bien pour une table ou je supprime une ligne entière en fonction d'un critère qui n'est pas en numéro auto. Le problème est que je dois supprimer aussi un ligne d'une autre table ou le critère de recherche est le numéro auto. Y a t-il une solution, ou dois je mettre d'autre critère?

Merci

Bonjour à tous, et merci à pc75, car son code fonctionne parfaitement.
Voici ma solution si d'autre personne ont besoin.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub Delete()
    'recherche de l'IdMachine
        Set Cnx = New ADODB.Connection
        Cnx.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\HistoMac.mdb;" & "Jet OLEDB:Database Password=" & motdepasse & ";"
        Cnx.Open
        Set rst = New ADODB.Recordset
        rst.Open "SELECT DISTINCT IdMachine FROM Machines WHERE Type_machine='" & Replace(Type_machine, "'", "''") & "' and Marque_machine='" & Marque_machine & "' and Mod_machine='" & Mod_machine & "' and Num_de_série='" & Num_de_serie & "' and Num_client='" & Num_client & "' ", Cnx
        While Not (rst.EOF)
            IdMachine = rst("IdMachine")
            rst.MoveNext
        Wend
        rst.Close
        Set Cnx = New ADODB.Connection
            Cnx.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\HistoMac.mdb;" & "Jet OLEDB:Database Password=" & motdepasse & ";"
        Cnx.Open
 
        Set rst = New ADODB.Recordset
            stSQL = "DELETE FROM Data WHERE NumMachine = '" & IdMachine & "' "
        Debug.Print stSQL
        rst.Open stSQL, Cnx
 
        Set rst = New ADODB.Recordset
            stSQL = "DELETE FROM Machines WHERE Type_machine = '" & Replace(Type_machine, "'", "''") & "' and Marque_machine='" & Marque_machine & "' and Mod_machine='" & Mod_machine & "' and Num_de_série='" & Num_de_serie & "' and Num_client='" & Num_client & "' "
        Debug.Print stSQL
        rst.Open stSQL, Cnx
 
End Sub

Merci encore pour votre aide :king: