|
| |
| 18. 36. 11. 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
|
|
|