Discussion :

[Perceneige]

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.

[olsimare]

Bonjour.

Je ne connais pas la réponse à ton soucis, mais pourquoi lancer Access pour faire une simple requête ?

Il te suffit simplement d'ouvrir un connexion comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
' En global
Public cCurrentConnection As New OleDbConnection
...
Public Sub OpenCnnDB()
If cCurrentConnection.State = ConnectionState.Closed Then
    cCurrentConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""Mabasetoto.mdb"""
    cCurrentConnection.Open()
End If
End Sub

Et là tu travailles sur cette connexion, c'est bien plus performant et en plus le type de BDD importe peu.

Nota :si tu codes en VB.NET, utilise plutôt ADO.NET, c'est pas intuitif si tu viens d'Access mais c'est bien plus puissant.

Cdt.

[Dedale67]

Bonjour,

Je n'ai pas la réponse à ton post.
J'aimerais savoir comment tu déclare le "Access.Application"
Faut il ajouter une librairy si oui comment ?
J'avais ceci avant en VB6 mais j'arrive pas à trouver la déclaration Acess en VB.net
Merci par avance

Set appAccess = New Access.Application
With appAccess
.OpenCurrentDatabase strDataBaseName
.Visible = False
.DoCmd.SetWarnings False 'pas de messages d'avertissements
.DoCmd.TransferText acImportDelim, "Importlog", "T_Log", strFichLog, False
.CloseCurrentDatabase
End With