lancer requête SQL depuis formulaire access

Version imprimable

Bonjour à tous.
J'ai construit un formulaire access. Au moment d'appuyer sur un bouton OK, j'ai construit, dans une chaîne nommée SQLQ, une requête SQL tout à fait conforme à la syntaxe retenue par ACCESS.
Je voudrai lancer automatiquement cette requête.
J'ai essayé ce code, récupéré sur un forum:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 'Activation de la base de donnée en cours # Set bds = CurrentDb # bds.QueryDefs.Refresh # # ' Si la requête NouvelleRequête existe, la supprime. # For Each qdf In bds.QueryDefs # If qdf.Name = "NouvelleRequête" Then # bds.QueryDefs.Delete qdf.Name # End If # Next qdf # # ' Crée un objet QueryDef. # Set qdf = bds.CreateQueryDef("NouvelleRequête", SQLQ) # # Set bds = Nothing
Mais cela ne fait strictement RIEN (même pas une erreur)
Quelqu'un peut-il m'aider?
Merci

16/10/2007, 13h35
Lou Pitchoun
Salut,

Pour exécuter la requête, il te manque :
- si tu exécutes directement le SQL
  
  Code:
  
  DoCmd.RunSQL SQLQ
- si tu passes par une requête
  
  Code:
  
  dbs.Execute "NouvelleRequête"
;)
16/10/2007, 15h25
Zavonen

Merci !
J'ai essayé tes deux suggestions.
Aucun effet, toujours RIEN.
Cependant le code généré est bon.
J'en suis sûr car je lui fais afficher dans un controltext sur le formulaire.
Si je fais un copier-coller, que je crée manuellement une requête SQL et que je colle le code généré, la requête s'exécute et le résultat est correct.
PS:
J'ai déjà essayé beaucoup de choses suggérées dans la doc ou les forums
fonction membre execute des querydef
boucle while avec RecordSet
etc.. etc..
jamais aucun effet et jamais d'erreur.
Troublant !
16/10/2007, 15h36
Kloun

Quand tu exécutes ton code pas à pas, tu passes bien dans le bousin ?

Essai ceci ;

Si ça ne fonctionne pas, c'est décidé j'arrête Access.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    'Activation de la base de donnée en cours
    Dim bds As DAO.Database
    Dim qdf As DAO.QueryDef
 
    Set bds = CurrentDb
 
    ' Si la requête NouvelleRequête existe, la supprime.
    For Each qdf In bds.QueryDefs
        If qdf.Name = "NouvelleRequête" Then
            bds.QueryDefs.Delete qdf.Name
        End If
    Next qdf
 
 
    ' Crée un objet QueryDef.
    Set qdf = bds.CreateQueryDef("NouvelleRequête", "SQLQ")
    bds.Execute "NouvelleRequête"
    bds.QueryDefs.Refresh
 
    Set bds = Nothing

16/10/2007, 17h34
Zavonen

L'interprète refuse:
Dim bds As DAO.Database
message:
Type défini par l'utilisateur non défini !!!!

Je suppose qu'il faut placer qqpart un import (include) DAO
c'est un portage VBA des MFC.

On avance ....

Voici le code actuel, enfin la partie utile ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 WHEREAND = WHEREAND + WHEREdocsh WHERE = WHERE + WHEREAND SQLQ = "SELECT * FROM [orders]" & vbCrLf & WHERE SQL.Value = SQLQ SQL.Requery 'Activation de la base de donnée en cours Set bds = CurrentDb bds.QueryDefs.Refresh ' Si la requête NouvelleRequête existe, la supprime. For Each qdf In bds.QueryDefs If qdf.Name = "NewQuery" Then bds.QueryDefs.Delete qdf.Name End If Next qdf ' Crée un objet QueryDef. Set qdf = bds.CreateQueryDef("NewQuery", SQLQ) 'bds.Execute ("NewQuery") ne marche pas !!! 'qdf.Execute ne marche pas non plus !!! bds.Execute (qdf) 'génère la requête qui contient le bon résultat mais refuse de l'ouvrir ??? Set bds = Nothing
Il semble que le problème se trouve au niveau de la syntaxe de 'execute'.
Parmi toutes les variantes que j'ai pu trouver, et elles sont nombreuses, seule celle que j'ai signalé fonctionne (du moins dans ce cas de figure).
C'est presque tout bon, il crée la requête, on peut alller l'ouvrir et l'exécuter, le résultat est correct. Au point de vue syntaxique il a fait les deux corrections suivantes:
Enlever les crochets autour du nom de la table (jamais rien compris à cette pratique ACCESS), et, c'est un minimum, rajouter le ';' de fin 'instruction SQL.
Je ne suis pourtant pas satisfait car pour le moment il refuse de l'ouvrir pour un problème de 'conversion de type'.
Mais alors, pourquoi la requête générée fonctionne-t-elle ?

16/10/2007, 18h41
Zavonen

Quick and dirty !

Bon, avec des messages d'erreur aussi précis je ne peux pas m'en sortir.
Il faut pourtant en finir.
J'ai donc créé une macro qui ouvre la requête générée, et j'appelle cette macro, par la sortie normale et par la sortie en erreur.
Pas de quoi être fier, je shunte ainsi les vraies erreurs qui pourraient survenir.
Cest une horreur, il n'y a qu'à croiser les doigts.
Si vous avez une meilleure idée, je prends.
En l'état tout fonctionne
Merci à tous.
16/10/2007, 19h43
Lou Pitchoun

Citation:

Envoyé par Zavonen

L'interprète refuse:
Dim bds As DAO.Database
message:
Type défini par l'utilisateur non défini !!!!

Je suppose qu'il faut placer qqpart un import (include) DAO
c'est un portage VBA des MFC.

Il faut référencer DAO x.x.

Ouvre un module,
Menu Option-> Référence
Coche la référence Microsoft DAO x.x

;)