Discussion :

[theuma]

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 :

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

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 ???

[Ullur]

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

Code :

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

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;"

[Bluedeep]

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

[theuma]

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

Code :

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

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 :

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

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 ...