MS Query
DexX39800
Messages postés
45
Statut
Membre
-
DexX39800 Messages postés 45 Statut Membre -
DexX39800 Messages postés 45 Statut Membre -
Bonjour,
J'ai un soucis que j'aimerais résoudre rapidement.
En faite, à partir de Excel, je me connecte à une base de donnée externe (Phpmyadmin).
Dans ma feuille excel, j'ai un tableau avec deux colonnes.
" Code " et " Designation ".
J'aimerais lorsque l'on tape " 1 " dans " Code " que dans " Designation " sa nous donnes la désignation correspondant au code 1.
Je ne sais pas si avec une requete SQL cela marche mais je n'arrive pas à résoudre ce soucis.
Si vous pouviez m'aider.
Je vous remercie d'avance.
Cordialement,
DexX
J'ai un soucis que j'aimerais résoudre rapidement.
En faite, à partir de Excel, je me connecte à une base de donnée externe (Phpmyadmin).
Dans ma feuille excel, j'ai un tableau avec deux colonnes.
" Code " et " Designation ".
J'aimerais lorsque l'on tape " 1 " dans " Code " que dans " Designation " sa nous donnes la désignation correspondant au code 1.
Je ne sais pas si avec une requete SQL cela marche mais je n'arrive pas à résoudre ce soucis.
Si vous pouviez m'aider.
Je vous remercie d'avance.
Cordialement,
DexX
1 réponse
-
Sub Macro1() Dim valcel As String valcel = Excel.Range("Feuil1!A1").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=spca_prod" cnBat.Open strConn Dim rsBat As ADODB.Recordset Set rsBat = New ADODB.Recordset With rsBat .ActiveConnection = cnBat .Open "select designation" from produits_test where code_produit=' & valcel'" Feuil1.Range("A2").CopyFromRecordset rsBat .Close End With cnBat.Close Set rsBat = Nothing Set cnBat = Nothing End Sub
Quand j'exécute sa me met une erreur avec " Dim cnBat As ADODB.Connection "
