Comment save le texte de msgbox dans database Access

Messages postés
67
Date d'inscription
mercredi 3 octobre 2012
Dernière intervention
24 décembre 2018
- - Dernière réponse : NHenry
Messages postés
14386
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 février 2019
- 21 nov. 2018 à 22:20
Bonjour, mes amis

j'ai toujours un problème de obtenir le texte de MSGBOX dans une textebox

j'ai reçu une réponse de opérateur de réseau téléphonique dans une variant x :(string)
ex: x = objSms.ussd(bla bla bla)

qu'on je save la réponse "x" dans la base de donné il ma dit :
je peux lire la réponse au msgbox mais dans une variable x il me dit :
erreur de syntaxe (opérateur absent) dans l'expression

j'ai trois opérateur téléphonique qui reçu la réponse , deux opérateurs reçu la réponse normale un seule opérateur qui fait ce problème

merci de me dit comment save les texte de msgbox dans un variante y
Afficher la suite 

Votre réponse

1 réponse

Messages postés
14386
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 février 2019
153
0
Merci
Avec quel code ?
dadibarca23
Messages postés
67
Date d'inscription
mercredi 3 octobre 2012
Dernière intervention
24 décembre 2018
-
merci NHenry
Avec quel code ?

vb.net
NHenry
Messages postés
14386
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 février 2019
153 -
"je peux lire la réponse au msgbox mais dans une variable x il me dit :
erreur de syntaxe (opérateur absent) dans l'expression "

Quel code génère cette erreur ?
dadibarca23
Messages postés
67
Date d'inscription
mercredi 3 octobre 2012
Dernière intervention
24 décembre 2018
-
Sub saveooredoosending()
        Dim sql As String = "select * from oredo where N=" & Val(NSENDING.Text)
        If con.State() Then con.Close()
        con.Open()
        Dim cmd As New OleDbCommand(sql, con)
        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader()
        If dr.Read() = True Then
            NSENDING.Text = dr.Item(0).ToString
            num = dr.Item(1).ToString
            solde = dr.Item(2).ToString
            Me.Dtpiker.Value = dr.Item(3).ToString
            TimeOfDays.Text = dr.Item(4).ToString
            riponsseooredoo = dr.Item(5).ToString
            Me.TextBox1.Text = dr.Item(6).ToString
            con.Close()
        Else
            If solde = "" Or num = "" Then
                MessageBox.Show("تأكد من ادخال البيانات ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)

                Exit Sub
            Else
                Try

                    sql = "INSERT INTO oredo(N,client,solde,datte,timme,msgrecu,solderest)" & " values('" & Val(NSENDING.Text) & "','" & num & "','" & solde & "','" & Dtpiker.Value.ToShortDateString & "','" & TimeOfDays.Text & "','" & riponsseooredoo & "','" & TextBox1.Text & "')"
                    Dim cmd2 As New OleDbCommand(sql, con)
                    cmd2.ExecuteNonQuery()
                    con.Close()
                    vieworedo()
                Catch ex As Exception
                    con.Close()
                    MessageBox.Show(ex.Message)
                End Try
            End If
        End If

    End Sub


EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
dadibarca23
Messages postés
67
Date d'inscription
mercredi 3 octobre 2012
Dernière intervention
24 décembre 2018
-
voila le code
NHenry
Messages postés
14386
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 février 2019
153 -
D'accord, c'est sur quelle ligne que se produit l'erreur ?
Commenter la réponse de NHenry

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.