Récup d'un nombre décimal sans le point
Résolu
val9000
Messages postés
2
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
30 août 2006
-
30 août 2006 à 10:35
val9000 Messages postés 2 Date d'inscription mercredi 30 août 2006 Statut Membre Dernière intervention 30 août 2006 - 30 août 2006 à 12:19
val9000 Messages postés 2 Date d'inscription mercredi 30 août 2006 Statut Membre Dernière intervention 30 août 2006 - 30 août 2006 à 12:19
A voir également:
- Récup d'un nombre décimal sans le point
- Decimal sql - Forum Visual Basic
- L'exception point d'arret un point d'arret a été atteint ✓ - Forum C
- Tableau decimal ✓ - Forum Java
- Sql decimal ✓ - Forum C# / .NET
- Point d'interrogation ✓ - Forum Java
3 réponses
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
48
30 août 2006 à 12:15
30 août 2006 à 12:15
salut,
en prenant compte de ce %age
Private Sub Process()
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) / 100 & ");"
cnx.Execute (TmpSqlInsertShareData)
objRecordSet.MoveNext
Loop
cnx.Close
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
++
PCPT [AFCK]
<hr size ="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
en prenant compte de ce %age
Private Sub Process()
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) / 100 & ");"
cnx.Execute (TmpSqlInsertShareData)
objRecordSet.MoveNext
Loop
cnx.Close
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
++
PCPT [AFCK]
<hr size ="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
30 août 2006 à 12:10
30 août 2006 à 12:10
Bonjour,
A tout hasard.
Replace(objRecordSet.Fields.Item(10),".",",")
jean-marc
A tout hasard.
Replace(objRecordSet.Fields.Item(10),".",",")
jean-marc
val9000
Messages postés
2
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
30 août 2006
30 août 2006 à 12:19
30 août 2006 à 12:19
Merci beaucoup avec la division par 100 ça marche impec.
Bien vu, je n'y avais pas penser.
Bien vu, je n'y avais pas penser.