STUDY

xiaoxiao2021-03-06  56

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. private subinitis.component () me.oledbconnection1 = new system.data.oledb.oledbConnection

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

转载请注明原文地址:https://www.9cbs.com/read-118034.html

New Post(0)