Discussion :

[marie10]

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 :

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
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!!

[Megaxel]

Salut,
Fonce dans les tutoriels sur ce site, il y a les différentes chaînes de connexion, pour les bases les plus courantes (Access, Oracle, MySql...).
Après, ce n'est presque plusqu'un copier-coller...

[marie10]

Ok.. je vais mieux regarder alors!! merci bcq!!