[VBS-MySQL] ouvrir et fermer un recordset dans une boucle

Version imprimable

Bonjour j'essaye en vain de faire fonctionner cette requete mais sans succés pourquoi cela ?
Merci bcp

Code:

1
2
3
4
5
6
7
8
9
10
11
cnx.ConnectionString="DSN=monodbc"
        datefichier="2006-10-10"
        heurefichier="10:10:10"
        nomfichier="test"
 
        cnx.Open
 
        rst1.open "INSERT INTO fax (nom_fax, date_fax, heure_fax, ligne_fax, commentaire_fax, type_fax ) VALUES (" & nomfichier &","& datefichier &","& heurefichier &","& ligne &","& commentaire &","& typefax &")",cnx
 
 rst1.close
 cnx.close

25/04/2006, 19h15
SfJ5Rpw8

manquerai pas des quotes : ' autour des valeurs des divers champs ?

Merci de ton aide la requete fonctionne bien :D

Je fais un boucle qui insere le nom des fichier dans une table mysql
J'ai un pti prb dans la boucle pourquoi mon recordset me dit qu'il est fermé alors qu'a la fin fin de l'insertion je le ferme et au début je l'ouvre.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 if fs.FileExists(rep2&"\"&fTemp.name) then cnx.ConnectionString="DSN=monodbc" cnx.Open rst1.open "INSERT INTO fax (nom_fax, date_fax, heure_fax, ligne_fax, commentaire_fax, type_fax ) VALUES ('" & nomfichier & "','" & datefichier & "','" & heurefichier & "','" & ligne &"','"& commentaire &"','"& typefax & "')",cnx rst1.close cnx.close if (i=5) then Set fs = nothing wscript.quit end if i = i+1 end if
Aprés la première insertion j'ai une erreur ki me di que l'objet et fermé
mais pourtant je le ferme et je l'ouvre.

Cordialement,
Corben

26/04/2006, 11h23
SfJ5Rpw8

Tu est dans une boucle ? d'ou sort ton i ?

oui je suis dans une boucle je n'est pas mis tt le code dsl .

Le voila

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
27
28
 
For Each fTemp in fFichiers
Set Ftxt = fs.GetFile(rep1&"\"&fTemp.name)   'Fichier origine
Ftxt.move(rep2&"\"&fTemp.name) 
'emplacement destination
'Dplacement du fichier
nomfichier = fTemp.name
datefichier = fTemp.DateCreated
heurefichier = Hour(datefichier) & ":" & Minute(datefichier) & ":" & second(datefichier)
datefichier = Year(datefichier) & "-" & Month(datefichier) & "-" & Day(datefichier)
 
'msgbox(datefichier &" "& nomfichier&" "& heurefichier)
if fs.FileExists(rep2&"\"&fTemp.name) then
        cnx.ConnectionString="DSN=monodbc"
 cnx.Open
        rst1.open "INSERT INTO fax (nom_fax, date_fax, heure_fax, 
ligne_fax, commentaire_fax, type_fax ) VALUES ('"  & nomfichier & "','" & 
datefichier & "','" & heurefichier & "','" & ligne &"','"& commentaire &"','"& 
typefax & "')",cnx
 rst1.close
 cnx.close
        if (i=5) then
        Set fs = nothing
 wscript.quit
 end if
 i = i+1
end if
Next

26/04/2006, 12h14
Corben

le I sert à sortir de la boucle pour eviter de traiter trop de fichiers.
Le script va s'exécuter ttes les minutes.
Voila merci bcp pr ton aide
28/04/2006, 09h14
SfJ5Rpw8

pourquoi ne met tu pas l'ouverture/Fermeture de ta base de donnée... en dehors de la boucle ..?