Appliquer une requete sql a une table

Bonjour à tous.

J'ai créé un formulaire qui permet de parcourir le disque pour allé chercher des fichiers textes et les importer sous forme de table.
Jusque là tout se passe à merveille.
Cependant j'aimerais que lorsque l'utilisateur pousse sur le bouton créant la table à partir du fichier texte une requete SQL s'execute sur cette table et renvoye cette table sous une autre forme.
La requete SQL est un "SELECT ... FROM ... WHERE ... GROUP BY", elle fonctionne parfaitement en tant que query avec une table importée manuellement.

Comment l'incorporer dans mon code VB afin qu'elle agisse directement sur le fichier texte transformé en table que l'utilisateur importe.

Si j'ai bien compris il faut utiliser la bibliothèque DAO avec les Recordset, ca ne bloque pas lorsque je fais ceci :

Code:

---

Set oRst = CurrentDb.OpenRecordset(sSQL)

---

Mais je ne sais pas comment tout retransférer sous forme d'une nouvelle table

Merci pour tout.

Il faut suivre où se déplace tes posts.... :mouarf:

Bon alors pour le vba ça doit être :

Code:

---

docmd.RunSQL (ssql)

---

à la place d'un docmd.execute... je ne suis pas sûr. mais tu peux essayer.

Coin.

Citation:

---

Envoyé par Coin

Il faut suivre où se déplace tes posts.... :mouarf:

Bon alors pour le vba ça doit être :

Code:

---

docmd.RunSQL (ssql)

---

à la place d'un docmd.execute... je ne suis pas sûr. mais tu peux essayer.

Coin.

---

De ce que j'ai lu la commande RunSQL ne s'utilise que pour Modify, Update, Insert dans la requete SQL. Je retest directement et j'update !
EDIT:

En effet il me fait une erreur du type :
"
Run-time error 2432 : A RunSQL Action requires an argument consisting of an sql statement

tu peux mettre ton code STP avec la valeur de ssql + runSQL + déclaration variable...,

afin que se soit plus clair, et plus simple pour quelqu'un qui vient de rejoindre le post...

Merci.

Code:

---

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

Private Sub Toggle9_Click()   DoCmd.TransferText acImportDelim, "iopi", Text10.Value, TextBox1.Value     Dim oRst As DAO.Recordset Dim oDb As DAO.Database Dim fld As DAO.Field Dim sSQL As String Dim blop As QueryDef   sSQL = "INSERT INTO maTable SELECT t.AA, Sum(t.C) AS AAR, (SELECT Sum(t2.C) AS ABR FROM Test t2 Where t.AA = t2.AB GROUP BY AB) as AAB FROM Test t GROUP BY AA"   Set oRst = db.OpenRecordset(sSQL)   oRst.Close   DoCmd.OpenTable Text10.Value   End Sub

---

La première ligne permet de créer une table à partir d'un fichier texte.
Toutes les déclarations ne sont pas utiles.
Le sSQL fonctionne parfaitement en requete sur une table donnée.
Je pense que il faut utiliser les RecordSet.
La dernière ligne permet d'afficher la table.

Merci ! :king:

J'ai réussi !

Voici ce qu'il faut utiliser !

Code:

---

1 2	CurrentDb.CreateQueryDef "testerReq", sSQL DoCmd.OpenQuery "testerReq", acViewNormal, acReadOnly

---

:applo:

Je ne connaissais pas cette méthode....

@+.

coin.