oledbdatareader.aspx

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Data.OleDb" %>
<%
Dim conAuthors As OleDbConnection
Dim cmdSelectAuthors As OleDbCommand
Dim dtrAuthors As OleDbDataReader

conAuthors = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\Authors.mdb" )
conAuthors.Open()
cmdSelectAuthors = New OleDbCommand( "Select au_lname From Authors", conAuthors )
dtrAuthors = cmdSelectAuthors.ExecuteReader()
While dtrAuthors.Read()
  Response.Write( "<li>" )
  Response.Write( dtrAuthors( "au_lname" ) )
End While
dtrAuthors.Close()
conAuthors.Close()
%>