<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Runat="Server">
Sub Button_Click (s as Object, e As EventArgs)
Dim conNorthwind As OleDbConnection
Dim strInsert As String
Dim cmdInsert As OleDbCommand
conNorthwind = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\Books.mdb")
strInsert = "Insert into Books ( bookName, Author ) Values ( @bkName, @bkAuthor )"
cmdInsert = New OleDbCommand( strInsert, conNorthwind )
cmdInsert.Parameters.Add( "@bkName", txtbookName.Text )
cmdInsert.Parameters.Add( "@bkAuthor",txtAuthor.Text)
conNorthwind. Open ()
cmdINsert. ExecuteNonQuery ()
conNorthwind. Close ()
End Sub
</Script>
<html>
<body>
<form Runat="Server">
<h3>Add New Book Form</h3>
<b>Book's Name:</b>
<br>
<asp:TextBox
ID="txtbookName"
Runat="Server" />
<p>
<b>Author:</b>
<br>
<asp:TextBox
ID="txtAuthor"
Runat="Server" />
<p>
<asp:Button
Text="Add Books!"
OnClick="Button_Click"
Runat="Server" />
</form>
</body>
</html>
|