Suppression donnés

Signaler
-
 Mervelis -
Bonsoir à tous, j'ai un problème qui me préoccupe, j'ai une db access avec 5 tables ses tables sont liées et je veux créer un bouton qui me permettra de supprimer le donnés dans ce 5 tables à la fois.
Si quelqu'un a une solution veiller m'aider svp

2 réponses

Messages postés
115
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
24 septembre 2020
1
Bonjour !

Un peu tard peut-être, mais je viens juste de tomber sur ta demande. Il m'arrive parfois de devoir vider une table Acces. J'utilise le code suivant dans un commandButton :

TB1.MoveFirst
TB1.Edit
Do until TB1.EOF
     TB1.Delete
     TB1.MoveNext
Loop


Faire la même chose pour les 4 autres tables.

J'espère que ce n'est pas trop tard !

Notpa
Bonjour Notpa merci pour ta réponse, ce code me permettra aussi d'effacer les clés primaires ? puisque mes tables sont liées
Messages postés
115
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
24 septembre 2020
1
Bonjour Mervellis,

Je ne suis pas spécialiste en bases Access. J'utilise en VB6 le gestionnaire de données Access. J'ai créé 2 tables avec champ et clé. J'ai réussi à lier ces tables via une requête SQL mais je ne sais pas du tout comment gérer ces liaisons. Je ne peux donc pas tester.

Le plus simple est de tester toi-même via le code fourni. La commande Delete devrait supprimer toutes les données, clés incluses pour ne garder que la structure des tables.

Donc, fais une sauvegarde de la MDB (question de sécurité) puis teste.

Désolé de ne pouvoir t'aider plus.

A+
Notpa
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020
437
non
>
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020

d'accord j'essaie ta méthode d'abord si ça marche je vous tiendrai au courant
merci beaucoup pour votre aide
>
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020

merci beaucoup pour votre aide
j'essaie ta méthode d'abord si ça marche je vous tiendrai au courant
> Mervelis
Bonsoir, voici le code que j'ai créé pour effectuer des suppressions mais rien ne passe

    Private Sub Deleteproduct()
Try
sqL = "DELETE FROM Customer WHERE CustomerNo = '" & txtCustNo.Text & "'"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Do While dr.Read = True
'dgw.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4))
MsgBox("product successfully Deleted")

Loop
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If MsgBox("Are you sure you want to delete this product", MsgBoxStyle.YesNo, "Validation") = MsgBoxResult.Yes Then
Deleteproduct()
ClearFields()
txtCustNo.Text = ""
End If
End Sub
> Mervelis
Voici mon code

Private Sub Deleteproduct()
        Try
            sqL = "DELETE FROM Customer WHERE CustomerNo = '" & txtCustNo.Text & "'"
            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            Do While dr.Read = True
                'dgw.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4))
                MsgBox("product successfully Deleted")

            Loop
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            conn.Close()
        End Try
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If MsgBox("Are you sure you want to delete this product", MsgBoxStyle.YesNo, "Validation") = MsgBoxResult.Yes Then
            Deleteproduct()
            ClearFields()
            txtCustNo.Text = ""
        End If
    End Sub