Discussion :

[mouadmagan]

Bonsoir Tout Le monde ,

est ce que quelqu'un pourrait m'aider à resoudre mon probleme ... Le fait de recuperer les enregistrements d'une table et les Afficher à l'interieur d'une Balise Div ..

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dr As SqlDataReader
        Dim cmd As New SqlCommand
        cmd.Connection = cn
        cn.Open()
        cmd.CommandText = "select * from client"
        dr = cmd.ExecuteReader
        If dr.HasRows Then
            While dr.Read
                [titre].InnerText = dr(0)
                nom.InnerText = dr(1)
            End While
        End If
        dr.Close()
        cn.Close()
    End Sub

Sachant que " titre " et " nom " sont les ID de deux Balises <DIV>


MAIS LE GRAND PROBLEME , c'est que ce bout de code permet seulement d'afficher le dernier enregistrement .. tout à fait normal ...

EST - ce possible - à l'interieur de cette boucle - ajouter la balise <div> .. SI OUI , pourriez-vous m'aider ??


MERCI

[AghilasB]

biensur
dans ta boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dr As SqlDataReader
        Dim cmd As New SqlCommand
        cmd.Connection = cn
        cn.Open()
        cmd.CommandText = "select * from client"
        dr = cmd.ExecuteReader
        If dr.HasRows Then
            While dr.Read
                Panel nom=new Panel();
                Panel titre=new Panel();
                panel.Controls.Add(new Literal(){Text= dr(0)};
                panel.Controls.Add(new Literal(){Text= dr(1)};
this.Controls.Add(nom);
this.Controls.Add(titre);
            End While
        End If
        dr.Close()
        cn.Close()
    End Sub

[mouadmagan]

Bonsoir ,
je voudrais , tout d'abord , vous remercier de votre reponse ;

est ce que je peux savoir à quoi sert exactement " Text " c'est quoi en effet ??

Merci

[mouadmagan]

Bonjour ,

J'ai essayé avec ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dr As SqlDataReader
        Dim cmd As New SqlCommand
        cmd.Connection = cn
        cn.Open()

        cmd.CommandText = "select * from client"
        dr = cmd.ExecuteReader
               If dr.HasRows Then
            While dr.Read

                Dim l As LiteralControl = New LiteralControl("<div style=""position:absolute; top: 192px; left: 461px; height: 18px; width: 536px; background-color:Gray; color:white; height:auto; font-weight:bolder"">")

l.controls.add(dr(0))
placeholder1.controls.add(l)                       
            End While




end if

                  dr.Close()
        cn.Close()
    End Sub

Mais une erreur s'affiche sur cette ligne

Code :

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

l.controls.add(dr(0))

Genre :

Impossible d'effectuer un cast d'un objet de type 'System.Int32' en type 'System.Web.UI.Control'.

J'ai besoin de votre aide

Merci

[mouadmagan]

j'ai remplacé le code

Code :

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

l.controls.add(dr(0))

par

Code :

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

l.text=dr(0)

[mouadmagan]

J'ai Trouvé !!


voila le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dr As SqlDataReader
        Dim cmd As New SqlCommand
        cmd.Connection = cn
        cn.Open()
 
        cmd.CommandText = "select * from client"
        dr = cmd.ExecuteReader
 
        If dr.HasRows Then
            While dr.Read
 
 
 
                Dim litHeader As LiteralControl = New LiteralControl("<div style=""position:absolute; top: 192px; left: 461px; height: 18px; width: 536px;  color:white; font-weight:bolder"">")
 
                litHeader.Text = dr(1)
 
                PlaceHolder1.Controls.Add(litHeader)
 
                Dim litfooter As LiteralControl = New LiteralControl("</div>")
 
                PlaceHolder1.Controls.Add(litfooter)
                Dim litHeader1 As LiteralControl = New LiteralControl("<div style=""position:absolute; top: 218px; left: 461px; height: 18px; width: 536px; background-color:white; color:#a23127"">")
                litHeader1.Text = dr(2)
 
                PlaceHolder1.Controls.Add(litHeader1)
                Dim litfooter1 As LiteralControl = New LiteralControl("</div><br>")
 
                PlaceHolder1.Controls.Add(litfooter1)
End While
        End If
 
        dr.Close()
        cn.Close()
    End Sub

et dans le fichier .aspx ::

j'ai ajouté que :

Code :

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

1
2
<asp:PlaceHolder ID="PlaceHolder1" runat="server">
         </asp:PlaceHolder>

MAIS , Il Me reste un petit probleme , c'est que le style des divisions ne sont pas pris en charge ...



Voila je voudrais avoir un resultat comme ceci :




Uploaded with ImageShack.us