Discussion :

[alicia26]

salut à tous!
j'ai ce code qui fonctionne correctement,sauf qu'il m'affiche tous les résultats dans un seul label.
et j'aimerai afficher chaque champ dans un label mais je plante un peu.
ci joint mon code,merci pour votre aide!

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
 Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Dim cnAccess As Data.OleDb.OleDbConnection
        cnAccess = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Visual Studio 2005\WebSites\WebSites4\App_Data\Bdd.mdb;")
      cnAccess.Open()
        Dim sSelectSQL As String
        sSelectSQL = "select RefEmployes,NomFamille from Employes"
         Dim cmdSelect As New Data.OleDb.OleDbCommand(sSelectSQL, cnAccess)
         Dim drEmp As Data.OleDb.OleDbDataReader, sbResults As New StringBuilder()
        drEmp = cmdSelect.ExecuteReader()
        sbResults.Append("<Table>")
        Do While drEmp.Read()
            sbResults.Append("<TR><TD>")
            sbResults.Append(drEmp.GetString(0))
            sbResults.Append("</TD><TD>")
            sbResults.Append(drEmp.GetString(1))
            sbResults.Append("</TD><TD>")
            Loop
        sbResults.Append("</Table>")
        lblResult.Text = sbResults.ToString()
 
    End Sub

[Promesses]

Salut,
il faut en créer plusieurs à la volée

[alicia26]

merci mais peux tu être un peu plus clair!
c'est vrai qu'il faudra déclarer plusieurs labels, mais comment affecter à chacun la valeur retournée par sbResults?

[Promesses]

En plus, je viens de voir ton code, tu mets un tableau dans un label, c'est moyen.

Je te conseillerais plutot d'utiliser un literal ou tout simplement un tableau que tu remplirais (avec des cell et des row)

Pour etre plus clair dans ta boucle, il faut que tu crée tes objets, tu ajoutes le texte. Enfin, tu ajoute l'objet créé à ta page.

[alicia26]

merci,j'ai essayé ce code,mais je coince toujours

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Dim drEmp As Data.OleDb.OleDbDataReader, sbResults As New StringBuilder()
        drEmp = cmdSelect.ExecuteReader()
 
        Do While drEmp.Read()
 
            sbResults.Append(drEmp.GetString(0))
 
            sbResults.Append(drEmp.GetString(1))
 
        Loop
 
        lblResult.Text = sbResults.ToString()

quelques exemples pourrais m'aider!

[lutecefalco]

Passe par un GridView