Bonjour;

Je voudrais récupérer le résultat de la requête sql et de l'afficher sur le navigateur, mais rien ne s'affiche 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
17
18
19
20
 
Protected Sub Afficher_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Afficher.Click
 
 
          Dim lect As SqlDataReader
 
       Try
            cmd1 = cn.CreateCommand
            cmd1.CommandText = String.Format("select id from comentaire")
            lect = cmd.ExecuteReader
            While lect.Read
              Response.Write("<i> Nom </i>" & "<table width=""900"" border=""1""  style=""background-color:#003330""><tr><td><b> " & lect(0).items & "</b></tr></table>" & "!")
            End While
            lect.Close()
        Catch ex As Exception
        Finally
            cn.Close()
        End Try
 
End Sub
Merci.