[VBA-E]Ecrire et lancer une requete sur Access
Bonjour!
Voila, je cherche à écrire une requete et à la lancée depuis VBA Excel.. j'ai deja fait ce code pour des requetes tappant dans des bases Oracle, mais la, je voudrais tapper dans une base Access, et la méthode ne marche plus..
Voila le code que j'utilisais pour Orcale et serveur:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Dim Conn As New ADODB.Connection
Dim RsReq As New ADODB.Recordset
Sheets("Extraction").Select
'lancement de la requête
With Conn
.ConnectionString = ("DSN=Gestion perso;UID=Gestion perso;PWD=luisa")
.CommandTimeout = 180
.Open
End With
REQ = "SELECT personnel.code_perso from Personnel"
Set RsReq = Conn.Execute(REQ)
'Alimentation de la feuille Requete avec le resultat de la requête
i = 6
While Not RsReq.EOF
Cells(i, 1).Value = RsReq!code_perso
RsReq.MoveNext
i = i + 1
Wend
Conn.Close |
Est ce la connexion qui n'est plus une ADODB?
Je ne connais pas tres bien tt ca et je ne vois vraiment pas comment faire...
Merci d'avance!!
