transformation de date et mise àjour d'une table access

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:

---

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

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

Citation:

---

Envoyé par licharna

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.

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

Si tu veux faire la transformation depuis la BD

Code:

---

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:

---

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:

---

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:

---

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:

---

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 & "#"

---