Problème SQL en VBA

Version imprimable

Problème SQL en VBA

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:

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

Bonjour

Code:

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.

Bonjour,

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

Code:

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

06/07/2011, 10h42
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!