Retourner une table Access en VB

Bonjour,
Je doit executer une requete en SQL et cette requete doit me retourner 2 champ et j'aimerais que quand je fait appel a cette fonction en SQL, je puisse recuperer les champs de table...
Voici mon code VB pour le moment qui ne me retourne rien ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Function Recherche(vlettre As String, vindice As Integer) For i = 1 To vindice Dim SQL As String Dim rst As DAO.Recordset Dim resultat As Integer SQL = "Select SUM(Nbr)AS Resultat, Prefab FROM(SELECT Count(*) AS Compteur,Prefab,Compteur*Nb AS nbr FROM RepereConcat WHERE MID(Repere," & i & ",1) LIKE '" & vlettre & "' AND Prefab = Prefab GROUP BY Prefab, Nb)WHERE Prefab=Prefab GROUP By Prefab;" Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly) rst.Close Next End Function

---

Et donc je vouderais que la fonction me retourne en valeur Prefab et Resulat Comment puis-je faire ???

bonjour,
il y aurai pas une erreur dans ta fonction MID?
c'est la position de départ qui est demandé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Select SUM(Nbr)AS Resultat, Prefab FROM (SELECT Count(*) AS Compteur, Prefab, Compteur*Nb AS nbr FROM RepereConcat WHERE MID(Repere," & i & ",1) LIKE '" & vlettre & "' AND Prefab = Prefab GROUP BY Prefab, Nb) WHERE Prefab=Prefab GROUP By Prefab;"

---

Déjà utilliser les RecordSet de nos jours, c'est plus que moyen.

Voila ce que j'ai réussis a faire ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Function Lettre(vlettre As String, vindice As Integer) Dim dbs As Database, qdf As QueryDef, strSQL As String, strSQL2 As String, strSQL3 As String strSQL = "Select SUM(Nbr)AS Resultat, Prefab FROM(SELECT Count(*) AS Compteur,Prefab,Compteur*Nb AS nbr FROM RepereConcat WHERE MID(Repere,1,1) LIKE '" & vlettre & "' AND Prefab = Prefab GROUP BY Prefab, Nb)WHERE Prefab=Prefab GROUP By Prefab " Set dbs = CurrentDb For i = 2 To vindice strSQL2 = "Select SUM(Nbr)AS Resultat, Prefab FROM(SELECT Count(*) AS Compteur,Prefab,Compteur*Nb AS nbr FROM RepereConcat WHERE MID(Repere," & i & ",1) LIKE '" & vlettre & "' AND Prefab = Prefab GROUP BY Prefab, Nb)WHERE Prefab=Prefab GROUP By Prefab " strSQL = strSQL & " union all " & strSQL2 Next strSQL3 = "Select SUM(Resultat)AS " & vlettre & " , Prefab FROM(" & strSQL & ") Where Prefab =Prefab GROUP BY Prefab;" Set qdf = dbs.CreateQueryDef(vlettre, strSQL3) End Function

---

Ça va créer une requête ex :

si je fait une requete SQL dans Acces de type

Code:

---

SELECT Lettre('V',14) AS Expr1

---

Ça va me créer une requête qui va s’appeler V
dedans il y aura 2 paramètre la prefa et le nbr de lettre...
Après c'est pas exactement ce que j'attendais ... J'aurais préférer que ça me renvoi la table directement dans ma construction de requête initiale...
Donc pas de création de requête V comme çà je peu directement utiliser la fonction dans des requêtes ...