[Vb.net 2003] Access.Application / Problème de fermeture d'Access
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:
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:
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.
