Discussion :

[valie]

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 :

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

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

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

Code :

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

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 :

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

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

[Phifi]

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 :

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

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

[valie]

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

[Phifi]

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 ?

[SfJ5Rpw8]

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

[valie]

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

Code :

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

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

[valie]

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

[SfJ5Rpw8]

on peu voir le code relatif à
objConnection

[valie]

Voici le code :

Code :

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

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 :

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

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

[SfJ5Rpw8]

essai HDR=NO dans chaine de connexion

[valie]

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