Champs CSV non parsés avec OLEDB

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:

---

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:

---

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 :
Pièce jointe 608989


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

Merci d'avance,

Sam

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.

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:

---

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:

---

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

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:

---

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

---

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