Inherits Class

การใช้ Inherits เป็นการสืบทอดสิ่งต่างๆจากพ่อมาสู่ลูก แต่ในที่นี้จะกล่าวถึงการใช้เพื่อช่วยลดการปะรกาศตัวแปรที่ต้องใช้บ่อยๆ เพื่อง่ายต่อการเขียนโปรแกรมหรือการแก้ไขโปรแกรมครับ

ข้อดี - ทำให้โปรแกรมเมอร์ไม่ต้องทำการประกาศตัวแปรทุกๆหน้า ลดเวลาการเขียนโปรแกรมไปได้เยอะพอสมควรครับ ^^"

1. สร้างไฟล์ที่เป็น Class.vb ขึ้นมา 1 ไฟล์โดยมี Code ดังนี้
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient

Public Class CVariables
Inherits System.Web.UI.Page

   Public Conn As New SqlConnection(ConfigurationManager.ConnectionStrings("conn_db").ConnectionString) 'ตัวแปรติดต่อฐานข้อมูล โดยให้ไปเอารูปแบบการติดต่อฐานข้อมูลจากไฟล์ web.config

   Public Sql As String 'เพื่อเก็บ Sql Query
   Public Da As SqlDataAdapter 'ใช้ในการสร้างสะพานเชื่อมต่อระหว่างฐานข้อมูลกับ DataSet
   Public ds As New DataSet 'ใช้ในการเก็บข้อมูลในรูปแบบ DataTable
   Public SqlTran As SqlTransaction 'ใช้ในการสร้าง Transaction ในกรณีไฟดับข้อมูลที่ฐานข้อมูลจะได้ไม่เสียหาย หรือผิดพลาด
   Public drow As DataRow 'ใช้ในการเก็บข้อมูลในลักษณะ Rows ใช้ในกรณีเพื่อข้อมูลลง DataSet
   Public Ocb As SqlCommandBuilder 'ใช้เป็นตัวที่เชื่อมต่อกับฐานข้อมูลเพื่อเอาข้อมูลจาก DataSet ไป Update ในฐานข้อมูล
   Public Cmd As SqlCommand 'ใช้ในการสั่งให้ Sql Query ถึงฐานข้อมูลเลย อาทิเช่น Insert, Update, Delete เป็นต้น

End Class

2. สร้างไฟล์ aspx ขึ้นมา 1 ไฟล์ดังนี้
Imports System.Data
Imports System.Data.SqlClient

Partial Class _Default
'Inherits System.Web.UI.Page
Inherits CVariables

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   sql = "select statement"
End Sub
End Class

3. สังเกตได้ว่าไฟล์ aspx จะสามารถเรียกใช้งานตัวแปรที่ชื่อว่า sql ได้เลยโดยไม่ต้อง dim อีกต่อไปครับ