Bonjour, je crée une application qui permetra de gérer des associations pour une mairie.Je suis en train de travailler sur un bouton supprimer une association.J'ai tapé ce code ci dessous et le compilateur me dit "erreur 3709" :Impossible d'utiliser cette connexion pour effectuer cette opération.Elle est fermée ou non valide dans ce contexte.Merci d'avance de vos réponses
Code :
- Private Sub CmdSup_Click()
- Dim Res
- If Listeasso.ListIndex <> -1 Then
- Res = MsgBox("Etes vous sur de vouloir supprimer cette association de votre base?", vbYesNo + vbExclamation, "Suppression" )
- If Res = 6 Then
- Set Rs = New ADODB.Recordset
- Rs.Open "Delete * from Associations where N°Association=" & N°Association, DB, adOpenDynamic, adLockOptimistic
- Call Rafresh(0)
- End If
- Else
- MsgBox "Selectionne un film !!", vbCritical
- End If
- End Sub
|
Le Rafresh est bien sur une fonction:
Code :
- Sub Rafresh(i As Integer)
- 'Alimente la listbox
- If i = 0 Then
- Listeasso.Clear
- Liste1.Clear
- End If
- Call ValidationTab(50)
- Set Rs = New ADODB.Recordset
- Rs.Open RQ, DB
- If i = 0 Then
- If Rs.EOF Then
- Listeasso.AddItem "Aucune association dans la base de donnée"
- Else
- Do Until Rs.EOF
- Listeasso.AddItem Rs!Nom_Association & vbTab
- Liste1.AddItem Rs!N°Association
- Rs.MoveNext
- Loop
- End If
- Else
- Do Until Rs.EOF
- Listeasso.AddItem Rs!Nom_Association & vbTab
- Liste1.AddItem Rs!N°Association
- Rs.MoveNext
- Loop
- End If
- End Sub
|