sql select

comment puis je faire une requete sql avec un select, recuperer ces données et pouvoir les utiliser...

je pense avec une querydef,


Set db = CurrentDb
Set qry = db.CreateQueryDef("", sqlCmd)

si je fais qry.execute, il me dit ke je ne peux pas faire de select avec un execute

je ne vois pas comment faire d'autre

en VBA je fais comme ca :

dim cx as new adodb.connection
dim rst as new adodb.recordset

set rst=cx.execute("Ta Requete Ici")

'Pour lire les champs
do while rst.eof=false
msgbox rst!NomChamp
rst.movenext
loop

rst.close
cx.close

-------------------------------
Réponse au message :
-------------------------------

> comment puis je faire une requete sql avec un select, recuperer ces données et pouvoir les utiliser...
>
> je pense avec une querydef,
>
>
> Set db = CurrentDb
> Set qry = db.CreateQueryDef("", sqlCmd)
>
> si je fais qry.execute, il me dit ke je ne peux pas faire de select avec un execute
>
> je ne vois pas comment faire d'autre
>
>

msg d'erreur : operation is not allowed when the object is closed...

je pense que cela vient de la connection. je pense que je n'en n'ai pas besoin car je suis sur une base de données locale, enfin, je ne sais pas ....





-------------------------------
Réponse au message :
-------------------------------

> en VBA je fais comme ca :
>
> dim cx as new adodb.connection
> dim rst as new adodb.recordset
>
> set rst=cx.execute("Ta Requete Ici")
>
> 'Pour lire les champs
> do while rst.eof=false
> msgbox rst!NomChamp
> rst.movenext
> loop
>
> rst.close
> cx.close
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > comment puis je faire une requete sql avec un select, recuperer ces données et pouvoir les utiliser...
> >
> > je pense avec une querydef,
> >
> >
> > Set db = CurrentDb
> > Set qry = db.CreateQueryDef("", sqlCmd)
> >
> > si je fais qry.execute, il me dit ke je ne peux pas faire de select avec un execute
> >
> > je ne vois pas comment faire d'autre
> >
> >
>

oups desole c de ma faute, j'ai oublié une ligne.

Entre dim rst as new adodb.recordset et set rst=cx.execute("Ta Requete Ici") il faut mettre set cx=currentproject.connection


-------------------------------
Réponse au message :
-------------------------------

> msg d'erreur : operation is not allowed when the object is closed...
>
> je pense que cela vient de la connection. je pense que je n'en n'ai pas besoin car je suis sur une base de données locale, enfin, je ne sais pas ....
>
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > en VBA je fais comme ca :
> >
> > dim cx as new adodb.connection
> > dim rst as new adodb.recordset
> >
> > set rst=cx.execute("Ta Requete Ici")
> >
> > 'Pour lire les champs
> > do while rst.eof=false
> > msgbox rst!NomChamp
> > rst.movenext
> > loop
> >
> > rst.close
> > cx.close
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > comment puis je faire une requete sql avec un select, recuperer ces données et pouvoir les utiliser...
> > >
> > > je pense avec une querydef,
> > >
> > >
> > > Set db = CurrentDb
> > > Set qry = db.CreateQueryDef("", sqlCmd)
> > >
> > > si je fais qry.execute, il me dit ke je ne peux pas faire de select avec un execute
> > >
> > > je ne vois pas comment faire d'autre
> > >
> > >
> >
>

j'ai une autre solution si tu veux sans utiliser de connexion adodb.

dim Bds as DataBase
dim RsTable as Recordset
dim Variable1 as Variant

Set Bds = CurrentDb
Set RsTable = Bds.OpenRecordset("SELECT * FROM....;")
if RsTable.RecordCount <> 0 then
RsTable.MoveFirst
Variable1 = RsTable.Fields("NomDuChamp") ' sortir la valeur d'un champ et la mettre dans une variable
End if

Voila voila, j'espère que c'est ce que tu cherche

shun


-------------------------------
Réponse au message :
-------------------------------

> oups desole c de ma faute, j'ai oublié une ligne.
>
> Entre dim rst as new adodb.recordset et set rst=cx.execute("Ta Requete Ici") il faut mettre set cx=currentproject.connection
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > msg d'erreur : operation is not allowed when the object is closed...
> >
> > je pense que cela vient de la connection. je pense que je n'en n'ai pas besoin car je suis sur une base de données locale, enfin, je ne sais pas ....
> >
> >
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > en VBA je fais comme ca :
> > >
> > > dim cx as new adodb.connection
> > > dim rst as new adodb.recordset
> > >
> > > set rst=cx.execute("Ta Requete Ici")
> > >
> > > 'Pour lire les champs
> > > do while rst.eof=false
> > > msgbox rst!NomChamp
> > > rst.movenext
> > > loop
> > >
> > > rst.close
> > > cx.close
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > comment puis je faire une requete sql avec un select, recuperer ces données et pouvoir les utiliser...
> > > >
> > > > je pense avec une querydef,
> > > >
> > > >
> > > > Set db = CurrentDb
> > > > Set qry = db.CreateQueryDef("", sqlCmd)
> > > >
> > > > si je fais qry.execute, il me dit ke je ne peux pas faire de select avec un execute
> > > >
> > > > je ne vois pas comment faire d'autre
> > > >
> > > >
> > >
> >
>