Discussion :

[snad88]

Bonjour,

Je suis actuellement sur un petit projet avec du vba access et du sql. Je dois à partir d'un module récupérer des paramètres dans une table pour me connecter à différents serveurs, ce qui est fait.
A partir de là, il faut que j'éxécute une requete sql, et je souhaiterai savoir si c'est possible de renvoyer le résultat des requetes que j'effectue directement dans une table temporaire (on commit preserve row) afin de retraiter ces résultats avec un autre module.

Merci d'avance pour votre aide ! J'en ai grandement besoin.

[Jean-Philippe André]

Bonjour,
bienvenue sur DVP
Tu peux mettre le résultat d'une requête dans une table en indiquant dans ton SQL la destination :

Code sql :

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

SELECT MonChamp1, MonChamp2 INTO MaTableDestination FROM MaTableSource;

[snad88]

Bonjour,

Merci ça fait plaisir d'avoir une réponse en plus d'un bienvenue ^^
J'ai testé ta requete mais je crois qu'il y a un problème, en faite je me connecte sur un serveur via le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim acnx, acmd, arst
Set acnx = CreateObject("ADODB.Connection")
Set acmd = CreateObject("ADODB.Command")
Set arst = CreateObject("ADODB.Recordset")
 
    varLogin = DLookup("[ConnectLogin]", "SourceExtractionDefinition", "[ID] = 1")
    varServer = DLookup("[ConnectServer]", "SourceExtractionDefinition", "[ID] = 1")
    varPassword = DLookup("[ConnectPassword]", "SourceExtractionDefinition", "[ID] = 1")
    varProvider = DLookup("[ConnectProvider]", "SourceExtractionDefinition", "[ID] = 1")
    straConnection = "Data Source=" & varServer & ";User Id=" & varLogin & ";Password=" & varPassword & ";Provider=" & varProvider & ";"
 
        acnx.Open straConnection

Puis ensuite la query qui est dans un fichier texte est lue:

Code :

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

1
2
3
4
5
Set thequery = fso.openTextFile(QueryPath, ForReading, True)
ProbQuery = thequery.readall
cmd.activeconnection = acnx
cmd.CommandText = ProbQuery
Set arst = cmd.Execute

J'ai donc une erreur lorsque j'arrive à la dernière ligne 'set arst = cmd Execute' car ça me dit "ORA-00905: missing keyword"
sachant que j'ai repris mon sql en rajoutant "INTO table2"
je ne comprend pas d'où vient le problème.