Afficher le contenu entier d'une table

Commenter

Contenu du snippet

Tout est dans le titre...

Source / Exemple : 


<%@ 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>

Conclusion :


Merci ASP .Net parceque de ma connaissance on pouvait pas se permettre ca en ASP 3.0...si?? bah alors dites moi comment ca me serai util! merci :)

++
vBt0m.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (vbtom)