Bonjour,
comme j'ai (très) souvent cette requête à faire pour récupérer l'id_produit dans ma base:
select products_id from products where products_model="ma_ref";
Je souhaite me créer une petite function de ce type dans personal.xlsm
=model_to_id(la_cellule) ou ma_ref est dans "la_cellule"
Je bute sur la méthode pour récupérer le recordset (qui sera toujours unique) et le mettre en résultat.
Une idée.
comme j'ai (très) souvent cette requête à faire pour récupérer l'id_produit dans ma base:
select products_id from products where products_model="ma_ref";
Je souhaite me créer une petite function de ce type dans personal.xlsm
=model_to_id(la_cellule) ou ma_ref est dans "la_cellule"
Je bute sur la méthode pour récupérer le recordset (qui sera toujours unique) et le mettre en résultat.
Une idée.
VB:
Function model_to_id(la_cellule1)
Dim Password As String
Dim SQLStr As String
Dim Server_Name As String
Dim User_ID As String
Dim Database_Name As String
Dim table_name As String
Set Rs = CreateObject("ADODB.Recordset")
Server_Name = "mon_serveur"
Database_Name = "ma_base"
User_ID = "mon_utilisateur"
Password = "monmotdepasse"
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=" & _
Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"
SQLStr = "select products_id from products where products_model='" & la_cellule1 & "'"
Rs.Open SQLStr, cn, adOpenStatic
'je colle le resultat dans la bonne cellule
model_to_id = ????
End Function