Script vbs de comparaison

Version imprimable

24/02/2009, 13h37
Alex65351

Script vbs de comparaison

Bonjour a tous.

Je cherche a faire un script .vbs qui compare dans une base de donnée (située dans le C:/Contrats.mdb)la date fin a la date d'aujourd'hui. Dès que la différence entre la date aujourd'hui et la date fin = 90 jours envois d'un mail a toto@XXYY.com.

Le script pour l'envoi du mail semble fonctionnait.

Je ne suis pas un pro de la programmation.
Merci pour vos conseil.

Alexandre.
24/02/2009, 13h59
pc75

Bonjour,

Pour la différence entre deux dates, c'est la fonction DateDiff()
24/02/2009, 14h06
Alex65351

Citation:

Envoyé par pc75

Bonjour,

Pour la différence entre deux dates, c'est la fonction DateDiff()

Pour se connecter a la base de données?
25/02/2009, 10h02
Alex65351
Code:

1 2 3 4 5 6 7 dim date_fin dim d date_fin = "2/29/2009" DateDiff(d,Date(),date_fin) if d<=90 then msgbox"il reste" end if
J'ai fais ce script mais il ne fonctionne pas, je n'arrive pas à trouver le problème.

Comment je peux faire pour me connecter a la base de données, pour aller récupérer la date_fin?
Merci.

Code:

1
2
3
4
5
6
7
Dim date_fin
Dim Differance
date_fin = "30/03/2009"
Differance = DateDiff("d", Date, date_fin)
If Differance <= 90 Then
MsgBox "il reste " & Differance & " jour(s)"
End If

date_fin = "2/29/2009", ;) en 2009, il n'y a que 28 jours en février

25/02/2009, 14h42
Alex65351

ok merci
25/02/2009, 19h03
ProgElecT

Citation:

Envoyé par Alex65351

ok merci

Si c'est resolu, il te faut utiliser le bouton :resolu:
26/02/2009, 10h10
Alex65351

résolue pas totalement car j'essaie de me connecter a la base de donnée, date_fin est une valeur récupérée dans cette base de donnée dans le c:\ et à comparer avec la date d'aujourd'hui.
Je suis noob en développement.
26/02/2009, 10h16
pitchalov

t'es allé visiter la FAQ?

Y a pleins d'informations pour t'aider, notamment là pour les connexions aux bdd.
26/02/2009, 12h32
Alex65351

j'ai lu la FAQ et rien trouver, en cherchant dans google j'ai trouvé quelque chose avec DSN_BASE
26/02/2009, 12h46
pc75

Re,

Regarde ADODB.Recordset

