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.
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.