Imports System.DataImports System.Data.oledbpublic Class Webform2 inherits System.Web.ui.page
#Region "The code" of the web form designer "
'This call is required for the web form designer.
End sub protected withevents oledbconnection1 as system.data.oledb.oledbconnection
'Note: The following placeholders declare are required by the web form designer. 'Don't delete or move it. Private DesignerPlaceHolderDeclaration as System.Object
Private Sub Page_init (Byval E AS System.EventArgs) Handles mybase.init 'Codegen: This method call is required by the Web Form Designer' Do not modify it using the code editor. InitializationComponent () End Sub
#End region
Private Sub Page_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim myconnection As OleDbConnection Dim mydataadapter As OleDbDataAdapter Dim mydataset As DataSet Dim mydatatable As DataTable Dim mydatarow As DataRow Dim mydatacolumn As DataColumn
myconnection = New OleDbConnection ( "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C: /TEST.mdb") mydataadapter = New OleDbDataAdapter ( "SELECT top 3 * FROM test", myconnection) mydataset = New DataSet mydataadapter.Fill (MyDataSet, "test") myDataTable = mydataset.tables ("test") for Each MyDataColumn in myDataTable.columns response.write (MyDataColumn.columnname) 'response.write ("
") Next Response.write ("< Br> ") for Each MyDataRow in MyDataTable.Rows for Each MyDataColumn in MyDataBle.Columns Response.write (MyDataColumn) Next Response.write ("
") Next MyConnection.Close () End Sub
END CLASS
IDART_COL_SUBART_TITLEPHOTOFILEUPLOADTIMEIP25507 Chief Physician 2004-7-25 15: 04: 34127.0.125517 Deputy Chief Physician 2004-7-25 15: 04: 58127.0.0.125527 Nurse 2004-7-25 15: 05: 22127.0.0.1