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