Bonjour,
J'espere que vous pourrez m'aider car personnellement je ne vois pas du tout d'où vient le problème.
Je récupère des données provenant d'un fichier CSV que j'insers par la suite dans une base de données Access.
Je récupère bien toutes mes données exceptées celles d'une colonne. Cette colonne se compose de données textes et numériques. Dès lors, je ne récupère que les données numériques.
Voici le code :
Merci d'avance pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strPathtoTextFile & ";" & _ "Extended Properties=""text;HDR=NO;FMT=Delimited""" objRecordSet.Open "SELECT * FROM [" & CommonDialog1.FileTitle & "]", _ objConnection, adOpenStatic, adLockOptimistic, adCmdText 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 = App.Path & "\TransferCsvToXml.mdb" 'Ouverture de la base de données cnx.Open Do Until objRecordSet.EOF chaine = objRecordSet.Fields.Item(3) 'Juste pour tester! Loop cnx.Close
Valérie
Partager