mdb02.aspx

来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 21 行

ASPX
21
字号
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<%@Import Namespace="MyMdb"%>
<Html>
<Body BgColor="White">
<H3>使用Mdb对象类别,利用GetDataReader方法显示表<HR></H3>
<%
   Dim db As Mdb = New Mdb( Server.MapPath("Sample.mdb") )
   Dim Reader As OleDbDataReader = db.GetDataReader("Select * From 物价表")
   Dim I As integer
   While Reader.Read()
      Response.Write( "<UL>" )
      For I = 0 To Reader.FieldCount - 1
         Response.Write( "<LI>" & Reader.GetName(I) )
         Response.Write( " = " & Reader.Item(I) )
      Next
      Response.Write( "</UL>" )
   End While
%>
</Body>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?