Discussion :

[Corben]

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

Code :

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

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

[SfJ5Rpw8]

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

[Corben]

Merci de ton aide la requete fonctionne bien

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 :

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

[SfJ5Rpw8]

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

[Corben]

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

Le voila

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

[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

[SfJ5Rpw8]

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