Discussion :

[andyajram]

Bonjour,

Je suis débutant en programmation , j'ai rencontré un problème , mon programme affiche des valeurs sur un message box et ces valeurs doivent être stocké dans une base de données SQL server que j'ai déjà créer , mais ce que j'arrive pas a faire , est d’insérer ce message box ou bien le Contenu de ce message box dans ma base de données !! est ce qu'il ya une solution ?!!
S'il vous plait j'ai besoin d'aide !

Merci d'avance

[_Ez3kiel]

Dans ton code, il y a un endroit où tu verras Msgbox("le texte"), sauf qu'à la place de "le texte" il devrait y avoir les données que tu souhaites enregistrer dans ta base de données.

Ensuite si tu ne sais pas comment te servir de ces données pour les enregistrer dans ta base, documentes-toi un peu avec ces infos

[andyajram]

Dans ton code, il y a un endroit où tu verras Msgbox("le texte"), sauf qu'à la place de "le texte" il devrait y avoir les données que tu souhaites enregistrer dans ta base de données.

Ensuite si tu ne sais pas comment te servir de ces données pour les enregistrer dans ta base, documentes-toi un peu avec ces infos

le problème c'est que quand c'est donnée apparaissent sur le message box ils ne se stock pas sur la base de données je ne sais pas comment le faire ni la requête qu'il faute pour insérer un message box parceque quand j'intègre le message box dans ma requête SQL il ne reconnait pas le message box !!

[_Ez3kiel]

Peut-on voir le code qui fait apparaître la messagebox ?

[andyajram]

le voici mon code qui fait apparaitre le msgbox
Sub Main()

Console.WriteLine("Waiting For Client...")
Server.Start()
Client = Server.AcceptTcpClient()
Stream = Client.GetStream()
cn.Open()
While True
Console.WriteLine("Receiving...")
Dim RecvBytes(Client.ReceiveBufferSize) As Byte
Stream.Read(RecvBytes, 0, Client.ReceiveBufferSize)
Dim RecvText As String = Encoding.ASCII.GetString(RecvBytes)
MsgBox(RecvText)
End While
Dim SendBytes() As Byte = Encoding.ASCII.GetBytes("HI")
Stream.Write(SendBytes, 0, SendBytes.Length)
End Sub

[andyajram]

j'ai ajouté cette connexion juste après le message box pour insérer mais ca ne marche pas tjrs !!
Try
' Insérer une valeur '
cmd = New SqlCommand("insert into Client values('" + MsgBoxResult() + "')", cn)
cmd.ExecuteNonQuery()
Catch ex As Exception
Finally
cn.Close()
End Try

[ebastien]

Bonjour,
Tu veux insérer dans la base MessageBoxResult ??? Un petit lien vers Msdn

Je pense que c'est plutôt RecvText qu'il faut insérer.
De plus, privilégie les requêtes paramétrées à la concaténation de chaînes pour faire du SQL.

eb.

[andyajram]

Bonjour,
Tu veux insérer dans la base MessageBoxResult ??? Un petit lien vers Msdn

Je pense que c'est plutôt RecvText qu'il faut insérer.
De plus, privilégie les requêtes paramétrées à la concaténation de chaînes pour faire du SQL.

eb.

Bonjour
Eb j'ai pas bien compris ta réponse !! ce que je veux moi est insérer RecvText dans ma base de données !

[_Ez3kiel]

Tu as montré plus haut que tu savais faire la requêtes d'insertion, que dans Msgbox tu affiches RecvText, et qu'ensuite tu veux insérer la valeur de MsgBox ...

Pourquoi pas directement

Code :

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

cmd = New SqlCommand("insert into Client values('" & RecvText & "')", cn)

Plutôt que

Code :

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

1
2
MsgBox(RecvText)
cmd = New SqlCommand("insert into Client values('" + MsgBoxResult() + "')", cn)

[andyajram]

quand je fais ca ! un message me dis que les données en chaîne de caractère seront tronqués

[_Ez3kiel]

Quel est le message mot pour mot ? Est-ce une exception ?

[ebastien]

Cela veut dire que ta colonne est trop petite pour accueillir la donnée. Si tu tente de faire rentrer "Bonjour" dans une colonne de 4 caractères, ça passe pas !

[andyajram]

mais moi je veux entrer juste de petites valeurs numériques

[_Ez3kiel]

Dans ta msgbox, tu affiches RcvText, quel est le texte affiché ? (Lettre pour lettre, chiffre pour chiffre) Et quelle structure à ta table client ? (Colonnes, typage, max de caractère par colonne, etc)

[andyajram]

le message box affiche ce que je tape dans une console ! puis les colones de ma base de données sont ID (type numérique) / Valeur (type numérique) / ID_Appareil (type numérique) / Date (type text)
la colone ID est inchangeable elle s'incrémente toute seule mais c'est les autres colones que je veux remplir moi

[_Ez3kiel]

Dans quelle colonne souhaites-tu enregistrer RcvText ? Car cela modifie la structure de ta requête SQL ...

INSERT INTO "Nom de la table" ("colonne 1", "colonne 2", ...)
VALUES ("valeur 1", "valeur 2", ...)

Si dans ton cas, tu ne souhaites remplir que la colonne "Valeur" :

INSERT INTO Client (Valeur, ID_Appareil, Data)
VALUES (RcvText,"","")

[andyajram]

moi je veux remplir les colones valeur et ID_Appareil

[_Ez3kiel]

Tu veux mettre RcvText dans les 2 colonnes ?

[andyajram]

normalement le Rcvtext doit contenir les 2 valeurs que j'entre pour qu'elle s'enregistre sur les 2 colonnes !! je ne sais pas comment les séparer pour que chacune s'enregistre toutes seule sur sa colonne et pour la colonne date je ne sais pas comment la remplir est ce que je peux la générer automatiquement avec SQL server ou bien je dois la remplir aussi !! dans ce cas ca posera un problème qui est comment remplir la date aussi a travers le message box

[ebastien]

Une question me taraude : A quoi sert le MsbBox ici ? Normalement il n'est utilisé que pour afficher un message non ? S'il y a 2 colonnes à renseigner, il y a 2 variables à définir ! De plus, il est possible de mettre dans un champ date une valeur par défaut : GetDate()