exporter le résultat d'une requête vers un fichier access

Bonjour à tous ,

Voilà mon problème, j'effectue une requête SQL sur une BD et je souhaiterai exporter le résultat de la requête (environ 1000 lignes) dans une nouvelle base de données (1 seule table avec 4 champs)

Merci d'avance pour votre aide très précieuse !


Jujunio

Ca marche pas si tu fais:
- tu lances ta nouvelle base tu fais "fichier/données externes/importer"
- tu sélectionnes ta requête et ensuite importer.

_______________________
4L!@$ >>>>

Je préfère que ça soit automatique dans une fonction VB. Tu n'as pas une idée ??

Jujunio

Bhà ce que tu peux faire c'est un truc de ce genre

[code]
open "toto.txt" for output as #1 'ouverture du fichier
do until rs.eof 'Boucle jusqu'à la fin du recordset
print #1, rs.fields("LLLLLL") 'Inscription des infos contenue dans la colonne LLLLLL
loop
close #1 'Fermeture du fichier

Chris...
Web : Firstruner - eMail : Support

Salut CanisLupus


Merci pour ton aide.
Je t'ai très bien compris, je vais faire l'essai et je te tiens au courant

Merci
Jujunio

Salut, j'ai fais l'essai mais j'ai deux erreurs au moment de la requête :

1°)La méthode Refresh échoue mais le résultat est bien récupéré dans la nouvelle table

2°)Quand je fais la requête à nouveau, un message m'indique que la table existe déjà !

3°)Si je change le nom de ma table de récéption, un message m'indique que "Cette opération n'est pas autorisé si l'objet est fermé mais la table est quand même récupérée !

Alors je suis un peu perdu !!!

Voila ma requête :
-----------------------
Adodc2.RecordSource = "SELECT Cli.Cli, Cli.Int_Loc, tie.tel, tie.gsm INTO maTable2 In 'c:\temp\bd2.mdb' From Tie inner join Cli on tie.tie=cli.tie WHERE Tie.Tie=Cli.Tie And Tie.Gsm Is Not Null And Cli.Ste='T'"

Call Adodc2.Refresh

-----------------------




Jujunio

Ok, je ne savais pas que tu utilisais un DataControl. Personnellement je n'en utilise pas. Sinon pour tes 3 points :

1°) Cette requete ne remonte rien ni dans un recordset ni dans un datacontrol, donc refresh ne fonctionne pas. La requete que je t'ai donné ne travaille que dans la base, comme "delete from ..." par exemple.

2°) Une requete select .... into ... crée une table donc si cette table existe, il y a erreur. Dans ce cas, il faut détruire la table de réception avant. Voilà ce que j'utilise en DAO :

Dim db As Database Dim tbl As TableDef ' Ouverture de la base de réception Set db = OpenDatabase("c:\temp\bd2.mdb") ' Recherche de la table de réception For Each tbl In db.TableDefs ' si elle existe, on la détruit If LCase(tbl.Name) = "table2" Then db.TableDefs.Delete tbl.Name Exit For End If Next ' ouverture de la base de départ Set db = OpenDatabase("c:\temp\bd1.mdb") ' exécution de la requete de transfert db.Execute "SELECT * INTO table2 IN 'c:\temp\bd2.mdb' From table1"

3°) Si tu supprimes la table avant, tu n'auras plus ce message.

Maintenant, est-ce que tout ça peut être utilisé avec un DataControl ? je ne sais pas. Faut tester.

J'espère que j'ai pu t'être utile.

Bonne prog.

Cordialement, CanisLupus

Salut finalement j'ai utilisé le modèle objet ADODB.

Dim cnn As New ADODB.Connection ' Connexion à la base de donnée cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mes Documents\MyDataBase.mdb" ' Suppression de la table "Table1" cnn.Execute "DROP TABLE Table1" cnn.Close Set cnn = Nothing

Puis j'ouvre ma base de départ et j'effectue ma requête ! Là ça fonctionne très bien.

ps : comment je peux tester si la table existe ounon dans la base ?

Merci.

Jujunio

En ADO, j'ai testé ça :

'Référence : Microsoft ADO Ext. 2.8 for DDL and Security
Dim cnx As New ADODB.Connection
Dim mycat As New ADOX.Catalog
Dim tbl As New ADOX.Table

cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = "C:\temp\bd1.mdb"
cnx.Open

mycat.ActiveConnection = cnx

' Recherche si la table existe
For Each tbl In mycat.Tables
If LCase(tbl.Name) = "table1" Then
mycat.Tables.Delete "table1"
Exit For
End If
Next

Bonne prog

Cordialement, CanisLupus