Discussion :

[informer]

Bonjour à tous,

J'ai besoin de rendre "bookmarkable" une connexion ADODB qui tape sur Access

J'ai donc déclaré dans un module

Code :

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

1
2
3
4
Public Const BACKENDDB_PATHFILE As String = "\\SVFRMARFILE01\DataBase.accdb"
Public Const BACKENDDB_CNXSTRING As String = "Provider=Microsoft.ACE.OLEDB.12.0" & _
                                            ";Data Source=" & BACKENDDB_PATHFILE & _
                                            ";Persist Security Info=False;"

Puis dans une fonction elle aussi dans un module, j'ai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public function MyFunc
 Dim oCnx As New ADODB.Connection
 Dim oRecSet As New ADODB.Recordset
 
With oCnx
        .ActiveConnection = BACKENDDB_CNXSTRING '--> ERREUR
        .CursorType = adOpenStatic '--> BookMark mais pas testé car plante ligne d'avant
        .Open
    End With
 
'... code
 
End function

J'avais avant ça testé

Code :

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

1
2
3
4
With oCnx
        .CursorType = adOpenStatic '--> BookMark c'est ici que ça plantait 
        .Open BACKENDDB_CNXSTRING
    End With

Par contre la commande ci-dessous fonctionne parfaitement

Code :

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

 oCnx.Open BACKENDDB_CNXSTRING

Merci pour toute aide

[informer]

La solution est de déclarer différemment le recordset

Code :

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

1
2
3
4
5
6
gsSQL = "SELECT * FROM Table"
    oRecSet.ActiveConnection = BACKENDDB_CNXSTRING
    oRecSet.CursorType = adOpenStatic
    oRecSet.Open gsSQL
'... traitement
    oRecSet.Close : Set oRecSet = Nothing 'A faire si réutilisation du oRecSet avec une nouvelle requête dans la procèdure

Et maintenant ça marche