Bonjour,

J'ai besoin de faire une conversion de date dans un lot DTS lors de l'import d'un fichier texte

En effet ma destination en base est de type DATETIME et mon fichier texte comporte une date au format AAAAMMJJ.
Au moment de l'import ca "claque" motif, type incompatible blablabla.

Donc pas de soucis, je vais faire ma modif dans les propriétés de transformation activX prévu a cet effet.

Sauf que (et bha ouais sinon ca serai trop beau) mon joli script from the net a un peu de probleme de "compilation"

En faite je crois que c'est pas du VBScript mais du VB6 ou .net ou autre


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
31
32
33
 
'**********************************************************************
'  Script de transformation Visual Basic
'************************************************************************
 
'  Copie chaque colonne source dans la colonne de destination
Function Main()
	DTSDestination("DateCommande") = DateDBToPage(DTSSource("DATECOMMANDE"))
	Main = DTSTransformStat_OK
End Function
 
 
 ' Composition d'une date de base de donnée style AAAAMMJJ vers JJ/MM/AAAA
Function DateDBToPage(ByVal pDate) 
 
	 If pDate.Length = 8 Then
		 Return Mid(pDate, 7, 2) + "/" + Mid(pDate, 5, 2) + "/" + Mid(pDate, 1, 4)
 	Else
	 	Return ""
	End If
End Function 
 
 
 
Public Function HeureDBToPage(ByVal pHeure) 
' Composition d'une Heure de base de donnée style HHMM vers HH:MM
 
If pHeure.Length = 4 Then
		Return Mid(pHeure, 1, 2) + ":" + Mid(pHeure, 3, 2)	
	Else
		Return ""
	End If
End Function
Pourriez me confirmer que je me plante de langage (ou pas ) et si possible (oui je suis gourmande mais bon), me proposer un ptit script qui repondrai a mon besoin


D'avance merci