Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tisane
Bonjour BGA,
Je dispose d'un fichier texte contenant une requête, comment faire pour exécuter cette requête ?
Si j'ai bien compris... - crée une nouvelle requête dans ta base sans choisir aucune table - clique sur le bouton [SQL] à gauche dans la barre d'outils - colle le contenu de ton fichier texte puis affiche le résultat
-- Tisane
Bonjour BGA,
Je dispose d'un fichier texte contenant une requête, comment faire pour
exécuter cette requête ?
Si j'ai bien compris...
- crée une nouvelle requête dans ta base sans choisir aucune table
- clique sur le bouton [SQL] à gauche dans la barre d'outils
- colle le contenu de ton fichier texte puis affiche le résultat
Je dispose d'un fichier texte contenant une requête, comment faire pour exécuter cette requête ?
Si j'ai bien compris... - crée une nouvelle requête dans ta base sans choisir aucune table - clique sur le bouton [SQL] à gauche dans la barre d'outils - colle le contenu de ton fichier texte puis affiche le résultat
-- Tisane
BGA
Bonjour Tisane,
Merci pour ta réponse. Globalement c'est bien ce que je veux faire mais comment l'intégrer dans une macro ?
Bonjour BGA,
Je dispose d'un fichier texte contenant une requête, comment faire pour exécuter cette requête ?
Si j'ai bien compris... - crée une nouvelle requête dans ta base sans choisir aucune table - clique sur le bouton [SQL] à gauche dans la barre d'outils - colle le contenu de ton fichier texte puis affiche le résultat
-- Tisane
Bonjour Tisane,
Merci pour ta réponse. Globalement c'est bien ce que je veux faire mais
comment l'intégrer dans une macro ?
Bonjour BGA,
Je dispose d'un fichier texte contenant une requête, comment faire pour
exécuter cette requête ?
Si j'ai bien compris...
- crée une nouvelle requête dans ta base sans choisir aucune table
- clique sur le bouton [SQL] à gauche dans la barre d'outils
- colle le contenu de ton fichier texte puis affiche le résultat
Merci pour ta réponse. Globalement c'est bien ce que je veux faire mais comment l'intégrer dans une macro ?
Bonjour BGA,
Je dispose d'un fichier texte contenant une requête, comment faire pour exécuter cette requête ?
Si j'ai bien compris... - crée une nouvelle requête dans ta base sans choisir aucune table - clique sur le bouton [SQL] à gauche dans la barre d'outils - colle le contenu de ton fichier texte puis affiche le résultat
-- Tisane
Eric
Bonjour,
Quelque chse comme : Sub zz() Dim strSQL As String Dim f As Integer Dim qry As DAO.QueryDef f = FreeFile ' Adapter le chemin et nom de fichier.txt Open CurrentProject.Path & "BGA.txt" For Input As f strSQL = Input(LOF(f), f) Close f If InStr(strSQL, "Select ") > 0 _ And InStr(strSQL, " into ") = 0 Then ' Requête Sélection Set qry = CurrentDb.CreateQueryDef("tmp", strSQL) DoCmd.OpenQuery ("tmp") CurrentDb.QueryDefs.Delete "tmp" Else 'requête Action CurrentDb.Execute strSQL End If End Sub
PS:Charger la référence Microsof DAO 3.x Library PS2: je suppose que le fichier text ne contient qu'une seule instruction SQL. Sinon, il faudra splitter.
Bonjour Tisane,
Merci pour ta réponse. Globalement c'est bien ce que je veux faire mais comment l'intégrer dans une macro ?
Bonjour BGA,
Je dispose d'un fichier texte contenant une requête, comment faire pour exécuter cette requête ?
Si j'ai bien compris... - crée une nouvelle requête dans ta base sans choisir aucune table - clique sur le bouton [SQL] à gauche dans la barre d'outils - colle le contenu de ton fichier texte puis affiche le résultat
-- Tisane
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Quelque chse comme :
Sub zz()
Dim strSQL As String
Dim f As Integer
Dim qry As DAO.QueryDef
f = FreeFile
' Adapter le chemin et nom de fichier.txt
Open CurrentProject.Path & "BGA.txt" For Input As f
strSQL = Input(LOF(f), f)
Close f
If InStr(strSQL, "Select ") > 0 _
And InStr(strSQL, " into ") = 0 Then
' Requête Sélection
Set qry = CurrentDb.CreateQueryDef("tmp", strSQL)
DoCmd.OpenQuery ("tmp")
CurrentDb.QueryDefs.Delete "tmp"
Else
'requête Action
CurrentDb.Execute strSQL
End If
End Sub
PS:Charger la référence Microsof DAO 3.x Library
PS2: je suppose que le fichier text ne contient qu'une seule instruction
SQL. Sinon, il faudra splitter.
Bonjour Tisane,
Merci pour ta réponse. Globalement c'est bien ce que je veux faire mais
comment l'intégrer dans une macro ?
Bonjour BGA,
Je dispose d'un fichier texte contenant une requête, comment faire pour
exécuter cette requête ?
Si j'ai bien compris...
- crée une nouvelle requête dans ta base sans choisir aucune table
- clique sur le bouton [SQL] à gauche dans la barre d'outils
- colle le contenu de ton fichier texte puis affiche le résultat
--
Tisane
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Quelque chse comme : Sub zz() Dim strSQL As String Dim f As Integer Dim qry As DAO.QueryDef f = FreeFile ' Adapter le chemin et nom de fichier.txt Open CurrentProject.Path & "BGA.txt" For Input As f strSQL = Input(LOF(f), f) Close f If InStr(strSQL, "Select ") > 0 _ And InStr(strSQL, " into ") = 0 Then ' Requête Sélection Set qry = CurrentDb.CreateQueryDef("tmp", strSQL) DoCmd.OpenQuery ("tmp") CurrentDb.QueryDefs.Delete "tmp" Else 'requête Action CurrentDb.Execute strSQL End If End Sub
PS:Charger la référence Microsof DAO 3.x Library PS2: je suppose que le fichier text ne contient qu'une seule instruction SQL. Sinon, il faudra splitter.
Bonjour Tisane,
Merci pour ta réponse. Globalement c'est bien ce que je veux faire mais comment l'intégrer dans une macro ?
Bonjour BGA,
Je dispose d'un fichier texte contenant une requête, comment faire pour exécuter cette requête ?
Si j'ai bien compris... - crée une nouvelle requête dans ta base sans choisir aucune table - clique sur le bouton [SQL] à gauche dans la barre d'outils - colle le contenu de ton fichier texte puis affiche le résultat
-- Tisane
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
.../... Manque le Set qry= Nothing sous la ligne CurrentDb.QueryDefs.Delete "tmp" juste avant le Else
Bonjour Tisane,
Merci pour ta réponse. Globalement c'est bien ce que je veux faire mais comment l'intégrer dans une macro ?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
.../...
Manque le Set qry= Nothing sous la ligne
CurrentDb.QueryDefs.Delete "tmp" juste avant le Else
Bonjour Tisane,
Merci pour ta réponse. Globalement c'est bien ce que je veux faire mais
comment l'intégrer dans une macro ?
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
