Bonjour à tous.

Dans mon programme je manipule une base access que je dois parfois ouvrir pour effectuer des opérations.

Par exemple, j'ouvre la base et je récupère tout les Etats qu'ensuite je liste dans une listebox dans mon programme dotnet.

Voici mon problème :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Private Sub form_administrer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ac = New Access.Application
        ac.OpenCurrentDatabase(chemin_base, False)
        ac.CloseCurrentDatabase()
        ac.Quit()
    End Sub
ps : mon ac est en global : Dim ac as Access.Application

Ceux qui ont manipulé ce genre d'objet savent que ca ouvre la base et simplement la referme et ferme le programme access. Voila quelque chose de normal et c'est justement ce que je veux mais des que je rajoute des opérations entre l'ouverture et la fermeture, la fermeture ne s'effectue pas.

Voici 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
    Private Sub form_administrer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ac = New Access.Application
        ac.OpenCurrentDatabase(chemin_base, False)
        rs = ac.CurrentDb.OpenRecordset("SELECT nom_chapitre FROM chapitre WHERE identification_chapitre = " & Chr(34) & ident_chap & Chr(34) & " ORDER BY numero_chapitre;", dao.RecordsetTypeEnum.dbOpenDynaset)
        Do While Not rs.EOF
            Me.lst_report.Items.Add(rs.Fields("nom_chapitre").Value)
            rs.MoveNext()
        Loop
        rs = Nothing
        ac.CloseCurrentDatabase()
        ac.Quit()
        ac = Nothing
    End Sub
Mon code s'excute bien, ma liste est remplis, ma base se ferme, access se ferme et ... se r'ouvre !!!!
Si j'essaye de cliquer sur l'onglet fermeture, access se ferme et ... se r'ouvre encore, etc ...

De plus, le plus étrange, lorsque je met des points d'arrets à ma fonction et que j'excute le code en pas à pas, la, cela marche parfaitement, la base se ferme bien, access aussi et ne s'ouvre plus.