Discussion :

[_Nimy_]

Bonjour à tous,

Je viens vers vous car je vais imploser si je continue à chercher

Je dois lire des données d'une base SQL par un simple (!!) select. Je souhaiterais exécuter les requêtes à partir de VBA car tout le traitement de l'information est déjà sous VBA (ben oui, j'ai fait le traitement d'info, manque plus que l'information en fait ).

J'ai parcouru nombre d'articles et tutoriels, mais je bloque.
J'ai activé la référence "Microsoft DAO 3.6 Object Library)


En me basant sur le tuto de SQLPRO et en testant sur une requête simple (testée et approuvée sous EMS SQL Manager 2005 for InterBase & Firebird Lite) j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub DAOOpenRecordset()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase("C:\STEP\DBStep.GDB")
    sSQL = "SELECT DTE_EVNT,C_XID,C_XID_CHG, DESIGN_OF FROM CLIENTS_CDES_OF_EVNTS WHERE DTE_EVNT > '2.03.2008' AND C_XID = 353"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    rst.Close
End Sub

Il me répond : " Erreur d'exécution 3343 - Format de base de données (C:\STEP\DBStep.GDB) non reconnu"

Quelqu'un a une idée? Parce que là je coule.



Moi à la base je suis ingénieur soudeur, pas informaticienne...

[_Nimy_]

j'ai également essayé d'accéder à cette base de données avec :
Excel > données > A partir d'autres sources
et à partir de là j'ai tenté diverses combinaisons mais rien n'y fait.

Quelqu'un connait ce format de base de données et saurait comment l'exploiter sous Excel en automatique? Moi je patauge...

[AlainTech]

J'ai trouvé ça:
http://www.connectionstrings.com/?carrier=interbase
Il semblerait que ce soit une base Borland InterBase.

[_Nimy_]

Merci beaucoup de t'être penché sur mon problème.

Pour le moment je n'ai eu le temps de jeter à la page indiquée qu'un petit coup d'oeil, des taches plus urgentes s'étant présentées, mais je ne manquerais pas de m'y plonger comme il faut.

Mais déjà j'ai retrouvé un peu d'espoir

[_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 !!