[VBA-E] Requete SQL sous Excel

**climz** · 19/05/2006, 15h19

Bonjour à tous
Je sais que c'est une question récurente mais je ne trouve de fin au problème ou de solutions convenable ( simple ) sur aucun post je pose donc mon problème :
Récupere le contenu d'une table (ACCESS) grace à une requete SQL

Mon code pour le moment est

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
Sub import()
Dim MaBaseDeDonnées As Database
Dim MonRecordSet As Recordset
Set MaBaseDeDonnées = OpenDatabase("U:\test_bd\bd5.mdb", False)
 
 
Set MonRecordSet = MaBaseDeDonnées.OpenRecordset _
                     ("SELECT * FROM T_TOTAL WHERE T_TOTAL.id = 1", _
                     dbOpenDynaset)
While Not MonRecordSet.EOF
' Action
MonRecordSet.MoveNext
Wend
MonRecordSet.Close
End Sub

je ne sais pas si c'est la bonne direction ?
Merci à tous

**Vesta** · 19/05/2006, 16h03

Jusque la ca a l'air bon...
Fais attention a ca (je le fais pour ado)

Code :

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

1
2
3
Dim MaBaseDeDonnées As ADOBD.Database
Dim MonRecordSet As ADO.Recordset

**climz** · 22/05/2006, 08h37

merci de ta réponse mais cela me met une erreur meme avec la référence :
Microsoft ActiveX Data Objects 2.7

Personne n'a un petit code d'execution de requeet sql, un truc trés simple car je me perd un peu sur les cours et tutoriel et je n'est besoin que de ca et pas de lire les 45000pages de cours sur les recordset ...

Merci à vous

**Megaxel** · 22/05/2006, 09h36

Salut!
C'est vite lu, 45000 pages... Surtout sur un sujet aussi palpitant que les recordset...

Pourtant, ton code a l'air juste. Tu dois juste faire attention à te placer au début du recordset (movefirst), et vérifier qu'il n'est pas vide (ni EOF, ni BOF).
Mais bon, surtout: c'est quoi, l'erreur que tu as?

**climz** · 22/05/2006, 13h57

Bon j'ai pri le problème par un autre bou
Au lieu de faire le lien entre Excel et Access j'ai fait d'Access vers Excel lol
Et ca marche
Merci quand meme