recuperer enregistrements dans une balise DIV

Version imprimable

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:

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 :)

biensur
dans ta boucle :

Code:

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

25/06/2011, 01h13
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 :)

Bonjour ,

J'ai essayé avec ceci :

Code:

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:

l.controls.add(dr(0))

Genre :

Citation:

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

25/06/2011, 12h03
mouadmagan

j'ai remplacé le code

Code:

l.controls.add(dr(0))

par

Code:

l.text=dr(0)

1 pièce(s) jointe(s)

J'ai Trouvé !! :P

voila le code :

Code:

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:

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 :

http://img189.imageshack.us/img189/7...uryuhkhuer.jpg

Uploaded with ImageShack.us