Discussion :

[dijas]

Bonsoir à tous,
je suis un débutant dans la programmation VB, j'ai créé une application qui fait des calcul et les stock dans une variable 'I0r', j'ai lié mon application avec une base de donnée que j'ai créée sur MySqlServer, et je veux stocker la variable 'I0r' dans la base de données MySql et j'ai mis le code suivant mais ça marche pas ça retourne une erreur de type de données:

Code :

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

1
2
3
4
5
6
7
8
9
10
Imports System.Data.SqlClient
Public Class PremièreVu
    Dim cn As New SqlConnection("data source=NOUREDDINE-PC\EMI; initial catalog=Résultats; integrated security=true")
    Dim cm As New SqlCommand
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cn.Open()
        cm.Connection = cn
        cm.CommandText = "insert into Réglages values ( '" & I0r & "')"
        cm.ExecuteNonQuery()
End Sub

"Résultats" est le nom de la DB
" Réglages" est le nom de la table ou je veux stocker elle contient une seule colonne de type real
et la vriabale I0r est de type Double.
Je vous prie me répondre car je suis vraiment bloqué, et merci

[tomlev]

J'ai l'impression que tu mélanges un peu MySQL et SQL Server... et "MySQLServer", ça n'existe pas

D'après ton code, c'est une base SQL Server que tu utilises, pas MySQL.

" Réglages" est le nom de la table ou je veux stocker elle contient une seule colonne de type real
et la vriabale I0r est de type Double.

Si la variable vaut 15 par exemple, ta requête ressemble à ça :

Code SQL :

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

insert into Réglages values ('15')

Donc en fait tu essaies d'insérer une chaine de caractères ('15') dans une colonne de type real ; ces types ne sont pas compatibles, il faut insérer une valeur numérique, pas une chaine.

Il faut donc enlever les apostrophes :

Code VB.NET :

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

cm.CommandText = "insert into Réglages values (" & I0r & ")"

Cela dit, ça ne règle pas complètement le problème... Quand la valeur est entière, tout va bien, mais si elle a une partie décimale (par exemple 1.5), ça ne va sans doute plus marcher (du moins si ton système est en français). En effet, pour intégrer la variable I0r dans la requête, VB.NET appelle implicitement I0r.ToString(), qui ne donne pas le même résultat selon la langue... En anglais, ça donnerait cette requête, qui est correcte :

Code SQL :

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

insert into Réglages values (1.5)

Mais en français, le séparateur décimal est la virgule, pas le point ! Ca donne donc la requête suivante :

Code SQL :

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

insert into Réglages values (1,5)

Et là ça ne marche plus, car en SQL, la virgule sert à séparer les valeurs, et non à séparer la partie entière de la partie décimale...

Bref, pour faire les choses proprement, il faut utiliser une requête paramétrée, qui évite d'avoir à se poser ce genre de questions :

Code VB.NET :

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

1
2
3
4
        cm.Connection = cn
        cm.CommandText = "insert into Réglages values (@value)"
        cm.Parameters.AddWithValue("value", I0r)
        cm.ExecuteNonQuery()

Au fait, encore une petite chose que tu devrais changer : quand tu fais un INSERT, il faut toujours préciser les colonnes dans lesquelles tu insères. Sinon, le jour où tu ajoutes des colonnes dans la table, ton code ne fonctionne plus... La forme correcte est donc :

Code SQL :

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

insert into Réglages(NomColonne) values (@value)

(en remplaçant bien sûr NomColonne par le vrai nom de la colonne...)

[dijas]

Je vous remercie beaucoup pour votre aide, vous m'avez vraiment aidé à finalisé mon projet de fin des études. Même si moi je suis pas un informaticien mais je suis ingénieur en électrotechnique, j'ai eu besoin de découvrir cet environnement de programmation et je ne le regrette point.