Discussion :

[aba_tarn]

Bonjour,

Je débute en DAO et je n'ai pas très bien compris ce que retourne querydef et donc à quoi ressemble ma variable Qu1.

Ce que je veux faire c'est savoir si ma requete contient quelque chose ou est vide et ensuite faire une structure conditionnelle avec ça. Est-ce qu'il faut l'exécuter au préalable?

Code :

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

1
2
3
4
5
6
Dim Qu1 As DAO.QueryDef
Dim Qu2 As DAO.QueryDef
Dim Db As DAO.Database
Set Db = CurrentDb
 
Set Qu1 = Db.CreateQueryDef("", "select code_station from station_qualite where code_station not in ([ibgn].[numéro de la stq])")

[random]

tu confonds probablement deux objets

le querydef et le recordset

le querydef est une requête (généralement déjà enregistrée, avec ses propriétés)

le recordset est l'ensemble des enregistrements manipulé par un texte sql
contenu ou non dans un querydef

un mabase.openrecordset(et là ton sql) devrait suffire à ton bonheur

[aba_tarn]

et si je ne veux pas ouvrir mon recordset, mais juste lui attribuer ma requete SQL, c'est quoi la fonction?

Et oui je pense que j'ai un peu confondu les 2....

[random]

openrecordset

[aba_tarn]

avec le code suivant j'ai une erreur 3061, trop peu d'arguments...

Code :

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

1
2
3
4
 
Dim rs1 As Object
Set Db = CurrentDb
Set rs1 = Db.OpenRecordset("select code_station from station_qualite where code_station not in ([ibgn].[numéro de la stq])", dbOpenDynaset)

est-ce que le problème vient de ma requete SQL??

merci

[ratamahatta]

la Clause In dans le langage SQL doit Spécifier une plage de valeur comme

select * from client wher nomclient in ('Jean','michelle','daniel')

dans ton cas essaie select * from table1 where champ1 in (select champ2 from table2)

[ratamahatta]

Bonjour,


pour savoir si ta requête retourne des resultats il faut passer par le biais d'un recodset

voilà un petit exemple :

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
17
18
dim con as dao.database
dim rec as dao.recordset

set con= opendatabase(chainedeconnection)

set rec=con.OpenRecordset("Select * from table")

with rec
     if .absoluteposition=-1 then
             msgbox "Pas d'enregistrement"
     else
             .movelast
             msgbox .recordcount & " Enregistrement(s) Trouvé(s)"
     end if
end with

rec.close