Discussion :

[cchampion2]

Bonjour!

J'aurais voulu savoir comment demander l'execution d'une requete d'une autre base de donneés non ouverte? quelqu'un a t'il la solution??
Merci pour votre aide.

Cha

[Tofalu]

Via le modèle DAO et les objets querydefs cela devrait être possible.
parcontre cela ne t'afficheras pas un tableau avec les résultats mais tu auras juste un curseur en mémoire avec tes enregistrements.[/code]

[cchampion2]

ok je comprends que ce serait un petit module a developper mais je ne sais pas trop comment ca marche pour l'ouverture d'une requete d'une autre base...merci de me donner le code si possible

Cha

[Tofalu]

Voila un exemple qui lance la requête1 dans la base fermée bd1 et affiche le résultat dans le formulaire en cours.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Commande0_Click()
Dim db As Database
Dim q As QueryDef
Dim r As DAO.Recordset
Set db = OpenDatabase("d:\bd1.mdb")
Set q = db.QueryDefs("Requête1")
Set r = q.OpenRecordset
Set Me.Recordset = r
End Sub

Par contre, il faudra prévoir les zones de texte du formulaire en fonction de la requête à afficher

[cchampion2]

voila ce que j'ai tape dsle module mais qd je l'execute rien ne se passe...
Je precise que je suis en version access97, que c'est une rquete creation de table qui demande deux parametres pour etre executer. Je veux simplement qu'il execute la requete de cette base pour que la table en correspondance soit mis a jour.(table elle meme rattache a la base sur laquelle je travaille)
Merci de me dire si vous voyez pourquoi la requetene s'execute pas..

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande49_Click()
 
Dim db As Database
Dim q As QueryDef
Dim r As DAO.recordSet
 
Set db = OpenDatabase("u:\merg.mdb")
Set q = db.QueryDefs("req creationtable")
End Sub

[balises code obligatoires, merci | cafeine]

[Tofalu]

qui demande deux parametres pour etre executer.

Ma méthode ne fonctionnera pas du coup.
C'est quoi le code de la requête?

[Tofalu]

Essaye avec

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Commande0_Click()
Dim db As Database
Dim q As QueryDef
Dim r As DAO.Recordset
Set db = OpenDatabase("d:\bd1.mdb")
db.Execute (codedelarequête)
End Sub

Le code de la requête est une chaine de caractère à mettre entre guillemets ou à utilser avec une variable String.
Si cela ne fonctionne pas, post ton code en utilisant les balises [code]

[User]

Il me semble que le code de Tofalu était bon:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Commande49_Click() 
 
Dim db As Database 
Dim q As QueryDef 
 
Set db = OpenDatabase("u:\merg.mdb") 
Set q = db.QueryDefs("req creationtable") 
q.execute                   ' en plus
End Sub

[User]

J'oubliai les paramètres:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub Commande49_Click() 
 
Dim db As Database 
Dim q As QueryDef 
 
Set db = OpenDatabase("u:\merg.mdb") 
Set q = db.QueryDefs("req creationtable") 
q.Parameters(0) = "Paramètre1"
q.Parameters(1) = "Paramètre2"
q.execute                   ' en plus 
End Sub

[cchampion2]

Je vais regarder cela demain et voir si ca marche. Je vous tiens au courant. J'avais essaye q.execute mais avec en mettant les parametres...a demain..merci pour votre aide...j'espere que cà marchera...
A+ 8)

[cchampion2]

La base est bien lancée, la requete également mais cette requete a un module appele recalc et on me dit expression non reconnu qd j'execute :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande49_Click() 
 
Dim db As Database 
Dim q As QueryDef 
 
Set db = OpenDatabase("u:\merg.mdb") 
Set q = db.QueryDefs("req creationtable") 
q.Parameters(0) = "Paramètre1" 
q.Parameters(1) = "Paramètre2" 
q.execute                   ' en plus 
End Sub

[balises code ajoutées pour la dernière fois => prochaine fois thread verrouillé | cafeine]

il faut rajouter un parametre recalc a ce dernier module? la fonction recalc apparait dans les modules des deux bases pourtant..
et sinon parametre1 est unparametre fixe ou il vame poser la question comme qd j'execute la requete de ma ma premire base?

merci pour votre aide.



a+

[User]

Il faudrait que tu me donnes le SQL de ta requête création de table.
et les expressions employés dans ta requêtes faisant parti du module recalc.

[cchampion2]

en fait je vais plutot appeler un etat qu'une requete, je cherche comment faire(autre sujet du forum), ce sera plus simple pour mon appli. merci.