Connexion base de données ODBC via VB Excel

Version imprimable

Bonjour,

Désolé du dérangement..

J'ai un soucis que j'aimerais résoudre rapidement :oops.

Je suis sous vB Excel.
Je cherche la syntaxe pour me connecter à une base de donnée ODBC.
Pour ensuite via une macro, exécuter une requête..

Voilà déjà le code que j'ai fais mais sa me met une erreur :

Citation:

Erreur d'exécution '-2147467259(......)'
[DBNETLIB][ConnectionOpen (Connect()).]Ce serveur SQL n'existe pas ou son accès est refusé
Code:

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 Sub Macro1() Dim valcel As String valcel = Excel.Range("Feuil2!B4").Value Dim cnBat As ADODB.Connection Set cnBat = New ADODB.Connection Dim strConn As String strConn = "PROVIDER=sqloledb;" strConn = strConn & "DATA SOURCE=DNS_Intranet;UID=user_odbc;PWD=mdpusrodbc;DATABASE=DNS_Intranet" cnBat.Open strConn Dim rsBat As ADODB.Recordset Set rsBat = New ADODB.Recordset Set rsBat = cnBat.OpenRecordset _ ("SELECT Designation FROM produits_test WHERE code_produit = '& valcel'", _ dbOpenDynaset) While Not rsBat.EOF rsBat.MoveNext Wend rsBat.Close cnBat.Close Set rsBat = Nothing Set cnBat = Nothing End Sub
Dans panneau de configuration --> Outils d'administration...J'ai bien crée ce qu'il fallait et dans Excel j'arrive à me connecter mais via vB non ..

Si vous pouviez m'aider..

Merci d'avance de votre aide.

Cordialement,
DexX

Désolé du double post..

J'ai modifié mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro2()
 
Dim strDSN As String, strAttr As String, strODBCDrv As String
 
' Nom de la source de données ODBC
strDSN = "DNS_Intranet"
' Nom du pilote ODBC
strODBCDrv = "MySQL ODBC 3.51 Driver"
' Attributs
' OPTION est spécifique à MySQL dans cet exemple
strAttr = "SERVER=LZ2" & vbCr & "DATABASE=bddintranetpol" & vbCr & "OPTION=3" & vbCr & _
          "UID=user_odbc" & vbCr & "PWD=mdpusrodbc"
 
DBEngine.RegisterDatabase strDSN, strODBCDrv, True, strAttr
 
End Sub

Met sa me met une erreur :

Citation:

ODBC - L'appel à échoué

J'aimerais pouvoir me connecter pour ensuite faire une requête ..

21/06/2011, 10h06
kiki29

Salut,sans doute un probleme de syntaxe de la chaine de connexion, faire une recherche sur le net par exemple sur carlprothman.net

D'accord,

Je viens de consulter ce lien : http://www.carlprothman.net/Technolo...9/Default.aspx
Code:

1 2 3 oConn.Open "DSN=DNS_Intranet;" & _ "Uid=user_odbc;" & _ "Pwd=mdpusrodbc"
Il faut déclarer " oConn " en objet.

Comme ceci ?? :
Code:

1 2 Dim oConn As ODBCConnection Set oConn = New ODBCConnection

Code:

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
33
34
Sub Macro2()
 
'Dim strDSN As String, strAttr As String, strODBCDrv As String
 
' Nom de la source de données ODBC
'strDSN = "DNS_Intranet"
' Nom du pilote ODBC
'strODBCDrv = "MySQL ODBC 3.51 Driver"
' Attributs
' OPTION est spécifique à MySQL dans cet exemple
'strAttr = "SERVER=LZ2" & vbCr & "DATABASE=bddintranetpol" & vbCr & "OPTION=3" & vbCr & _
          '"UID=user_odbc" & vbCr & "PWD=mdpusrodbc"
 
'DBEngine.RegisterDatabase strDSN, strODBCDrv, True, strAttr
 
'Dim oConn As Object
'Set oConn = New ODBCConnection
 
'oConn.Open "DSN=DNS_Intranet;" & _
           '"Uid=user_odbc;" & _
           '"Pwd=mdpusrodbc"
 
 
' Déclaration des objets
Dim wrkJet As Workspace
Dim db As Connection
Dim rs As Recordset
Dim Qd As QueryDef
 
' Création de la liaison
Set wrkJet = CreateWorkspace("", "", "", dbUseODBC)
Set db = wrkJet.OpenConnection("", dbDriverNoPrompt, False, "ODBC;DSN=DNS_Intranet;UID=user_odbc;PWD=mdpusrodbc")
 
End Sub

Citation:

Erreur d'incompatibilité de type