Posez votre question Signaler

Suppression donnés

- - Dernière réponse :  Mervelis - 23 août 2019 à 08:49
VB.NET Posez votre question Signaler
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
Afficher la suite 

2 réponses

Signaler Commenter la réponse de Notpa
Messages postés
59
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
29 novembre 2019
0
Merci
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
Signaler Commenter la réponse de Mervelis
-
Bonjour Notpa merci pour ta réponse, ce code me permettra aussi d'effacer les clés primaires ? puisque mes tables sont liées
Commenter la réponse de Notpa
Signaler Commenter la réponse de Notpa
Messages postés
59
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
29 novembre 2019
0
Merci
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
Afficher les 10 commentaires
Signaler Commenter la réponse de Whismeril
Whismeril
Messages postés
14030
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
8 décembre 2019
 322 -
non
Signaler Commenter la réponse de Mervelis
> Whismeril
Messages postés
14030
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
8 décembre 2019
 -
d'accord j'essaie ta méthode d'abord si ça marche je vous tiendrai au courant
merci beaucoup pour votre aide
Signaler Commenter la réponse de Mervelis
> Whismeril
Messages postés
14030
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
8 décembre 2019
 -
merci beaucoup pour votre aide
j'essaie ta méthode d'abord si ça marche je vous tiendrai au courant
Signaler Commenter la réponse de Mervelis
> 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
Signaler Commenter la réponse de Mervelis
> 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
Commenter la réponse de Notpa
Répondre Posez votre question