1. #1
    Membre régulier
    Homme Profil pro
    Retraité de l' industrie
    Inscrit en
    mars 2010
    Messages
    110
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Marne (Champagne Ardenne)

    Informations professionnelles :
    Activité : Retraité de l' industrie
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2010
    Messages : 110
    Points : 74
    Points
    74

    Par défaut Wrong data type: java.lang.NumberFormatException: For input string

    Bonsoir,

    Encore des soucis avec ma base de données. J' en suis au stade de vouloir sauvegarder la montant de la ligne dans la table "T_DvsDtl".
    Pour se faire, je suis en train de développer une macro dans le module Bdd qui se nomme MntLgn.
    Pour se faire et afin de simplifier la démarche, j' ai rentré des critère numériques dans les conditions Whère.
    Chaque fois que je teste la macro, je bute sur la dernière partie de la macro à savoir, Insertion du résultat. Le système me renvoie le message cité dans l' intitulé.
    Voici donc le code incriminé:
    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
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    	Sub MntLgn()
     
    		Dim Cnx as Object, Stmt as Object, RslVlm as Object,RslTrf as Object, RslCff as Object
    		Dim SqlVlm as string, SqlTrf as string, SqlCff as string, SqlInt as string, Rqt as object
    		Dim VlmBrt as Double, Trf as double, Cff as double, SsTtl as Double
     
    		Cnx = ThisDatabasedocument.CurrentController.ActiveConnection
    		Stmt=Cnx.createStatement()
    		'---Calcul du volume brut---
    			SqlVlm = "SELECT (LngCmp * LrgCmp * PsrCmp * Qts) as Vlm from T_DvsDtl"&_
    					 " where Cf_Dvs = 0 and Cf_Prd = 0 and Cf_PrdNmc = 0"
    			RslVlm =  Stmt.executeQuery(SqlVlm)
    			RslVlm.next
    			VlmBrt = RslVlm.getColumns().getByName("Vlm").getString()
    		'---Tarif article---
    			SqlTrf = "SELECT T_RtcTrf.RtcTrf, T_DvsDtl.Cf_Dvs, T_DvsDtl.Cf_Prd,"&_
    					 " T_DvsDtl.Cf_PrdNmc FROM T_DvsDtl, T_RtcTrf WHERE T_DvsDtl.Cf_RtcTrf ="&_
    					 "T_RtcTrf.Cf_RtcTrf AND T_DvsDtl.Cf_Dvs = 0 AND T_DvsDtl.Cf_Prd = 0"&_
    					 " AND T_DvsDtl.Cf_PrdNmc = 0"
    			RslTrf =  Stmt.executeQuery(SqlTrf)
    			RslTrf.next
    			Trf = RslTrf.getColumns().getByName("RtcTrf").getString()
    		'---Coefficient de débit---
    			SqlCff = "SELECT T_MtrCff.VlrCff, T_DvsDtl.Cf_Dvs, T_DvsDtl.Cf_Prd,"&_
    					 " T_DvsDtl.Cf_PrdNmc FROM T_MtrCff, T_DvsDtl WHERE T_MtrCff.Cf_MtrCff ="&_
    					 "T_DvsDtl.Cf_MtrCff AND T_DvsDtl.Cf_Dvs = 0 AND T_DvsDtl.Cf_Prd = 0"&_
    					 " AND T_DvsDtl.Cf_PrdNmc = 0"
    			RslCff =  Stmt.executeQuery(SqlCff)
    			RslCff.next
    			Cff = RslCff.getColumns().getByName("VlrCff").getString()
    		'---Calcul Final---
    		'Msgbox VlmBrt &" - "& Trf &" -"&Cff
    		SsTtl = (VlmBrt * Trf * Cff)/1000000000
    		'---Insertion du résultat----
    		SqlInt = "INSERT INTO ""T_DvsDtl""(""MntLgn"") Values('"& SsTtl &"')"&_
    				 " WHERE ""T_DvsDtl.Cf_Dvs"" = ' 0 ' AND ""T_DvsDtl.Cf_PrdNmc"" = ' 0 '"
    		Rqt = Stmt.executeQuery(SqlInt)
    		Rqt.close
    		Stmt.close
    	End Sub
    Je joins également ma base. Pour info, vous pouvez la testé sans ouvrir de formulaire.

    Cordialement
    Fichiers attachés Fichiers attachés

  2. #2
    Membre régulier
    Homme Profil pro
    Retraité de l' industrie
    Inscrit en
    mars 2010
    Messages
    110
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Marne (Champagne Ardenne)

    Informations professionnelles :
    Activité : Retraité de l' industrie
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2010
    Messages : 110
    Points : 74
    Points
    74

    Par défaut Abandon de cette solution

    Bonsoir,

    N' arrivant pas à trouver de solution sur les sites traitant de LibreOffice et Basic, j' ai laissé tombé cette solution.
    J' ai modifié le principe de fonctionnement du chiffrage de la matière. Depuis, j' ai rencontré d' autres problèmes, je ferme cette discussion et vais en ouvrir une autre.

    Bonne continuation.

Discussions similaires

  1. java.lang.NumberFormatException: For input string: "1 629.500"
    Par le_misterioso dans le forum Langage
    Réponses: 18
    Dernier message: 15/04/2011, 19h50
  2. Réponses: 0
    Dernier message: 06/05/2010, 10h43
  3. Réponses: 5
    Dernier message: 20/11/2009, 13h18
  4. java.lang.NumberFormatException: For input string: ""
    Par momjunior dans le forum AWT/Swing
    Réponses: 3
    Dernier message: 20/11/2009, 13h15
  5. Réponses: 1
    Dernier message: 15/01/2009, 11h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo