Discussion :

[_Nimy_]

Bonjour à tous,

Je m'adresse à vous car les pros de VBA n'ont pas su répondre à mon problème, et moi encore moins !

Afin de mettre à jour un classeur Excel, je cherche à prendre des informations contenues sur une base de données Interbase (*.gdb).

Pour cela on m'a fournit "SQL Manager 2005 for Interbase and Firebird" dont je me suis servie pour créer ma requête, et même l'enregistrer comme une procédure stockée.

Maintenant je bloque à pouvoir appeler cette procédure depuis VBA / Excel ou par un autre moyen si il le faut. Pouvez-vous m'éclairer ?

En espérant avoir été suffisamment claire et en vous remerciant par avance,
Nimy.

[al1_24]

Un petit morceau de code que j'utilise avec une base Oracle, mais qui devrait fonctionner avec toute connexion ODBC...

Code VBA :

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
22
23
24
25
26
27
28
29
30
31
32
Private sub ODBC_Exec(DSN As String, CmdName As Sstring)
    Dim ODBC_Cmd As ADODB.Command
    Dim ODBC_Cnx As ADODB.Connection
    ' Ouvrir la connexion à la base
    On Error GoTo NotOpen
    Set ODBC_Cnx = New ADODB.Connection
    Set ODBC_Cmd = New ADODB.Command
    ODBC_Cnx.Open "Provider=MSDASQL;DSN=" & DSN
    If ODBC_Cnx.State = adStateOpen Then
        ' Préparer l'objet Commande
        On Error GoTo ErrCmd
        With ODBC_Cmd
            .ActiveConnection = ODBC_Cnx
            .CommandType = adCmdText
            .CommandText = CmdName
            ' Exécuter la commande
            .Execute
        End With
    End If
    GoTo EndSub
NotOpen:
    ErrMsg "Connexion à la base", ODBC_Cnx.ConnectionString
    GoTo EndSub
ErrCmd:
    ErrMsg "Commande non exécutée", ODBC_Cmd.CommandText
EndSub:
    ODBC_Cnx.Close
    ODBC_Cmd.Close
    Set ODBC_Cmd = Nothing
    Set ODBC_Cnx = Nothing
    Err.Clear
End Sub

L'objet ADODB.Command a une collection PARAMETERS pour y stocker les valeurs de paramètres si nécessaire

[_Nimy_]

Merci de t'intéresser à mon problème, je t'avoue être largement larguée sur ce coup-là. De mon côté en continuant à chercher j'ai trouvé ce bout de code :

Code :

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

1
2
3
4
5
6
 
Dim adoConn As New ADODB.Connection
 
adoConn.ConnectionString = "provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;Password=masterkey"
 
adoConn.Open

Mais il me répond : "Erreur d'exécution 3706, impossible de trouver le fournisseur, il est peut-être mal installé."

Je suppose que c'est "provider" qui est mal renseigné, mais que mettre à la place?


PS : je m'attelle à comprendre ton code pour voir si j'arrive à l'adapter à mon cas.

[al1_24]

Le provider MSDASQL est celui de ODBC.
Il faut créer un DataSourceName dans l'administrateur ODBC, qui pointe sur ta base de données.
Le paramètre DSN de la procédure est le nom de ce DSN.
Le paramètre CmdName est le texte de la commande que tu exécutes sous ton SGBD.
Si ta commande SQL retourne des données (SELECT ?), ADODB.Command retourne les données dans un ADODB.Recordset

[_Nimy_]

Finalement j'ai réussi à accéder à cette base de données !!

Un des informaticiens de la boite m'a créé un lien ODBC vers la BdD et j'utilise désormais des codes du type :

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
 
Sub testSQL2()
Dim adoConn As New ADODB.Connection, rst As New ADODB.Recordset, fld As ADODB.Field
 
adoConn.ConnectionString = "DSN=STEP_UAP_COLL;Driver=OdbcJdbc;Dbname=192.9.200.237:D:\bgsoft\Data\DBStep.gdb;CHARSET=ISO8859_1;UID=ODBC;"
 
adoConn.Open
 
    ' Ouverture du Recordset en défilement en avant, et en lecture seule
 
rst.Open "SELECT MATRICULE, NOM_COMPLET FROM OPERATEURS", adoConn, adOpenForwardOnly, adLockReadOnly
 
Worksheets("Stockage").Range("A:H").Clear
rst.MoveFirst
Worksheets("Stockage").Range("A1").CopyFromRecordset rst
rst.Close
 
End Sub

On sait jamais, ça peut servir à quelqu'un !!