none
afficher le résultat d'un code (sql et vb.net ) exécute dans form 1 et s'affiche dans un deuxième form RRS feed

  • Discussion générale

  • salut .

    je voudrait savoir s'il est possible d'afficher le résultat d'un code dans une autre form ;

    c'est a dire dans la premier form l'utilisateur va s'identifier par un pseudo et un mot de passe , s'ils sont correcte une deuxième form s'ouvre et  affiche des information sur se utilisateur ( nom prénom age  etc ...) qui ont stocker dans un table utilisateur 


    Merci d'avance.

    • Type modifié Aurel Bera jeudi 8 mai 2014 05:56 disc
    jeudi 1 mai 2014 13:33

Toutes les réponses

  • Bonjour,

    bien sûr que c'est possible. Après tout, les Form sont des objets...


    Nimzozo, from France.

    jeudi 1 mai 2014 13:53
  • Dim str As String = " Select MP,CU From compteEB Where MP ='" & TextBox1.Text & "' and CU = '" & TextBox2.Text & "' "
    
                If con.State = ConnectionState.Open Then
                    con.Close()
                End If
    
    
                con.Open()
                Dim da As New SqlDataAdapter(str, con)
                Dim ds As New DataSet
                da.Fill(ds)
    
    
               
           If ds.Tables(0).Rows.Count > 0 Then
                Dim obj As New Form3
                Me.Hide()
                obj.Show()
     Dim req As String = " Select nom, prénom, adresse,  NGSM , agence, solde From client,compteEB Where NCIN = NCINclient  and MP= '" & TextBox1.Text & "' and CU = '" & TextBox2.Text & "'    "
    
               If con.State = ConnectionState.Open Then
                     con.Close()
               End If
    
                 con.Open()
                  Dim dr As SqlDataReader
                  Dim comd As New SqlCommand(req, con)
                  dr = comd.ExecuteReader
                  dr.Read()
    
            While dr.Read()
    
    form3.TextBox4.Text = dr.GetValue(0) & ControlChars.NewLine
    form3.TextBox5.Text = dr.GetValue(1) & ControlChars.NewLine
    form3.TextBox10.Text = dr.GetValue(2) & ControlChars.NewLine
    form3.TextBox1.Text = dr.GetValue(3) & ControlChars.NewLine
    form3.TextBox2.Text = dr.GetValue(4) & ControlChars.NewLine
    form3.TextBox6.Text = dr.GetValue(5) & ControlChars.NewLine
    form3.TextBox7.Text = dr.GetValue(6) & ControlChars.NewLine
    
                    End While
    
                  
            ElseIf ds.Tables(0).Rows.Count < 0 Then
      MsgBox("votre mot de passe ou le code utilisateure est incorrecte !")
    
                    con.Close()
                End If
    
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

    ok , merci 

    mais ou est le problem ici !?

    lorsque j’exécute le code les textbox sont vide !!?  

    jeudi 1 mai 2014 14:30
  • Vérifiez vos requêtes, notamment les noms de tables, colonnes, ...

    Nimzozo, from France.

    jeudi 1 mai 2014 19:52
  • Bonjour

     ElseIf ds.Tables(0).Rows.Count < 0

    Si ds.Tables(0).Rows.Count = 0?

    Vous traitez le cas ds.Tables(0).Rows.Count > 0  et ds.Tables(0).Rows.Count <  0 mais pas = 0.

    Bien cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    lundi 5 mai 2014 07:31
  • Bonjour,

    J'arrive probablement après la bataille, votre code est bon à une exception prêt... Vous faites un dr.Read juste avant de rentrer dans votre While dr.Read.

    Autrement dit, si vous n'avez qu'une seule ligne retournée par votre requête, celle-ci est lue par votre code, mais aucune valeur n'est utilisée. Vous entrez ensuite dans le While, il n'y a plus de ligne et rien ne se passe, les TextBox sont vides.

    Il suffit d'enlever le 1er dr.Read ^^

    Bien cordialement,

    Fabrice JEAN-FRANCOIS

     


    lundi 19 mai 2014 14:38