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

hctad1 · 10 Juillet 2021

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.

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

dysorthographie · 10 Juillet 2021

Bonjour,

Code:

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 · 10 Juillet 2021

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 · 10 Juillet 2021

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 · 10 Juillet 2021

patricktoulon à dit:
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 · 10 Juillet 2021

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

Code:

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 · 10 Juillet 2021

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 · 10 Juillet 2021

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

VB:

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 · 10 Juillet 2021

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 · 10 Juillet 2021

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

hctad1 · 10 Juillet 2021

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 · 10 Juillet 2021

si products_id est integer

Code:

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 · 10 Juillet 2021

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

dysorthographie · 10 Juillet 2021

quel est ton dernier code qui à fonctionné!

Hasco · 10 Juillet 2021

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

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

hctad1

XLDnaute Junior

dysorthographie

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

dysorthographie

XLDnaute Accro

Hasco

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

hctad1

XLDnaute Junior

dysorthographie

XLDnaute Accro

hctad1

XLDnaute Junior

dysorthographie

XLDnaute Accro

hctad1

XLDnaute Junior

dysorthographie

XLDnaute Accro

Hasco

XLDnaute Barbatruc

Discussions similaires