Discussion :

[Djiins]

Bonjour a tous et toutes,

J'espère ne pas me tromper de forum, sinon je remerci d'avance le Webmaster de déplacer mon post dans le bon forum.

Voila mon problème.

Je ne suis pas développeur, mais j'ai un petit dev à faire.

Je dois extraire des données d'une base Mysql et créer un fichier CSV (avec séparateur ";". le problème c'est que je ne maitrise pas du tout VBS et que je ne vois pas bien comment je peut faire

Je ne vous demande pas de me faire ce DEV ce serais gonflé de ma part et pas très sympa mais pourriez vous m'orienter dans la bon sens voir meme me donner des exemples.

Normalement je prend le temps de chercher quand je ne sais pas faire quelque chose mais la je suis trop short en temps et je dois livrer ce script rapidement. je vais continuer mes investigations de mon coté, et je vous remercie par avance de l'aide que vous m'apporterez.

Djiins

[ced600]

Si tu ne connais vraiment pas le VBS je te conseil de commencer par regarder la FAQ : http://vb.developpez.com/faqvbs/

Pour ce qui est de faire ton script, je te conseils de le réfléchir à comment tu ferais à la main, puis de reproduire cela en script.

Je ne fais pas dialoguer mes scripts avec des base de données donc je ne peux pas t'aiguiller la dessus.

Pour ce qui est de créer un fichier, l'objet FileSystemObject est ce qu'il te faut. Ses méthodes CreateTexteFile ou OpenTexteFile te permettront de créer un nouveau fichier ou d'ouvrir un fichier existant. Pour OpentTextFile attention à lui passé les bon paramètre pour que le fichier s'ouvre en lecture/ecriture/ajout.
Ces méthodes te renverront un objet File qui te fournira les méthodes nécessaire à l'ecriture dans le fichier puis sa fermeture.
Tu trouveras dans la FAQ des exemples pour faire ce que je viens de dire.

[SfJ5Rpw8]

Voir peu-être :

VBS supprimer 1ere ligne fichier txt ou encore supprimer des mots précis d'un txt

[Djiins]

Et bien ca n'avance pas j'ai vraiment besoin d'aide merci d'avance

[ced600]

Si tu postes le code que tu as fait je pourrais t'aider.

[Djiins]

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Bddname		= "localhost"
Bddpseudo	= "root"
BddPass	= "pass"
Bddnom		= "base"
 
StatPath	= "D:\\dossier perso\\"
 
Function GetSql( )
 
	hier = DateAdd("d", -1, Now)
 
 
	anneeHier		= 	DatePart("yyyy",hier)
	anneeAujo		= 	DatePart("yyyy",Now)
 
 
	moisHier	=	DatePart("m",hier)
	if Len(moisHier) < 2 then
			moisHier = "0" & moisHier
	end if 
	moisAujo		=	DatePart("m",Now)
	if Len(moisAujo) < 2 then
			moisAujo = "0" & moisAujo
	end if 
 
	jourHier	=	DatePart("d",hier)
	if Len(jourHier) < 2 then
			jourHier = "0" & jourHier
	end if 
	jourAujo	=	DatePart("d",Now)
	if Len(jourAujo) < 2 then
			jourAujo = "0" & jourAujo
	End If 
 
 
	MinDate 	= 	anneeHier & "-" & moisHier & "-" & jourHier
	MaxDate		= 	anneeAujo & "-" & moisAujo & "-" & jourAujo
 
 
	Sql		=	"SELECT * FROM mabase  WHERE  time_in > '" & MinDate & "' and time_in < '" & MaxDate & "' "
	Sql		=	Sql & "into outfile '" & StatPath & MaxDate & "-test.csv'"
 
	GetSql	=	Sql
 
End Function

[ced600]

1. Il est préférable de déclarer ses variables, par exemple : Dim BddName
2. En VBS le caractère d'échappement est " et non \ donc il n'y a pas besoin de doubler les \ dans les chemins de fichiers et de dossier.

Le reste me parait correcte, donc si le problème ne vient pas de là, pourrais tu me dire ce que cela fait ? Et si cela génére une erreur, pourrais tu me dire quelle erreur c'est ?

[Djiins]

En fait j'avais une erreur sur la fin du code mais c'etait du au fait que mysql n'etait pas déclarer dans le path de mon ordi c'est réglé pour les doubles \ ca c'est aussi du a mysql si je ne les mets pas ca ne fonctionne pas. merci encore de ton aide