[VB6] Récupération d'un nombre décimal sans le point
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:
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.
