Discussion :

[azzouz_soui]

bonjour à tous les présents et bonnes vacances aux absents.
ma question aujourd'hui est:
comment supprimer un enregistrement d'une base access en vb6 en cliquant sur une colonne datagrid.
j'ai utilisé le code suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command2_Click()
On Error Resume Next
rst.MoveFirst
        Do While Not rst.EOF
        Trim(rst!nom) = Trim(T1.Text)
                    h = MsgBox("voulez vous vraiment supprimer cet enregistrement", vbYesNo, Suppression)
                    If h = vbYes Then
                    rs.Delete
                    MsgBox ("suppression effectuée avec succes"), vbInformation, "Suppression"
                    vider
                    Exit Sub
                    Else
                    Exit Sub
                    End If
            End If
            rst.MoveNext
         Loop
End Sub

mais la suppression se fait quand je remplis les champs manuellement.
salutations.

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
                    If h = vbYes Then
                    'rs.Delete
                     rst.Delete ' devrait mieux fonctionné
                    MsgBox ("suppression effectuée avec succes"), vbInformation, "Suppression"

[azzouz_soui]

bonjour,
j'ai essayé plusieurs fois avec la modification donnée par PROGELECT mais en vain.
je reexplique mon problème .
j'ai une base données sous access que j'y accède par des boutons ajouter,modifier,supprimer,rechercher par nom,par date,globale.
quand je remplis les champs nom,prénom manuellement ou via rechercher par nom, la suppression se fait avec succès mais quand les champs sont remplis via datagrid la suppression ne se fait pas malgres le message suppression effectuée.
ci_joint le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command2_Click()
On Error Resume Next
rst.MoveFirst
        Do While Not rst.EOF
            If Trim(rst!nom) = Trim(T1.Text)  Then
             h = MsgBox("voulez vous vraiment supprimer cet enregistrement", vbYesNo, Suppression)
                    If h = vbYes Then
                     rst.Delete
                    MsgBox ("suppression effectuée avec succes"), vbInformation, "Suppression"
                    vider
                    Exit Sub
                    Else
                    Exit Sub
                    End If
            End If
            rst.MoveNext
         Loop
End Sub

merci bcp.

[ProgElecT]

Ta boucle semble bonne, elle devrait fonctionner, la seule chose que l'on ne peu vérifier et ton appel à la Sub vider, que ce passe t-il dans celle-ci ?

[Delbeke]

comment supprimer un enregistrement d'une base access en vb6 en cliquant sur une colonne datagrid.

En cliquant sur la colonne ? Déjà en cliquant sur une ligne ca me parait louche.

Par contre, on pourrait, à l'aide d'un bouton , supprimer la ligne sélectionnée dans le datagrid, çà me parait plus convaincant.

Un seul rst.Delete comme code dans le bouton suffit alors, le datagrid et le recordset étant lié, c'est la ligne selectionnée qui est supprimée.

[azzouz_soui]

bonsoir,
en réponse à Mr PROGELECT l'appel de la sub vider c'est remettre à blanc les champs pour mieux comprendre je joints une image d'objet de la table.
en cliquant sur une ligne du datagrid les champs se remplisent du contenu de la ligne du datagrid mais je clique sur supprimer rst.delete ne s'exécute pas.
il y a qq chose qui ne va pas.
salutations