XL 2013 Function--> récupérer recordset

[hctad1]

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.

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

 

[dysorthographie]

Bonjour,

Rs.Open SQLStr, cn, adOpenStatic

    'je colle le resultat   dans la bonne cellule
If not RS.eof then model_to_id = RS("products_id")
RS.close
Set RS=Nothing
Cn.close
Set Cn=Nothing

 

[patricktoulon]

bonjour
si ta requête est valide
et que c'est bien une valeur que tu récupère et non un tableau de valeurs
essaie
model_to_id=copyfromrecordset

 

[Hasco]

Bonjour,

Si mes souvenirs sont bon, cela devrait être :

model_to_id = Rs(0)

Ou plus simplement

model_to_id = cn.Execute("select products_id from products where products_model='" & la_cellule1 & "'")(0)

n'oubliez pas de fermer et détruire vos objets Rs et cn si vous ne voulez pas avoir de fuite de mémoire.

cordialement

 

[dysorthographie]

bonjour
si ta requête est valide
et que c'est bien une valeur que tu récupère et non un tableau de valeurs
essaie
model_to_id=copyfromrecordset

Bonjour Patrick tu confonds avec GetRow ou Getstring !

Copyfromrecordset est une méthode de l'objet Range.

 

[dysorthographie]

@Roblochon
Tu peux faire un with cn.Execute
Pour tester le .Eof mais tu ne peux pas retourner le champ (0) directement !

with cn.execute(SQL)
     If not .Eof then products_model=. Fields (0)
.close 'pas besoin de Nothing vue que le portée est le with
End with

 

[Hasco]

Re,

Je viens de tester sur un de mes fichiers et

model_to_id = cn.Execute("select id from [journal$] where id=" & la_cellule1.Text & "")(0)

Et ça fonctionne comme attendu
Quant au with c'est une bonne idée, l'essentiel étant que les objets soient détruits correctement que ce soit comme ça ou autrement.

Cordialement

 

[dysorthographie]

Oui car ta requête ne retourne pas Eof !

En revanche tu peux faire un getstring sans problème

Dans ce genre de fonction je n'utilise pas de variable , sauf peut être SQL,que des with.

Les informations de connexion peuvent être des constantes public dans un module standard

Public Const Password = "monmotdepasse", Server_Name = "mon_serveur", User_ID = "mon_utilisateur", Database_Name = "ma_base"
Public Const  connexion= "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & ";Database=" & Database_Name & ";Uid=" & User_ID & ";Pwd=" & Password & ";"
Function model_to_id(la_cellule1)
With CreateObject("ADODB.Connection")
    .Open connexion
        With .execute("select products_id from products where products_model='" & la_cellule1 & "'")
            If Not .EOF Then model_to_id = .Fields(0)
            .Close
        End With
    .Close
End With
End Function

 

[hctad1]

Hum, j'ai bien un résultat à ma requête quand je controle par ailleurs.

Pour autant quelle que soit la méthode: copyfromrecordset, rs(0), cn.execute(... etc.
ça me renvoit #VALEUR!

Au mieux, je récupère un 0 avec
rs("products_id")(0)

La meme chose dans une sub() fonctionne.

Je sèche.

 

[dysorthographie]

Comment ça tu sèche ?
Je t'es fournis le code au poste#8!

 

[hctad1]

🤔 oui je sèche.
en modifiant mon code:
soit j'arrive à 0 en résultat,
soit #valeur!,
soit la capture ci-desssous.

C'est aussi ce que j'obtiens avec ton code copié/collé sans édition aucune.

c'est forcément sous mon nez mais je ne trouve pas.

 

[dysorthographie]

si products_id est integer

Public Const PassWord = "monmotdepasse", Server_Name = "mon_serveur", User_ID = "mon_utilisateur", Database_Name = "ma_base"
Public Const Connexion= "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & ";Database=" & Database_Name & ";Uid=" & User_ID & ";Pwd=" & PassWord & ";"
Function model_to_id(la_cellule1 As String) As interger
With CreateObject("ADODB.Recordset")
    .Open "select products_id from products where products_model='" & la_cellule1 & "'", Connexion, 1, 3
    If Not .EOF Then model_to_id = .Fields(0)
    .Close
End With
End Function

 

[hctad1]

Oui mon products_id est integer, pour autant. Meme pb avec ta déclaration de variable modifiée.

 

[dysorthographie]

quel est ton dernier code qui à fonctionné!

 

[Hasco]

Re,

A mon avis (mais ce n'est que mon avis) il vous faut enlever les ' de votre requête pour lui passer l'entier.

"select products_id from products where products_model=" & la_cellule1 & ";", Connexion, 1, 3

Le point-virgule final est parfois important.

Cordialement