Discussion :

[valie]

Bonjour,

Je récupére les données venant d'un fichier csv et j'ai un problème en ce qui concerne la récupération de chiffres avec décimal séparés par un point. Exemple : 95.55
Les chiffres que je récupére ne contiennent plus les points. Exemple : 9555.

Voici le code :

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
22
23
24
 
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 = "C:\DB1.mdb"
'Ouverture de la base de données
cnx.Open
 
Do Until objRecordSet.EOF
      TmpSqlInsertShareData = "INSERT INTO SHARE_DATA (ENTITY_ID,  RELATED_ID, PERCENTAGE) VALUES (" & objRecordSet.Fields.Item(8) & ", " & objRecordSet.Fields.Item(9) & ", " & objRecordSet.Fields.Item(10) & ");"
      cnx.Execute (TmpSqlInsertShareData)
      objRecordSet.MoveNext
Loop
 
cnx.Close

Cette donnée est PERCENTAGE en base de données et la valeur est contenue dans objRecordSet.Fields.Item(10).

Merci d'avance pour votre aide.

[Asdorve]

salut,
j'ai rencontré un problème similaire. Je récupérais des infos d'une base et je perdais la virgule. J'ai simplement changé de driver ODBC et ça a marché.

Je ne sais pas si tu peux faire quelque chose de similaire

[valie]

Je ne peux malheureusement pas changer le driver ODBC.

[Asdorve]

pourquoi?

[valie]

Je suis obligée de récupérer les données provenant d'un fichier CSV et de les envoyer dans une base de données Access.

[Asdorve]

c'est étonnant quand même ton problème.