Discussion :

[beegees]

Bonjour tout le monde,

J'aimerais supprimer un enregistrement de ma base de données.

Pour cela, j'utilise ce 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
Private Sub commandSupprimerUneRecette_Click(Index As Integer)
    Dim ASupprimer, Prochain As Variant
    Dim rsSuppression As Recordset
    Set rsSuppression = BDOuvrirTable("SELECT * FROM recette")
    ASupprimer = rsSuppression.Bookmark
    rsSuppression.MoveNext
    Prochain = rsSuppression.Bookmark
    rsSuppression.Bookmark = ASupprimer
    rsSuppression.Delete
    rsSuppression.Bookmark = Prochain
 
    RemplirListeRecettes 'j'appelle RemplirListeRecettes pour faire un refresh de la liste des recettes
 
End Sub

Le problème, c'est que rien ne s'efface.

Voici le code pour l'ouverture de la table :

Code :

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

1
2
3
Public Function BDOuvrirTable(ByVal NomTable As String, Optional ByVal LectureSeule As Boolean = False) As Recordset
    Set BDOuvrirTable = BD.OpenRecordset(NomTable, IIf(LectureSeule, dbOpenSnapshot, dbOpenDynaset))
End Function

Je mets bien sûr "lecture seule" à faux (en ne passant aucun paramètre, il prend par défaut false).

J'utilise DAO avec VB6 et Access.

Sauriez-vous aussi me dire si il est possible dans la fenêtre d'exécution (déboguage) de connaître la valeur de BDOuvrirTable ?

Merci d'avance pour l'aide.

beegees

[vb]

Bonjour Beegees,
Ton index est mal placé...
Regarde ici un exemple de code à adapter bien sur..tout est dans cet exemple!!!

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
19
20
21
Dim retour
Dim rsChoix As Recordset
Dim strChoix As String
Dim item
Dim iPosition As Integer
iPosition = lstTexteFixe.ListIndex
If iPosition = -1 Then
MsgBox "Choisissez un élément dans la liste", vbInformation
Exit Sub
End If
strChoix = "select*from Tva where [N°]= " & CStr(lNuméroItem)
Set rsChoix = Bd.OpenRecordset(strChoix, dbOpenDynaset)
item = rsChoix![Taux]
 
retour = MsgBox("Supprimer cette donnée " & item & "?", vbOKCancel + vbQuestion, item)
Select Case retour
Case vbOK 'effectue la suppression
    rsChoix.Delete
        lstTexteFixe.RemoveItem iPosition
 Case vbCancel 'annule le choix de suppression
    End Select

VB

[beegees]

Bonjour vb,

Un tout grand merci pour ton aide.

J'ai suivi tes conseils et ça fonctionne

Voici mon code, qu'en penses-tu ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub commandSupprimerUneRecette_Click(Index As Integer)
    Dim ASupprimer, Prochain As Variant
    Dim rsSuppression As Recordset
    Dim sql As String
    ASupprimer = listRecettes(0).ItemData(listRecettes(0).ListIndex)
    sql = "SELECT * FROM recette where [id] = " & ASupprimer
    Set rsSuppression = BDOuvrirTable(sql, False)
    RemplirListeRecettes 'j'appelle RemplirListeRecettes pour faire un refresh de la liste des recettes
 
End Sub

Merci encore à toi

beegees

[vb]

Bonjour Beegees,
Comme je vois tu récupères bien ton élément à supprimer à partir du moment où tu affectes bien ton <ItemData....ect> à la variable ASupprimer et ton querry alors fonctionne.
Il est à noter que tu peux à partir de cela établir des requêtes bien plus complexes en mettant des conditions plus pointues....A toi de voir dans tes prochains travaux.
Bien à toi
VB

[beegees]

Bonjour VB,

Merci pour ton complément de réponse.

Très bonne fin de journée à toi.

beegees