Discussion :

[hounaida nou]

Bonjour tout le monde,

je veux insérer des valeurs des textbox dans ma base de données dont plusieurs colonnes sont de type 'real' . j'ai écrit cette requete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rq1 = "insert into odl_dec VALUES ( '" & TextBox1.Text & "','" & desveh.Text & "', '" & Val(tailledelot.Text) & "','" & reftissu.Text & "','" & desigtissu.Text & "','" & placement.Text & "','" & effstd.Text & "', '" & Val(longmat.Text) & "', '" & Val(largmat.Text) & "','" & nblz.Text & "','" & Val(totlineaire.Text) & "','" & Val(surfacetot.Text) & "','" & Val(surfaceuti.Text) & "', GetDATE(),'" & ComboBox1.Text & "')"

mais j'ai remarqué que seulement la partie entière des valeurs est insérée, la requete ne tient pas compte des chiffres après la virgule,donc j'ai utilisé la fonction convert
j'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rq1 = "insert into odl_dec VALUES ( '" & TextBox1.Text & "','" & desveh.Text & "', '" & Val(tailledelot.Text) & "','" & reftissu.Text & "','" & desigtissu.Text & "','" & placement.Text & "','" & effstd.Text & "', Convert(real ,'" & longmat.Text & "'), Convert(real, '" & largmat.Text & "'), Convert(real, '" & nblz.Text & "'), Convert(real, '" & totlineaire.Text & "'), Convert(real , '" & surfacetot.Text & "'), Convert(real ,'" & surfaceuti.Text & "'), GetDATE(),'" & ComboBox1.Text & "')"

et ça me retourne l'erreur suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ERROR converting data type varchar to real

merci de m'aider

[clementmarcotte]

Bonjour,

Val ne vaut rien quand le séparateur décimal est la virgule. Essaie soit avec le vieux Cdbl de BASIC ou avec TryParse

[hounaida nou]

Bonjour clementmarcotte,
merci pour ta réponse,
j'ai essayé ce code avec tryParse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Dim b, c As Double
                Double.TryParse(TextBox1.Text, b)
                Double.TryParse(TextBox2.Text, c)
                rq1 = "insert into real VALUES ( ' " & b & "','" & c & "')"

mais ça me retourne le meme erreur de conversion de data de type varchar en real

alors j'ai essayé avec Cdbl

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   rq1 = "insert into real VALUES ( ' " & CDbl(TextBox1.Text) & "','" & CDbl(TextBox2.Text) & "')"

j'ai eu l'erreur suivant

[Phil Rob]

Bonjour,

Pour les conversions de type, il me semble que CType est très bien aussi et c'est du DotNet. Toutefois, pour le problème du point (ou virgule), rien de tel qu'une petite fonction de correction des chaines numériques avant de les intégrer dans des calculs ou conversions.

MAIS le problème n'est pas là !!!!

Comme indiqué par son message, l'erreur survient parce que ton code s'est trouvé en situation de convertir une chaine vide en numérique (tentative de conversion de "" en Double). Il te faut donc éviter ces chaines, soit en évitant leur conversion, soit en les remplaçant par 0, ou peut-être en plaçant ton opération délicate dans un Try.
Perso, j’opterais pour le remplacent des chaines numériques vides par 0.

Bonne soirée,

[hounaida nou]

Bonsoir , merci phil Robe pour ta réponse,
bon pour la chaine vide , ça était une faute lors de remplissage( j'ai pas des chaines vides à convertir)
pour la conversion de type je vais essayer CType et je te donne un retour , mais je n'ai aucun idée conçernant les fonctions de correction des chaines numériques que tu as mentionnées
j'ai googlé un peut mais je me trouve dans le vague merci de me donner un exemple ou un support qui peut me guider

[Phil Rob]

Bonjour Hounaikda,

Voici la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Private Function PointVirgule(ByVal Valeur As String) As String
        Dim Test As String = "1,2"  ' Pour déterminer si Point ou Virgule
        Dim TestNum As Single
        Try
            TestNum = CType(Test, Single)
            Test = Valeur.Replace(".", ",")  ' Si on passe ici, c'est qu'il faut la virgule
        Catch ex As Exception
            Test = Valeur.Replace(",", ".")  ' Si on passe ici, c'est qu'il faut le point
        End Try
        Return Test
    End Function

Avec cette fonction, le code suivant ne fonctionnera quel que soit le réglage des paramètres régionaux de ton PC et quel que soit le séparateur de décimales encodé dans TextBox_UneChaine_Numerique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim UnNombreReel As Double
UnNombreReel = CType(PointVirgule(TextBox_UneChaine_Numerique.Text), Double)

Très bonne journée ...