requete sql pour une connexion DAO

Question

bonjour



J'essaye de faire une requete qui ferait la somme des enregistrements
dont l'id_table (champs access) est idtable (variable vb), tout ca,
dans une table nomm&#233;e plat_table



voici mon code



with dataplat_table

    .recordsource = "select sum([plat_table].prix) from
[plat_table] where (([plat_table].[id_table])=idtable) order by
([plat_table].[id_table]);"

    .refresh

end with

est ce que vous pouvez me dire ce qui ne va pas? 

et comment ensuite, je peux mettre mon r&#233;sultat dans une variable pour l'exploiter?



merci de votre aide

cs_CanisLupus · Answer

Salut,
Au niveau de la requete, j'aurais plut&#244;t cod&#233; &#231;a :
si idtable est num&#233;rique
"select sum([plat_table].prix) from [plat_table] where [plat_table].[id_table]=" & idtable & ";"
si idtable est du texte
"select sum([plat_table].prix) from [plat_table] where [plat_table].[id_table]='" & idtable & "';"

Il est inutile de trier par id_table dans ton cas car il n'y a qu'une seule valeur (idtable) que tu interroges.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

chrisnyc · Answer

Essaie ca ca doit marcher

Dim cnCon As ADODB.Connection
    Dim sChaine As String
    Dim rsCompte As ADODB.Recordset
    Dim sRequete As String
 
    'Dim theii As Variant
     
    sChaine = "provider=Microsoft.jet.OLEDB.4.0;data source=PATH DE TA BASE"
    Set cnCon = New ADODB.Connection
    cnCon.Open sChaine
    
    reponse = "test" la toi t as une variable avec idtable
    
    sRequete = "SELECT sum(prix) as somme FROM plat_table WHERE id_table='" & reponse & "'"
   
    'instancier le recorset
    Set rsCompte = New ADODB.Recordset
    'ex&#233;cution de la requete
    rsCompte.Open sRequete, cnCon, adOpenDynamic, adLockOptimistic
    
    While (rsCompte.EOF = False)
       NOM VARIABLE OU TU VEUX METTRE TON RESULTAT =rsCompte.Fields("somme")
       rsCompte.MoveNext
    Wend


 'fermer le recordset et le d&#233;truire
        rsCompte.Close
        Set rsCompte = Nothing
        cnCon.Close

Cordialement 
chris

chrisnyc · Answer

et comme dit CanisLupus
fait attention au type de champ que tu donnes    (ta variable   idtable)

titilechat001 · Answer

Merci pour vos conseils. 

Chrisnyc, quand j'essaye ta solution, ca me met "user-defined type not
defined" sur la ligne Dim cnCon As ADODB.Connection. C'est surement
parce que j'utilise DAO. est ce que tu vois une autre solution?

Canilupus, je ne sais pas comment afficher le r&#233;sultat de te requete
dans une variable, alors je ne peux pas vraiment tester. est ce que je
dois forcement cr&#233;er un objet (genre dblist)? est ce que je peux mettre
ca directement dans une variable genre total=.recordset



merci

chrisnyc · Answer

c est certainement que tu n as pas ajoute les librairies
ajoute
Microsoft excel object 10 librairy
Microsoft DAO 3.6 object librairy
Microsoft ActiveX data objects recordset 2.8 librairy
Microsoft ActiveX data objects  2.8 librairy

chrisnyc

titilechat001 · Answer

dans la ligne      rsCompte.Open sRequete, cnCon,
adOpenDynamic, adLockOptimistic, il me met type incompatible dans le
crit&#232;re???

tu vois ce que ca pourrait &#234;tre?

chrisnyc · Answer

la le probleme vient de ta requete 
si id_table est num&#233;rique
sRequete = "SELECT sum(prix) as somme FROM plat_table WHERE id_table=" & idtable & " "

si id_table est du texte
sRequete = "SELECT sum(prix) as somme FROM plat_table WHERE id_table='" & idtable & "'"
 
donc en l occurrence si ca plante maintenant c certainement que ton champ id_table dans ta table plat_table est un numerique donc prend la premiere forme...

La ca doit etre bon!!!!!    lol
chris

titilechat001 · Answer

bon, comme je n'y arrive pas, je t'explique ce que je voudrais vraiment faire. 



je suis connect&#233;e &#224; un controle data en dao et je dois faire une
addition des champs prix  . Mais si j'additionne tout &#224; partir de
mon controle data, il va prendre tous les enregistrements, alors que je
ne veux prendre que ceux qui sont li&#233;s &#224; une certaine table (d'ou mon
where). j'ai esayer d'afficher dans un dbgrid mes r&#233;sutlats, mais je ne
peux pas compter le nb d'enregistrements pour savoir ou arreter ma
boucle qui compte. 



J'ai essay&#233; directement en sql, mais je n'y arrive pas. 



Est ce que tu vois ce que je peux faire? est ce que je peux afficher
mon r&#233;sultat de requete s&#233;lectionn&#233; (avec le where) dans un autre objet
que dbgrid??



merci beaucoup

Doro81079 · Answer

bonsoir,

je suis plut&#244;t nul en dao mais &#224; premi&#232;re vue la requ&#234;te de canislupus me parait exacte donc je pense que tu devrait la tester si ce n'est pas encore fait....(sans les apostrophes comme &#231;a a &#233;t&#233; pr&#233;ciser)

et ensuite pour ta variable tu la d&#233;clare en static avant la requ&#234;te si tu veux t'en servir dans une autre proc&#233;dure

static total as currency

et apr&#233;s la requ&#234;te et avant la fermeture du recordset tu mets

total = dataplat_table.recordsource 

et logiquement si tu t'en sert dans une autre proc&#233;dure elle devrait contenir la somme de ton recordset.....

soit dit en passant je te conseille malgr&#233; tout ado ,plus simple.....

salut
doro

Requete sql pour une connexion DAO

9 réponses

Discussions similaires