<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<asp:GridView ID="GridView1" runat="server" DataSourceID="ObjectDataSource1">
<Columns>
<asp:CommandField ShowEditButton="True" />
</Columns>
</asp:GridView>
<asp:ObjectDataSource ID="ObjectDataSource1" runat="server" SelectMethod="getAuthors" TypeName="Authors" UpdateMethod="updateAuthors">
<UpdateParameters>
<asp:Parameter Name="au_id" Type="String" />
<asp:Parameter Name="au_fname" Type="String" />
<asp:Parameter Name="au_lname" Type="String" />
</UpdateParameters>
</asp:ObjectDataSource>
</div>
</form>
</body>
</html>
File: ~\App_Code\Authors.cs
Imports System.Data.SqlClient
Imports System.Data
Imports Microsoft.VisualBasic
Public Class Authors
Public Function getAuthors() As DataSet
Dim conn As New SqlConnection( ConfigurationManager.ConnectionStrings("pubsConnectionString").ConnectionString)
Dim adapter As New SqlDataAdapter( "SELECT au_id, au_fname, au_lname FROM Authors", conn)
Dim ds As New DataSet
adapter.Fill(ds, "Authors")
Return ds
End Function
Public Sub updateAuthors(ByVal au_id As String, ByVal au_fname As String, ByVal au_lname As String)
Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings ("pubsConnectionString").ConnectionString)
Dim adapter As New SqlDataAdapter( "SELECT au_id, au_fname, au_lname " & "FROM Authors WHERE au_id=@au_id", conn)
Dim ds As New DataSet
adapter.SelectCommand.Parameters.Add( "@au_id", SqlDbType.NVarChar, 11).Value = au_id
adapter.Fill(ds, "Authors")
With ds.Tables(0).Rows(0)
.Item("au_fname") = au_fname
.Item("au_lname") = au_lname
End With
Dim cb As New SqlCommandBuilder(adapter)
adapter.Update(ds, "Authors")
End Sub
End Class
|