ERROR converting data type varchar to real

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:

---

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:

---

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:

---

ERROR converting data type varchar to real

---

merci de m'aider

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

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

Code:

---

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:

---

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

---

j'ai eu l'erreur suivant

Pièce jointe 477375

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,

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 :oops::oops: merci de me donner un exemple ou un support qui peut me guider

Bonjour Hounaikda,

Voici la fonction :

Code:

---

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:

---

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

---

Très bonne journée ...:D