<%@ Import Namespace="System.Data.OleDb" %> <% Dim conAuthors As OleDbConnection Dim cmdSelectAuthors As OleDbCommand Dim dtrAuthors As OleDbDataReaderconAuthors = 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() %>
Additional Resources -------------------------------------------------------------------------------- ASP.NET Unleashed The code above is from the book ASP.NET Unleashed by Stephen Walther. ASP.NET Unleashed contains over 1,400 pages of code samples:Buy the book from Amazon Buy the book from Barnes and Noble
Superexpert Newsletter Subscribe/UnSubscribe Book this Page Add Book Email Page to a Friend Email Page Page URL http://Superexpert.com/Page167.aspx
Login Edit Profile
<%@ Import Namespace="System.Data.OleDb" %> <% Dim conAuthors As OleDbConnection Dim strInsert As String Dim cmdInsert As OleDbCommandconAuthors = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\Authors.mdb" ) strInsert = "Insert Into Authors ( au_fname, au_lname ) Values ( 'Bertrand', 'Russell' )" cmdInsert = New OleDbCommand( strInsert, conAuthors ) conAuthors.Open() cmdInsert.ExecuteNonQuery() conAuthors.Close() %> New Author Added!
<%@ Import Namespace="System.Data.OleDb" %> <% Dim conAuthors As OleDbConnection Dim strUpdate As String Dim cmdUpdate As OleDbCommandconAuthors = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\Authors.mdb" ) strUpdate = "Update Authors Set au_lname='Frege' Where au_lname='Russell'" cmdUpdate = New OleDbCommand( strUpdate, conAuthors ) conAuthors.Open() cmdUpdate.ExecuteNonQuery() conAuthors.Close() %> Author Updated!
<%
Dim conAuthors As OleDbConnection
Dim cmdSelectAuthors As OleDbCommand
Dim dtrAuthors As OleDbDataReaderconAuthors = 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()
%>
Additional Resources
--------------------------------------------------------------------------------
ASP.NET Unleashed The code above is from the book ASP.NET Unleashed by Stephen Walther. ASP.NET Unleashed contains over 1,400 pages of code samples:Buy the book from Amazon
Buy the book from Barnes and Noble
Superexpert Newsletter
Subscribe/UnSubscribe Book this Page
Add Book
Email Page to a Friend
Email Page
Page URL
http://Superexpert.com/Page167.aspx
Login Edit Profile
<%
Dim conAuthors As OleDbConnection
Dim strInsert As String
Dim cmdInsert As OleDbCommandconAuthors = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\Authors.mdb" )
strInsert = "Insert Into Authors ( au_fname, au_lname ) Values ( 'Bertrand', 'Russell' )"
cmdInsert = New OleDbCommand( strInsert, conAuthors )
conAuthors.Open()
cmdInsert.ExecuteNonQuery()
conAuthors.Close()
%>
New Author Added!
<%
Dim conAuthors As OleDbConnection
Dim strUpdate As String
Dim cmdUpdate As OleDbCommandconAuthors = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\Authors.mdb" )
strUpdate = "Update Authors Set au_lname='Frege' Where au_lname='Russell'"
cmdUpdate = New OleDbCommand( strUpdate, conAuthors )
conAuthors.Open()
cmdUpdate.ExecuteNonQuery()
conAuthors.Close()
%>
Author Updated!
ASP.NET实现简单留言或文章管理的.
[email protected]
好,小弟我仔细研究研究!谢谢先