Discussion :

[djidanestribbal]

Bonjour,

Voila ma base :
- 1 table t_imprimante
- 1 formulaire d'ajout pour ajouter une imprimante

je voudrai faire une liste de tout les numéro de série contenu dans la table t_imprimante et la mettre dans un fichier .txt

voila mon code en l'état actuelle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim SQL, résultatSQL, test, fic_temp As String
 
    SQL = "SELECT SerialNumber" & vbCrLf
    SQL = "FROM t_serveur" & vbCrLf
    SQL = ";"
 
    fic_temp = "C:\temp.txt"
    Open fic_temp For Output As 1
        résultatSQL = DoCmd.RunSQL(SQL)
        Print #1, résultatSQL
    Close 1

Lors de l'execution du code, ça plante au niveau de la ligne "résultatSQL = DoCmd.RunSQL(SQL)" avec le message d'erreur suivant :
erreur de compilation, Fonction ou variable attendue

Quelqu'un a-t-il une idée ou une piste??

Merci

[Shoryu]

salut
juste pour info:

Code :

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

1
2
 
Dim SQL, résultatSQL, test, fic_temp As String

seul fic_temp est une chaine, si tu veux que les autres soient aussi considérées comme des chaines et non Variant faut rajouter le 'As String' aussi

ensuite

Code :

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

1
2
 
DoCmd.RunSQL

ne retourne pas les resultats de la requete, avec cette commande on n'execute que les mises à jour (update,delete, insert)

pour récuperer les resultats d'un 'select' on utilise un Recordset (regarde dans la faq ou cherche sur le forum pour plus d'info)

pour l'ecriture dans le fichier ca a l'air bon

edit :

Code :

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

1
2
3
4
 
 SQL = "SELECT SerialNumber" & vbCrLf
    SQL = "FROM t_serveur" & vbCrLf
    SQL = ";"

la variable SQL est egale a ";" vu que tu réecrases la valeur a chaque fois

fait plutot

Code :

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

1
2
 
sql = "SELECT SerialNumber FROM t_serveur;"

ou si tu veux vraiment passer a la ligne

Code :

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

1
2
3
 
sql = "SELECT SerialNumber " & _
"FROM t_serveur;"

[Tofalu]

La méthode docmd.transfertext ne serait elle pas plus simple ?

[Shoryu]

pour son probleme, carrement ^^, je n'y avais pas pensé sur le coup

[djidanestribbal]

oula oui merci, je suis trop fatigué moi aujourd'hui...

Ok donc je vais me renseigner pour le recordset. Sinon, au passage, si tu as un lien qui explique de manière simple parce que je suis admin réseau à la base même si je me démerde un peu en dev.

merci tofalu, je vais voir peut-être plus ta solution

Merci beaucoup à tous les deux.