Récupérer les valeures d'une requête SQL server
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:
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.
