Discussion :

[Sam Placi]

Bonjour,

Je tente de lire un fichier CSV avec OLEDB.
La connexion se fait et la requête s'éxécute.
Le problème est qu'elle retourne les lignes du fichier comme s'il n'y avait qu'une seule colonne de données, sans tenir compte du séparateur.

Voici le fichier de test :

Inicial;Letras;Num_1;Num_2;
00;A;1;6;
01;B;1;5;
02;C;1;6;
03;A;2;6;
04;A;3;4;
05;B;2;5;

Voici la chaine de connexion :

Code :

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

Dim ChaineCon As string = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & CurDir() & "\;" & "Extended  Properties=""text;HDR=Yes;FMT=Delimited()"""

Il existe de nombreuses variantes de cette chaine de connexion mais elles ne diffèrent que par quelques nuances de syntaxe et j'en ai tester plusieurs sans amélioration du résultat.


Voici la requête et l'affectation du résultat à un DGV :

Code :

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

1
2
3
4
5
6
7
8
 
        Dim MAdap As OleDbDataAdapter = New OleDbDataAdapter(ChaineCon, Conex)
        MAdap.Fill(DT)
        MAdap.Dispose()
 
        DGV.DataSource = Nothing
        DGV.Rows.Clear()
        DGV.DataSource = DT

Et le résultat :



Si quelqu'un a une idée ..., elle sera bien venue.

Merci d'avance,

Sam

[sevyc64]

Il faut que tu précise que le délimiter est le ;

Le format csv est d'origine américaine, le délimiteur par défaut est la virgule. C'est en Europe, en France surtout que le ; est utilisé en délimiteur, car la virgule peut apparaitre dans les nombres décimaux.

[Sam Placi]

Merci pour cette précision.
Vite vérifié, je constate que c'est bien le ; qui est désigné comme séparateur de listes dans les paramètres régionaux du système.
J'ai utilisé aussi une chaîne de connexion où le ; est précisé :

Code :

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

Dim ChaineCon As string = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & CurDir() & "\;" & "Extended  Properties=""text;HDR=Yes;FMT=Delimited(;)"""

... mais cela ne change rien.

A noter au passage que Excel ouvre parfaitement ce fichier DonneesTmp.CSV.

Dans mon premier message, j'ai oublié d'inclure le code de la requête; je profite donc de cette réponse pour donner le code complet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
       Dim ChaineCon As string = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & CurDir() & "\;" & "Extended  Properties=""text;HDR=Yes;FMT=Delimited()"""
 
        Conex.ConnectionString = ChaineCon
 
        Dim ReqSQL As String =  "Select * FROM DonneesTmp.csv"
 
        Dim MAdap As OleDbDataAdapter = New OleDbDataAdapter(ReqSQL, Conex)
        MAdap.Fill(DT)
        MAdap.Dispose()
 
        DGV.DataSource = Nothing
        DGV.Rows.Clear()
        DGV.DataSource = DT

Bonne soirée,

Sam

[Thumb down]

bonjour,
par défaut le délimiteur est la virgule et pas le point virgule!

il te faudra définir un fichier schema.ini dans le répertoire du csv si tu veux pas bricoler la base de registre!
https://docs.microsoft.com/fr-fr/sql...l-server-ver15

Code :

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

1
2
3
4
5
6
7
[Fichier.csv]
Format=Delimited(;)
 Col1 = CLEGEO Text 
 col2 = CLEGEO_CAR3 Text 
 Col3 = ID_IMMEUBLE Text 
 Col4 = CLEGEO_DANS_RA Text 
 Col5 = ETC Text

[Sam Placi]

Merci Thumb down.

J'avais déjà approché cette solution mais borné que je suis, je n'ai pas voulu admettre que OleDb puisse ne pas prendre en compte les paramètres régionaux du système.
Ton message m'a convaincu et j'ai suivi ton conseil : c'est parfait !

Encore merci et bon dimanche.

Sam