Discussion :

[baracuda]

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 :

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

Set oRst = CurrentDb.OpenRecordset(sSQL)

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

Merci pour tout.

[Coin]

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

Bon alors pour le vba ça doit être :

Code :

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

docmd.RunSQL (ssql)

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

Coin.

[baracuda]

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

Bon alors pour le vba ça doit être :

Code :

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

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

[Coin]

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.

[baracuda]

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
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 !

[baracuda]

J'ai réussi !

Voici ce qu'il faut utiliser !

Code :

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

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