affichage html asp.net
Bonjour,
Je suis débutant en ASP.NET (Vb.net), j'arrive à créer un lien de connexion avec ma base (access) et récupérer les données dans un array, le problème est comment faire pour afficher ces données dans un tableau en html.
merci de m'aider.
@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="ChartDirector" %>
<%@ Register TagPrefix="chart" Namespace="ChartDirector" Assembly="netchartdir" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim dbconn As System.Data.IDbConnection = _
New System.Data.OleDb.OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath( _
"sample.mdb;"))
dbconn.Open()
Dim sqlCommand As System.Data.OleDb.OleDbCommand = Nothing ' la commande SQL
Dim selectCommand As String = "select test1,test2 from test"
Dim atest1 As New ArrayList
Dim atest2 As New ArrayList
sqlCommand = New System.Data.OleDb.OleDbCommand(selectCommand, dbconn)
' on exécute la requête
Dim myReader As System.Data.OleDb.OleDbDataReader = sqlCommand.ExecuteReader()
Dim j as integer
j=0
While myReader.Read()
' les données de la ligne courante sont mis dans les tableaux
atest1.Add(myReader("test1"))
atest2.Add(myReader("test2"))
j = j + 1
End While
Dim i as integer
i=0
While (i <> j)
lblMessage.Text = lblMessage.Text & " " & atest1(i).ToString()
i = i + 1
End While
Response.Write("kjhkjhkhkj")
lblMessage.Text = lblMessage.Text & " -------- "
Dim k As Integer
k = 0
While (k <> j)
lblMessage.Text = lblMessage.Text & " " & atest2(k).ToString()
k = k + 1
End While
' libération des ressources
myReader.Close()
dbconn.Close()
End Sub
</script>
<script runat="server">
</script>
<html>
<head>
<title></title>
</head>
<body style="margin:5px 0px 0px 5px">
<h1>Bonjour</h1>
<hr style="border:solid 1px #000080" />
<br />
<br />
<asp:Label id="lblMessage" runat="server" />
<table>
<tr>
<td>
Ici je veux afficher les données dans un tableau
</td>
</tr>
</table>
</body>
Répondre avec citation
Partager