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