RÉCUPÉRER LE RÉSULTAT D'UNE REQUÈTE SQL

<%@ Page Language="VB" Debug="true" Trace="false" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %>


<SCRIPT language=VB runat=server>
Dim DBobjConn  as OleDBConnection
Dim dS_Global as new DataSet("NomDataSet") ' le nom est facultatif


DBobjConn.Open()
	Sub Page_Load(sender as object,e as eventargs)	


		Dim DBobjConn as New OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.MapPath("\base.mdb"))
		DBobjConn.Open()		
		
Dim DBCmd as New OleDbDataAdapter("SELECT * FROM Table",DBobjConn)
		DBCmd.Fill(dS_Global,"Table1")	
		
		
		Dim myTable As DataTable
		Dim myRow As DataRow
		Dim myColumn As DataColumn
		
		
		
		For Each myTable in dS_Global.Tables
			For Each myRow In myTable.Rows           
				response.Write(myRow("ColumnName"))
			Next myRow
		Next myTable		
			
	end sub
</SCRIPT>