Discussion :

[licharna]

Bonjour,
je cherche àfaire une transformation et une mise à jour de date.en fait
aprés avoir importé des fichiers excel dans une base access via un code vb script, je cherche à faire une transformation de la date du format 01-May-10 en 01/05/2010 et à mettre à jour la colonne date.

j'utilise un script qui affiche bien le resultat de la transformation en sorti, mais elle ne fait pas la mise à jour. voici le

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
Function MajTables()
RequeteSQLIns= "SELECT [datep] FROM Absence "
MyLog.WriteLine("Deb Requete => : "+RequeteSQLIns+"  "+cstr(Time))
RSIns.Open RequeteSQLIns,Connexion,adOpenForwardOnly,adLockReadOnly
Do While Not RSIns.EOF 
code1=trim(RSIns("datep").value )
date_annee=Mid(code1,8,2)
 
if (date_annee="10") then
date_annee="2010"
end if
date_mois=mid(code1,4,3)
REM wscript.echo " DATE mois "& date_annee
if (date_mois="May") then
date_mois="05"	
end if 
date_jour=mid(code1,1,2)
code2= date_jour & date_mois & date_annee
 
 
RequeteSQLIns = "UPDATE absence SET absence.datep ="&CStr(code2)
wscript.echo CStr(code2)
MyLog.WriteLine("-----------------------------------------------------")
MyLog.WriteLine("transformation de la date=> "+RequeteSQLIns)
 
RSIns.MoveNext
Loop 
RSIns.Close
 
end Function

quelqu'un peut m'aider?????? please

[licharna]

re salut!!!! personne ne peut rien pour moi????? please

[l_autodidacte]

re salut!!!! personne ne peut rien pour moi????? please

Je ne suis pas pro en BDD mais je te suggère de faire la transformation et la MAJ dans le fichier Excel puis l'importer.

[licharna]

ok!! merci d'avoir répondu, je commencé à désesperer
bah je vais essayer pour voir ce que ca fait!!!

[ProgElecT]

Si tu veux faire la transformation depuis la BD

Code :

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

1
2
3
4
5
6
date_annee=Mid(code1,8,2)
'A la place de
'if (date_annee="10") then
'date_annee="2010"
'end if
date_annee = date_annee + 2000 'devrait être bon

Code :

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

1
2
3
4
5
date_mois=mid(code1,4,3)
REM wscript.echo " DATE mois "& date_annee
if (date_mois="May") then
date_mois="05"	
end if

C'est un peu limité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Select Case date_mois
    Case "Jan": date_mois = "01"
    Case "Feb": date_mois = "02"
    Case "Mar": date_mois = "03"
    Case "Apr": date_mois = "04"
    Case "May": date_mois = "05"
    Case "Jun": date_mois = "06"
    Case "Jul": date_mois = "07"
    ' Case "Aug": date_mois = "08" .....
    '.......
End Select

Un doute ici

Code :

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

1
2
3
code2= date_jour & date_mois & date_annee
'pas plutôt comme ceci
code2= date_jour & "/" & date_mois & "/" & date_annee

et là

Code :

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

1
2
3
'RequeteSQLIns = "UPDATE absence SET absence.datep ="&CStr(code2)
'si le champs datep et de type Date
RequeteSQLIns = "UPDATE absence SET absence.datep =#" & code2 & "#"