1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

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
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
84
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
26 mai 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
Signaler

Bonjour Notpa merci pour ta réponse, ce code me permettra aussi d'effacer les clés primaires ? puisque mes tables sont liées
Réponse 2 / 2
Messages postés
84
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
26 mai 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
Afficher les 10 commentaires
Signaler
Messages postés
14861
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
29 mai 2020
 412
non
Signaler
>
Messages postés
14861
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
29 mai 2020
d'accord j'essaie ta méthode d'abord si ça marche je vous tiendrai au courant
merci beaucoup pour votre aide
Signaler
>
Messages postés
14861
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
29 mai 2020
merci beaucoup pour votre aide
j'essaie ta méthode d'abord si ça marche je vous tiendrai au courant
Signaler
> 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
> 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
Répondre Posez votre question