Afficher le contenu entier d'une table

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 356 fois - Téléchargée 34 fois

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

Ajouter un commentaire

Commentaires

Commenter la réponse de vbtom

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.