La suppression d'un enregistrement

Résolu/Fermé

bouchrot Messages postés 352 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 - 17 janv. 2014 à 10:47
bouchrot Messages postés 352 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 - 27 janv. 2014 à 11:01

Bonjour,

salut j'ai réussis a supprimer une ligne de datagridview mais je veux que cette soit aussi supprimer de la base de donnée sachant qu'ils sont reliées
merci d'avance

A voir également:

La suppression d'un enregistrement
Forcer la suppression d'un fichier - Guide
Suppression page word - Guide
Suppression compte instagram - Guide
Enregistrement vidéo écran - Guide
Youtube enregistrement vidéo - Guide

5 réponses

Réponse 1 / 5

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié par Kalissi le 17/01/2014 à 13:28

Bonjour,

Relier de quelle façon ?

Normalement, avant du supprimer une ligne d'un DGV tu devrais en capturer toutes les informations afin d'obtenir les informations dont une clé d'index.

par la suite tu peux supprimer dans ta BD avec quelque chose comme ceci :


    Public Function SupprimerEntite(ByVal Indice As string) As Int32

        Dim ObjRet As Int32 = 0
        Dim ReqSQL As String = _
                "DELETE (" & NomTable & "." & cleIndex & ")" & _
                " FROM (" & NomTable & ")" & _
                " WHERE (((" & _
                    NomTable & "." & cleindex & ")=" & """" & _
                    Indice & """" & "));"
        
        Try
           Connexion.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;" & "Data Source= " & "C:\MaBd.mdb" & ";"
            Connexion.Open()

           Dim cmd As New OleDbCommand("TableVideo", Connexion)

            cmd.CommandText = reqSQL
            ObjRet = cmd.ExecuteNonQuery()

        Catch ex As Exception
            MsgBox (ex.ToString)
        Finally
            Connexion.Close
        End Try

        Return ObjRet

    End Function

Réponse 2 / 5

bouchrot Messages postés 352 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 6
20 janv. 2014 à 17:39

merci kalissi pour votre réponse
je sais comment faire le supression de la base de donnée mais cette fois je veux supprimer une ligne de la datagrid au même temps elle doit être supprimer de la base de donnée ,j'ai fait une recherche et j'ai trouvé ça

Dim drv As DataRowView = CType(DataGridView1.CurrentRow.DataBoundItem, DataRowView)
drv.Row.Delete()

ça supprime une ligne de la datagrid , mais n'ont pas de la base de donnée

Réponse 3 / 5

bouchrot Messages postés 352 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 6
24 janv. 2014 à 11:37

voilà ce que j'ai j'ai fait mais ça pas marcher

Dim drv As DataRowView = CType(DataGridView1.CurrentRow.DataBoundItem, DataRowView)
Dim valeur As Object = drv("?????")
drv.Row.Delete()
cmd.CommandType = CommandType.Text
cmd.CommandText = "delete from ?????? where ????? = '" & valeur & "'"
cmd.Connection = cn
cmd.ExecuteNonQuery()
MsgBox("réussis")

Réponse 4 / 5

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié par Kalissi le 27/01/2014 à 01:52

Bonjour,

Utiliser DirectCast plutôt que CType , CType étant une instruction de VB2005.

Dim drv As DataRowView = DirectCast(DataGridView1.CurrentRow.DataBoundItem, DataRowView)

Choisir l'index de la table (la clé primaire), ou un élément unique de la table,
ou X représente cet élément.


Dim valeur As String = drv.Column(X).value
où
Dim Valeur As Int32 = drv.Column(X).value

drv.Row.Delete()

Connexion.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;" & "Data Source= " & "C:\MaBd.mdb" & ";"
Connexion.Open()

Dim cmd As New OleDbCommand("NomTable", Connexion)

' Ici NumeroCode correspond à la clé unique (clé primaire) de la table
' Personnellement, je n'utilise pas de clé primaire sous acces lorsque je crée
' ma table, mais j'ai quand même une clé unique.

Dim ReqSQL As String = _
                "DELETE (" & NomTable & "." & NumeroCode & ")" & _
                " FROM (" & NomTable & ")" & _
                " WHERE (((" & _
                    NomTable & "." & MediaNumeroCode & ")=" & """" & _
                    Valeur & """" & "));"

cmd.CommandText = reqSQL

cmd.Connection = cn
cmd.ExecuteNonQuery()

' Ici tu peux capturer le résultat

Dim Indice as Int32 = cmd.ExecuteNonQuery()

Connexion.Close

MsgBox("réussis")

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

bouchrot Messages postés 352 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 6
27 janv. 2014 à 11:01

c bon j'ai résolu mon problème merci a tous

Discussions similaires

contacts non supprimables ou modifiables sur ma carte sim

Discussions similaires

Newsletters