<%@ Import Namespace="System.Data.Oledb" %>
<Script Runat="Server">
Sub Button_Click (s As Object, e As EventArgs)
Dim conNorthwind As OledbConnection
Dim strUpdate As String
Dim cmdUpdate As OledbCommand
Dim intRecordCount As Integer
conNorthwind=NewOledbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;
DATA Source =c:\Books.mdb")
strUpdate = "Update Books Set Author=@author_name Where bookName=@book_name"
cmdUpdate = New OledbCommand( strUpdate, conNorthwind )
cmdUpdate.Parameters.Add( "@book_name", txtBookName.Text )
cmdUpdate.Parameters.Add( "@author_name", txtAuthorName.Text )
conNorthwind. Open ()
intRecordCount = cmdUpdate.ExecuteNonQuery()
conNorthwind. Close ()
lblAuthor. Text = intRecordCount & " records updated!"
End Sub
</Script>
<html>
<body>
<form Runat="Server">
<h3>Update Book's Name</h3>
<b>Book Name</b>
<br>
<asp:TextBox
ID="txtBookName"
Runat="Server" />
<p>
<br>
<b>Author's Name</b>
<br>
<asp:TextBox
ID="txtAuthorName"
Runat="Server" />
<p>
<asp:Button
Text="Update Author"
OnClick="Button_Click"
Runat="Server" />
<p>
<asp:Label
ID="lblAuthor"
Runat="Server" />
</form>
</body>
</html>
|