voila le script, j'ai pris la fonction 'chemin' (d'après ce que je comprend elle cherche le chemin de la sur un autre script, dans le where après la connexion a la BDD je sais pas quoi mettre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function chemin(a)
test=Split(a,"\")
For i=LBound(test) To UBound(test)-1
If i=0 Then
chemin=chemin & test(I)
Else
chemin=chemin & "\" & test(I)
End if
Next
chemin=chemin & "\"
End Function
Function ajuste(text,caractere1,caractere2)
tt=Split(text,caractere1)
For i=LBound(tt) To UBound(tt)
If i<>0 Then
out=out & caractere2
End if
out=out & UCase(Left(tt(i),1)) & lcase(Right(tt(i),Len(tt(i))-1))
Next
ajuste=out
End Function

La suite

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
'----------
'connexion
DSN_BASE= "DBQ=" & chemin(wscript.ScriptFullName) & "base de donnée.mdb" & ";driver={Microsoft Access Driver (*.mdb)};driverId=25"
Set CONN = createobject("ADODB.Connection")
CONN.open DSN_BASE
Set RS=CreateObject("ADODB.Recordset")
SQL="select * from liste where "
Differance = DateDiff("d", Date, date_fin)
If Differance = 90 Then
'-------------
'envoi du mail
Set MAIL.Configuration = CON
    MAIL.From = "nana@totosarl.com"
    MAIL.To = "titi@totosarl.com"
    'MAIL.CC = ""
    MAIL.Subject = "Testing CDO"
    MAIL.AddAttachment "d:\test.txt"
    MAIL.TextBody = "Dans 90 jours le contrat s'expirera"
    'MAIL.HTMLBody = "<p>This is the sample body for the message</p>"
    MAIL.Send
End If
 
Rs.open Sql, conn
 
    Set MAIL = Nothing
    Set CON = Nothing

Re,

Une piste :

Code:

1
2
3
4
5
 
DSN_BASE= "DBQ=" & chemin(wscript.ScriptFullName) & "base de donnée.mdb" & ";driver={Microsoft Access Driver (*.mdb)};driverId=25"
Set rs = CreateObject("ADODB.recordset")
SQL="select * from liste where DateDiff("d", Date, date_fin) >= 90 "
rs.open SQL, DSN_BASE, 1, 3

Et pour l'envoi d'un mail regarde CDO

27/02/2009, 11h03
Alex65351

ok merci, je vais voir la chose, c'est plus compliqué que je croyais.:oops:
27/02/2009, 11h35
Alex65351

ou sinon je pensais faire une requête
SELECT *
FROM liste
WHERE DateDiff("d", now(), date_fin) = 90;

et la lancer de manière automatisée, je pense que ca serait plus simple, non??

la il trouve un erreur ici caractère 42
Set rs = CreateObject("ADODB.recordset")

bonjour, j'ai réussi a faire fonctionné l'envoi du mail:D
Mais il y a que cette erreur qui me bloque, vous auriez pas une idée?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function chemin(a)
test=Split(a,"\")
For i=LBound(test) To UBound(test)-1
If i=0 Then
chemin=chemin & test(I)
Else
chemin=chemin & "\" & test(I)
End if
Next
chemin=chemin & "\"
End Function
Function ajuste(text,caractere1,caractere2)
tt=Split(text,caractere1)
For i=LBound(tt) To UBound(tt)
If i<>0 Then
out=out & caractere2
End if
out=out & UCase(Left(tt(i),1)) & lcase(Right(tt(i),Len(tt(i))-1))
Next
ajuste=out
End Function

'---------

Code:

1
2
3
4
5
6
7
'condition
DSN_BASE= "DBQ=" & chemin(wscript.ScriptFullName) & "base de donnée.mdb" & 
 
";driver={Microsoft Access Driver (*.mdb)};driverId=25"
Set rs = CreateObject("ADODB.recordset")
SQL="SELECT * FROM liste WHERE DateDiff("d", now(), date_fin) >= 90; "
rs.open SQL, DSN_BASE, 1, 3

Citation:

Mais il y a que cette erreur qui me bloque

Quelle erreur, à quelle ligne ? 8O

Si c'est l'ouverture conditionnelle de ta BD et/ou l'ouverture de ta table, regardes ce code et essais d'adapter, chez moi, sur une base qui me sert a faire des essais pour repondre au questions posées sur ce forum, sa fonctionne ;)
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 29 30 dim ConnDataBase dim TablES1 dim CheminNomDelabase dim NomDeLaTable dim SQL dim DateMaxFin 'pour comparer avec Champ4DateTime dim T '***** à adapter *************************************** CheminNomDelabase = "C:\PersoFrancis\BDpourEssais.mdb" NomDeLaTable = "Principal" '***** fini à adapter ********************************** Set ConnDataBase = createobject("ADODB.Connection") SQL="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & CheminNomDelabase & ";" ConnDataBase.open SQL DateMaxFin = now() + 90 Set TablES1=CreateObject("ADODB.Recordset") SQL="select * from " & NomDeLaTable & " where Champ4DateTime >= #" & DateMaxFin & "#" TablES1.open SQL, ConnDataBase, 3, 2 'pour debug, enumeration des enregistrements for t = 1 to TablES1.RecordCount msgbox TablES1.fields("Champ4DateTime") TablES1.MoveNext next TablES1.Close ConnDataBase.Close
Bien sûr il faut adapter, ce code renvoi x nombre d'enregistrement en comparent le champ Champ4DateTime avec la variable DateMaxFin

27/02/2009, 16h35
Alex65351

ok merci je vais voir ca, il me sortait une erreur a ligne 26 caractère 42

error EXpected end of Statement