Discussion :

[selverine]

Bonjour à tous,

Malgrès quelques recherche, je n'arrive pas à trouver la solution à mon problème.

Je souhaite récuperer le resultat (un chiffre) d'une requete SQL en VBA.
Est-ce possible?

Voici le seul code que j'ai trouvé pour l'instant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  Dim db As DAO.Database
  Dim qdf As DAO.QueryDef
 
  Set db = CurrentDb
    sSQL = "Select CLIENT.PRODUIT_ID From CLIENT Where COMMANDE_ID= Me.COMMANDE_ID"
 
      Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

Je ne vois pas trop l’intérêt des RecordSet. Ne peut ont pas simplement récupérer le résultat (un chiffre) , d'une requête SQL?
Si non, comment récupérer à partir d'un RecordSet?

Merci d'avance

Selverine

[Invité]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim db As DAO.Database
  Dim rst As DAO.Recordset  
  Dim sSQl As String
  Dim Result as Variant ( Je ne sais pas de quel type est le champ)
 
  Set db = CurrentDb
    sSQL = "Select CLIENT.PRODUIT_ID From CLIENT Where COMMANDE_ID= Me.COMMANDE_ID" 
    Set rst = db.OpenRecordset(sSQL, dbOpenSnapshot)
 
    If Not Orst.EOF Then
       Result = Nz(rst.Fields(0), "")
    Else
       MsgBox "Il n'y a pas d'enregistrement"
    End if

Cela c'est si tu es sûr de n'avoir qu'un enregistrement.

Attention de bien fermer la connexion en fin de procédure et de libérer les variables.

[Kloun]

Bonjour,

Dans ce cas précis, un DLookup peut suffire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim iLng_ProductId as long
    iLng_ProductId= DLookup("PRODUIT_ID", "CLIENT", "COMMANDE_ID = " & Me.COMMANDE_ID.value)

[selverine]

Merci pour tout!

J'ai pas encore testé la solution de Kloun , mais celle de GAYOT fonctionne (par contre comme Me.COMMANDE_ID est une variable il faut écrire

"Select CLIENT.PRODUIT_ID From CLIENT Where COMMANDE_ID= " & Me.COMMANDE_ID".

Je teste ce soir la solution de klou!

Enfaite, je sais pas si c 'est possible, mais peut on retourner un tableau dans une fonction en VBA?

Merci!