Discussion :

[anikeh]

Bonjour,

je travaille sous ACCESS. J'ai ecrit une requête, enregistrée sous le nom "Requête3" dans ACCESS.
J'aimerais appeler cette requête dans mon code VB sans avoir à la re-écrire.

Je travaille sous ADO. Je sais que c'est possible avec DAO et les querydefs.
Savez vous si c'est possible sous ADO et si oui, comment faire??

Merci.

Anikeh!

[exit26]

essaye de jeté un coup d'oeil sur openquerry

[=JBO=]

Bonjour anikeh,
Voici un exemple (donné dans la MSDN) où la requête Access est nommée "Products Above Average Price":

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
27
28
Sub ADOExecuteQuery()
 
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   Dim fld As ADODB.Field
 
   ' Open the connection
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=.\NorthWind.mdb;"
 
   ' Open the recordset
   rst.Open "[Products Above Average Price]", _
      cnn, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc
 
   ' Display the records in the
   ' debug window
   Do Until rst.EOF
      For Each fld In rst.Fields
         Debug.Print fld.Value & ";";
      Next
      Debug.Print
      rst.MoveNext
   Loop
 
   ' Close the recordset
   rst.Close
 
End Sub

[m-mas]

c'est plutôt dans le forum VB que tu pourra trouver une réponse précise à ta question

je déplace le sujet !

[=JBO=]

c'est plutôt dans le forum VB que tu pourra trouver une réponse précise à ta question

je déplace le sujet !

Pas d'accord, ce topic est bien un sujet Access, plus particulièrement VBA Access dans le contexte d'un projet ADP (par exemple).

Ainsi, à partir d'Access on peut récupérer directement un objet Connection sur la BD en cours:

Code :

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

Application.CurrentProject.Connection

Ce topic intéresse peut-être aussi la communauté purement VB, mais c'est un autre problème.

Donc, merci de ne pas déplacer ce topic.

[anikeh]

Moi je fais confiance au modérateur...

@=JBO=
Je vais tenter ton code MSDN et si ca marche je mets le tag résolu.
Je precise que ma requête est une requête action.

Anikeh!

[=JBO=]

Moi je fais confiance au modérateur...

sans commentaire ...

@=JBO=
Je vais tenter ton code MSDN et si ca marche je mets le tag résolu.
Je precise que ma requête est une requête action.

Pour une requête action dans le projet Access en cours, tu peux essayer le code ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
   Dim cnn As ADODB.Connection 
   Dim nb As Long
 
   ' référencer l'objet Connection en cours
   Set cnn = Application.CurrentProject.Connection
 
   ' exécuter la requête action
   cnn.Execute "le nom de la requête action", nb, adCmdStoredProc

[ThierryAIM]

>> =JBO= : la communauté purement VB (quoique ...) n'a rien à rajouter pour le moment à ce que tu as proposé

[anikeh]

Bonjour et merci à vous.

J'ai utilisé le code ci-dessous de =JBO= et ca marche parfaitement pour moi.

Code :

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

1
2
3
4
5
6
7
8
   Dim cnn As ADODB.Connection 
   Dim nb As Long
 
   ' référencer l'objet Connection en cours
   Set cnn = Application.CurrentProject.Connection
 
   ' exécuter la requête action
   cnn.Execute "le nom de la requête action", nb, adCmdStoredProc

je mets le tag resolu.

Anikeh!