Discussion :

[mic1868]

Voilà mon 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
19
20
21
Private Sub CommandAjoutFiliere_Click()

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    If TextAjoutFiliereNom.Text = "" Then
        MsgBox "Entrer le nom de la filière !", vbOKOnly
    Else
        rs.Open "filiere", cnAccess, 1, 3
        rs.AddNew
        rs!libelle_filiere = TextAjoutFiliereNom.Text
        rs.Close
        rs.Delete
            
        TextAjoutFiliereNom.Text = ""
            
        FrameAjoutFiliere.Visible = False
        LabelTitreFiliere.Visible = False
    End If

End Sub

L'erreur se passe sur : rs.close

Ma chaine de connexion :

Code :

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

1
2
3
4
5
6
7
8
Public cnAccess As New ADODB.Connection
 
Public Sub Connect()
    Set cnAccess = New ADODB.Connection
    cnAccess.ConnectionString = Provider = "microsoft.jet.oledb.3.51"
    cnAccess.Provider = "microsoft.jet.oledb.4.0"
    cnAccess.Open App.Path & "\base_gestion.mdb"
End Sub

Et je passe la variable "cnAccess" pour la connexion.

J'ai chercher sur le forum, j'ai chercher dans le MSDN, pas de solution.
Je passe qu'il doit y avoir un problème avec le moteur Jet, mais je ne comprend pas grand chose dans la connexion avec une base de données Access, j'ai essayé plusieurs solutions pour me connecter mais à chaque fois il y à d'autres erreurs, il y a quelque jours ce code fonctionnait pour la connexion avec la base.

[OhMonBato]

Essaye un rs.update avant de fermer.

[mic1868]

Essaye un rs.update avant de fermer.

Je l'avais complètement oublié celui-là, mais par contre maintenant il m'indique le même message d'erreur sur rs.delete

[mic1868]

Est-ce que le rs.delete est utile ?

[OhMonBato]

Je ne pense pas, je mettrais plutot

set rs = nothing