oledbinsert.aspx

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

<%@ Import Namespace="System.Data.OleDb" %>
<%
Dim conAuthors As OleDbConnection
Dim strInsert As String
Dim cmdInsert As OleDbCommand

conAuthors = 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!