Mega Code Archive

 
Categories / ASP.Net Tutorial / ADO Net Database
 

Creating a Customer class to demonstrate the ObjectDataSource control (VB)

<!DOCTYPE  html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> </script> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server">     <title>Untitled Page</title> </head> <body>     <form id="form1" runat="server">     <div>        <asp:ObjectDataSource ID="ObjectDataSource1" runat="server" DeleteMethod="Delete"             InsertMethod="Insert" SelectMethod="Select" TypeName="Customer"             UpdateMethod="Update">             <SelectParameters>                 <asp:QueryStringParameter Name="customerID" QueryStringField="ID"                     Type="Int32" />             </SelectParameters>         </asp:ObjectDataSource>     </div>     </form> </body> </html> File: App_Code\Customer.vb Imports Microsoft.VisualBasic Public Class Customer     Private _customerID As Integer     Private _companyName As String     Private _contactName As String     Private _contactTitle As String     Public Property CustomerID() As Integer         Get             Return _customerID         End Get         Set(ByVal value As Integer)             _customerID = value         End Set     End Property     Public Property CompanyName() As Integer         Get             Return _companyName         End Get         Set(ByVal value As Integer)             _companyName = value         End Set     End Property     Public Property ContactName() As Integer         Get             Return _contactName         End Get         Set(ByVal value As Integer)             _contactName = value         End Set     End Property     Public Property ContactTitle() As Integer         Get             Return _contactTitle         End Get         Set(ByVal value As Integer)             _contactTitle = value         End Set     End Property     Public Function [Select](ByVal customerID As Integer) As System.Data.DataSet         ' You would implement logic here to reterive         ' Customer data based on the customerID parameter         Dim ds As New System.Data.DataSet()         ds.Tables.Add(New System.Data.DataTable())         Return ds     End Function     Public Sub Insert(ByVal c As Customer)         ' Implement Insert logic     End Sub     Public Sub Update(ByVal c As Customer)         ' Implement Update logic     End Sub     Public Sub Delete(ByVal c As Customer)         ' Implement Delete logic     End Sub End Class