CSharp Objectdatasource And Backend Database – ADO.Net Database

<%@ 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.csImports System.Data.SqlClient
Imports System.DataImports Microsoft.VisualBasicPublic 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 SubEnd Class

Enjoyed this post? Share it!

 

Leave a comment

Your email address will not be published.