Discussion :

[Alex65351]

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.

[pc75]

Bonjour,

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

[Alex65351]

Bonjour,

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

Pour se connecter a la base de données?

[Alex65351]

Code :

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

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.

[ProgElecT]

Code :

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

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

[Alex65351]

ok merci

[ProgElecT]

ok merci

Si c'est resolu, il te faut utiliser le bouton

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

[pitchalov]

t'es allé visiter la FAQ?

Y a pleins d'informations pour t'aider, notamment là pour les connexions aux bdd.

[Alex65351]

j'ai lu la FAQ et rien trouver, en cherchant dans google j'ai trouvé quelque chose avec DSN_BASE

[pc75]

Re,

Regarde ADODB.Recordset

[Alex65351]

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 :

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

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

[pc75]

Re,

Une piste :

Code :

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

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

[Alex65351]

ok merci, je vais voir la chose, c'est plus compliqué que je croyais.

[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")

[Alex65351]

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

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

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

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

[ProgElecT]

Mais il y a que cette erreur qui me bloque

Quelle erreur, à quelle ligne ?

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 :

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

[Alex65351]

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

error EXpected end of Statement