Problème de recordset avec requête SELECT

**gwinyam** · 08/03/2007, 09h43

Salut à tous,

Je débute en VBA avec Access et j'ai besoin d'effectuer différents traitements avec VBA pour collecter et formater des données notamment.

Je vous mets mon code actuel:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim req1 As Recordset
Dim sql1 As String
 
Set db = CurrentDb()
 
sql1 = "SELECT c.id_c AS id FROM client c, intervenir intr WHERE c.id_c=intr.id_c AND YEAR(date)>(YEAR(now())-1) AND YEAR(date)<(YEAR(now())+1) GROUP BY c.id_c ORDER BY c.id_c;"
 
Set req1 = db.OpenRecordset(sql1)

Et il me retourne cette chère erreur 13: incompatibilité de type sur la ligne:

Code :

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

Set req1 = db.OpenRecordset(sql1)

Je comprends pas...
Et d'ailleurs au passage, quelle est la méthode pour récupérer le nombre de lignes retournées? et les valeurs retournées svp?

Merci d'avance
PS: ah juste un truc, j'ai testé la requête, elle fonctionne impeccablement

**mout1234** · 08/03/2007, 09h58

En lecture rapide je dirai que tu as du SQL non conforme aux syntaxes reconnues pas le Jet.

Code SQL :

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

FROM client as c, intervenir as intr

PS: ah juste un truc, j'ai testé la requête, elle fonctionne impeccablement

Ha bon? Tu l'as essayé dans Access?

Par ailleurs, pourquoi faire la jointure par un Where? utilises un INNER JOIN , c'est mieux.

**mout1234** · 08/03/2007, 10h00

Sinon, n'aurais-tu pas les biblios ADO et DAO de référencées?

Essayes avec

Code :

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

Dim req1 As DAO.Recordset

**gwinyam** · 08/03/2007, 10h05

ça marche pas...

j'ai testé les alias, ça marche pas.

Et les inner join, pourquoi pas, mais je ne sais pas m'en servir et à vrai dire, je trouve que ça ne change pas grand chose quand les jointures avec Where sont bien faites

**gwinyam** · 08/03/2007, 10h07

Envoyé par mout1234

Sinon, n'aurais-tu pas les biblios ADO et DAO de référencées?

Essayes avec

Code :

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

Dim req1 As DAO.Recordset

Désolé, je n'ai qu'un truc qui se rapproche seulement du nom et qui s'appelle ADODB...

seb92400 · 08/03/2007, 10h09

Juste une question b****...

Pourquoi ne recopies-tu pas le code sql de ta requête si tu l'as testée et qu'elle fonctionne ?

N'oublie pas non plus le :

Code :

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

Dim db As DAO.DataBase

Pour compter, regarde l'aide d'Access sur RecordCount...

**mout1234** · 08/03/2007, 10h11

YEAR(date)

Essayes en mettant

Code :

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

c.date

L'inner join est préférable car elle favorise- il me semble - les mecanismes d'optimisation du moteur de requêtes (Rushmore).

**gwinyam** · 08/03/2007, 10h12

C'est ce que j'ai fait pour la requête SQL, elle a fonctionné dans l'outil de requête d'access, je l'ai fait là et ensuite je l'ai recopié tout simplement avec un copier/coller...

Par contre, je n'ai pas ADO ni DAO, mais il ne me fait pas d'erreur en ce qui concerne mon objet db, en tout cas pas avant la ligne en question...

**mout1234** · 08/03/2007, 10h13

Envoyé par gwinyam

Désolé, je n'ai qu'un truc qui se rapproche seulement du nom et qui s'appelle ADODB...

C'est donc que tu fais un mélange des genres!

Ton code correspond à du DAO. Il te faut donc ajouter la référence à la bibliothèque DAO.

**gwinyam** · 08/03/2007, 10h18

Question bête, je fais comment?

seb92400 · 08/03/2007, 10h20

re,

Va dans l'éditeur vba, puis dans le menu Outils/Références, coche Microsoft DAO 3.6 Object Library (ou autre numéro suivant la version d'Access)

Ensuite, tu peux également écrire :

Code :

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

Set Req1 = Currentdb.OpenRecordset(sql1)

Il est toutefois largement conseillé de déclarer les objets et les variables...

Code :

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

1
2
3
4
5
6
7
Dim db As DAO.DataBase
Dim Req1 As DAO.RecordSet
Dim Sql1 As String
 
Set db = CurrentDb
Set Sql1 As ........
Set Req1 = db.OpenRecordset(Sql1)