Discussion :

[Sebcaen]

Bonjour, j'espère que ma question n'a pas déjà été posée, sinon je m'en excuse d'avance.

Je souhaite importer des données d'un fichier txt vers une table. Rien de très compliqué, j'y arrive sans problèmes. Seulement je me sers d'un champ texte comme clef pour ma table. Et dans mon fichier texte ce champ est parfois vide.

Donc en gros j'aimerai récupérer (importer) toutes les lignes de mon fichier txt dont le champ "nom" n'est pas vide.

Je ne sais pas du tout à quel endroit placer cette contrainte, je dispose juste d'un Text File (source), d'une tâche de transformation des données et d'un accès odbc à ma base.

Merci de votre aide.

[rudib]

Bonjour,

Tu peux utiliser une transformation script ActiveX au lieu de tes transformation de copie de colonne. Dans le script, tu testes ta ligne pour déterminer si elle a un "nom".

Exemple rapide :

Code vb :

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

1
2
3
4
5
6
7
8
 
Function Main()
      if LTrim( DTSSource("nom") ) <> "" then
         DTSDestination("nom") = DTSSource("nom")
         '...
     end if
     Main = DTSTransformStat_OK
End Function

[Sebcaen]

Merci. Je vais essayer celà.

[Sebcaen]

Je suppose qu'il y a une déclaration préalable à faire, parce qu'il plante sur DTSource, y aurait il un lien vers DTS pour les nuls???

[rudib]

DTSSource correspond à ton recordset source. Il référence une collection de colonnes telles qu'elles sont nommées dans la transformation, c'est peut-être qqch comme DTSSource("Col001"). Quel est le message d'erreur ?

[Sebcaen]

Voici un exemple de ce que j'ai mis, mais il me donne une erreur 'type incompatible' à la ligne 1 (if trim...) je ne comprends pas pourquoi. J'ai essayé avec cstr aussi ca ne passe pas mieux.

Code :

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

1
2
3
4
FUNCTION Main()
      IF not isempty(DTSSource("Col013")) then
         DTSDestination("Nom_Groupe") = DTSSource("Col013")
         DTSDestination("isCarteVerte") = DTSSource("Col007")

[rudib]

Essaie

Code :

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

1
2
 
isempty(DTSSource("Col013").Value)