[VB6] Problème récupération de données

Bonjour,

J'espére que vous pourrez m'aider car je commence à m'arracher les cheveux.

J'exécute une requête dans laquelle je sélectionne les valeurs d'un fichier .csv :

Code:

---

1 2 3

objRecordSet.Open "SELECT * FROM " & CommonDialog1.FileTitle & "", _ objConnection, adOpenStatic, adLockOptimistic, adCmdText

---

Ensuite, j'établis la connection à la base de données :

Code:

---

1 2 3 4 5 6 7 8

Set cnx = New ADODB.Connection 'Définition du pilote de connexion cnx.Provider = "Microsoft.Jet.OLEDB.4.0" 'Définition de la chaîne de connexion cnx.ConnectionString = "C:\DB1.mdb" 'Ouverture de la base de données cnx.Open

---

Et enfin, j'insére les valeurs obtenues dans une table Access :

Code:

---

1 2 3 4 5 6 7

Do Until objRecordSet.EOF TmpSqlInsertCorporateData = "INSERT INTO CORPORATE_DATA (ENTITY_ID, CORPORATE_NAME) VALUES (" & objRecordSet.Fields.Item(0) & ", '" & objRecordSet.Fields.Item(1) & "');" cnx.Execute (TmpSqlInsertCorporateData) objRecordSet.MoveNext Loop cnx.Close

---

Les données sont bien récupérées et bien insérées dans ma table exceptée les données du premier record!

Pouvez-vous m'aider? Merci d'avance

Citation:

---

Les données sont bien récupérées et bien insérées dans ma table exceptée les données du premier record

---

Et cette ligne est bien présente dans le recordset ? (c'est la première ligne du .csv ?)

Vérifie ici en mode debug si le premier enregistrement du recordset est bien égal à ta première ligne du .csv :

Code:

---

1 2 3 4 5 6 7 8

objRecordset.MoveFirst Stop Do Until objRecordSet.EOF TmpSqlInsertCorporateData = "INSERT INTO CORPORATE_DATA (ENTITY_ID, CORPORATE_NAME) VALUES (" & objRecordSet.Fields.Item(0) & ", '" & objRecordSet.Fields.Item(1) & "');" cnx.Execute (TmpSqlInsertCorporateData) objRecordSet.MoveNext Loop

---

Le premier record est bien dans le fichier csv mais n'est apparemment pas dans le recordSet.

Tu as peut-être un problème de formatage du .csv : ouvres-le dans le bloc-note et dis nous si tu constates quelque chose de particulier. Ce .csv est issu d'un export Excel ?

ton fichier cvs n'as pas d'entête de colonne.?

Voici les données qui figurent dans le bloc note :

Code:

---

1 2 3 4 5 6 7 8 9

15;ASTRIDIM;BE;XX;N;N;N;31/dec;0;6;100.0 4;VENDOME LAND;BE;XX;N;N;N;31/dec;0;16;100.0 19;STILLA;NL;XX;N;N;N;31/dec;0;18;99.99 8;CASIO GIE;BE;XX;N;N;N;31/dec;0;19;80.01 11;MOSELLA;LU;XX;N;N;N;31/dec;;; 16;FB MANANGEMENT;LU;XX;N;N;N;31/dec;;; 18;CGER INVEST;LU;XX;N;N;N;31/dec;;; 3;MADISON LEASE;BE;XX;N;N;N;31/dec;;;

---

En mode debug, je vois que le recordset commence à la deuxième ligne et omet donc la ligne suivante : 15;ASTRIDIM;BE;XX;N;N;N;31/dec;0;6;100.0

Non, pas d'entête. Je récupére les données dès la première ligne autrement dit colonne A, ligne 1.

on peu voir le code relatif à
objConnection

Voici le code :

Code:

---

1 2 3 4

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strPathtoTextFile & ";" & _ "Extended Properties=""text;HDR=YES;FMT=Delimited"""

---

En ce qui concerne le chemin (strPathtoTextFile ), il est récupéré de la sorte :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

tabFileName() = Split(CommonDialog1.FileName, "\")   For i = 0 To 30 If tabFileName(i) Like "*.csv*" Then Exit For Else If i = 0 Then strPathtoTextFile = strPathtoTextFile & tabFileName(i) Else strPathtoTextFile = strPathtoTextFile & "\" & tabFileName(i) End If End If Next i

---

essai HDR=NO dans chaine de connexion

Super !!!
C'était bien ça. Un très grand merci.