AFFICHER LE CONTENU ENTIER D'UNE TABLE

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %>

<SCRIPT language=VB runat=server>
	Sub Page_Load(sender as object,e as eventargs)
		
		Dim DBobjConn as OleDBConnection
		DBobjConn = New OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.MapPath("\aspx\ASPxMyAdmin\test.mdb"))
		DBobjConn.Open()


		Dim dS_ModifTable as new DataSet
		Dim ODDA_ModifTable as new OLEDBDataAdapter("SELECT * FROM Table1",dbobjconn)

		ODDA_ModifTable.Fill(dS_ModifTable,"Table1")


		Dim MyTable as DataTable
		Dim MyColumn as DataColumn
		Dim MyRow as DataRow

		response.Write("<TABLE width=100% cellspacing=0 cellpadding=0 border=1 bordercolor=#777777><TR>")
		For Each MyTable in dS_ModifTable.Tables
			For Each MyColumn in MyTable.Columns
				response.Write("<TD align=center>" & MyColumn.Caption & "</TD>")
			Next MyColumn
		Next MyTable

		response.Write("</TD>")

		For Each MyTable in dS_ModifTable.Tables
			For Each MyRow in MyTable.Rows
				response.Write("<TR>")
				For Each MyColumn in MyTable.Columns
					response.Write("<TD align=center>" & MyRow(MyColumn.Caption) & "</TD>")
				Next MyColumn
				response.Write("</TR>")
			Next MyRow
		Next MyTable
		
		response.Write("</TABLE>")
	End Sub
</SCRIPT>