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