Import csv - String remplacé par DbNull!

Version imprimable

22/10/2012, 13h42
spytm95

Import csv - String remplacé par DbNull!

Bonjour à toutes et à tous,

Alors voilà, j'ai un petit problème qui commence à me faire m'arracher les cheveux! Je vous explique:

J'ai un fichier csv contenant des commandes que je veux intégrer dans ma base sql serveur.

Le fichier à la structure suivante:
1;nom du client;adresse;cp;ville
2;code article;quantité
2;code article;quantité
1;nom du client;adresse;cp;ville
etc...

La première colonne désigne si il s'agit d'une ligne entête (1) ou d'une ligne détail (2).

Le problème est que lors de la lecture, vb ne retourne un DbNull pour le nom du client. En revanche, si je le remplace par un code article, plus de problème!

J'en conclu donc qu'il s'agit d'un problème de structure de la colonne, mais rien de sûr, et en plus, je n'arrive pas à forcer le tout en string pour éviter le problème.

Quelqu'un pourrait-il m'aider?

Merci d'avance :D
22/10/2012, 16h47
Vince

Il faudrait que tu poste ton code...

En effet, cela peut aider pas mal.. :)

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
31
32
33
34
35
36
37
38
39
40
41
42
43
 
connectionStringXLS = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                                     & "Data Source='" & chemin & "';" _
                                     & "Extended Properties='text;HDR=No;FMT=Delimited';"
 
' Créer l'objet pour la connexion au fichier
            Dim oledbConn As OleDbConnection = New OleDbConnection(connectionStringXLS)
 
            ' Ouvrir la connexion
            oledbConn.Open()
 
            Dim dt As DataTable = oledbConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
 
            ' Sélection du data dans la Sheet1 du fichier
            Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [" & dt.Rows(0).Item("TABLE_NAME") & "]", oledbConn)
 
            ' Création du OleDbDataAdapter
            Dim oleda As OleDbDataAdapter = New OleDbDataAdapter()
            oleda.SelectCommand = cmd
 
            ' Créer le dataset qu'on va lier au datagrid plus tard
            Dim ds As DataSet = New DataSet()
 
            ' Insérer l'information du fichier dans la dataset
            oleda.Fill(ds, "XLData")
 
            ' Lier les données au datagrid
            DataTable1 = ds.Tables(0)
 
            ' Fermeture de la connexion
            oledbConn.Close()
 
            Console.WriteLine("Document excel chargé:" & fichier)
 
            ' On parcours toutes les lignes du fichier
            Do While nbLig < DataTable1.Rows.Count
                Console.WriteLine("0: " & DataTable1.Rows(nbLig)(0))
                Console.WriteLine("1: " & DataTable1.Rows(nbLig)(1))
                Console.WriteLine("2: " & DataTable1.Rows(nbLig)(2))
 
                Console.WriteLine("3: " & DataTable1.Rows(nbLig)(3))
                Console.WriteLine("4: " & DataTable1.Rows(nbLig)(4))
          etc...

Je vous épargne le reste où je fais des inserts dans mes différentes tables.

Exemple de fichier csv:

Code:

1
2
3
4
5
6
7
8
 
1;COM0001;00001234;MAGASINS TEST;TEST PARIS;;;20121022;;TOTO JEAN PIERRE;5 RUE DU GENERAL LECLERC;BATIMENT 2;PARIS;75005;;06 07 08 09 10;00001234;00002748;TEST;
2;COM0001;00001234;00001001; 00001;;
2;COM0001;00001234;00001002; 00001;;
2;COM0001;00001234;00001003; 00001;;
2;COM0001;00001234;00001004; 00018;;
2;COM0001;00001234;00001005; 00005;;
2;COM0001;00001234;00001006; 00001;;

Au niveau du code, le fichier csv se charge bien dans ma datable, le soucis, comme je l'ai dit plus haut, c'est que si il s'agit d'une ligne d’entête (commençant par 1), il me retourne DbNull au lieu de "MAGASINS TESTS", idem pour "TEST PARIS". Par contre, si je remplace ces 2 chaines par "00001001" et "00001", il me retourne les valeurs sans broncher...

22/10/2012, 20h14
Vince

Pourquoi ne pas utiliser un StreamReader en lisant le fichier .csv ligne à ligne et découper les valeurs par séparateur et en fonction du numéro en première position de la ligne ?
StreamReader
Ces imports "automatiques" c'est toujours la galère...

Oui en effet c'est toujours la galère, mais bon on n'a pas toujours le choix!

Sinon merci pour ta solution, en effet je n'avais pas pensé au streamreader et j'étais parti tête baisser dans mon truc!:aie:

Donc, pour ceux qui auraient le même genre de problème, voici comment le tout fonctionne:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ' Chargement du csv dans le reader Dim sr1 As StreamReader = New StreamReader(fichier) Dim ligne As String ' On parcours toutes les lignes du fichier Do While sr1.EndOfStream = False ligne = sr1.ReadLine() Dim tab() As String = Split(ligne, ";") If tab(0) = "1" Then ' Code End If If tab(0) = "2" Then ' Code End If Loop ' Fermeture du reader sr1.Close()
Encore merci pour l'aide! :ccool:

23/10/2012, 15h10
Vince

Merci de cliquer sur le bouton résolu : http://www.developpez.net/forums/ima...ons/resolu.gif ;)