MS Query
DexX39800
Messages postés
43
Date d'inscription
Statut
Membre
Dernière intervention
-
DexX39800 Messages postés 43 Date d'inscription Statut Membre Dernière intervention -
DexX39800 Messages postés 43 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- MS Query
- Power query download - Télécharger - Tableur
- Sql query download - Télécharger - Gestion de données
- Flyspeed sql query - Télécharger - Bases de données
- Active query builder - Télécharger - Bases de données
- Fusionner plusieurs feuilles excel en une seule power query - Guide
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 "