Membuat Class Database SQL di VB Net

Membuat Class Database SQL di VB Net

Assalamualaikum dan salam bahagia, pada kesempatan ini saya ingin berbagi bagiamana cara membuat class database di VB Net

'panggildeklarasi header
Imports System.IO
'panggil deklarasi koneksi database
Imports System.Data.Sql
'panggil deklarasi koneksi database
Imports System.Data.SqlClient
'panggil class Settings.vb
Imports Inventory.Settings
'panggil deklarasi komponen DevExpress XtraGrid
Imports DevExpress.XtraGrid
'panggil deklarasi komponen DevExpress XtraCharts
Imports DevExpress.XtraCharts
'panggil deklarasi komponen DevExpress XtraEditors
Imports DevExpress.XtraEditors

Public Class Database
    'Grouping code atau deklarasi
#Region " SERVER "
    Public Class Server
        'memanggil deklarasi Read di class Settings.vb untuk membaca nama database host
        Private _Server As String = Read("database_host")
        'Deklarasi properti nama server
        Public Property Server() As String
            'Menampilkan nama database host setingan default program.ini
            Get
                Return _Server
            End Get
            'option jika nama databse host ingin dirubah
            Set(ByVal value As String)
                _Server = value
            End Set
        End Property
        'memanggil deklarasi Read di class Settings.vb untuk membaca nama password database
        Private _Password As String = Read("database_password")
        Public Property Password() As String
            'Menampilkan nama password database setingan default program.ini
            Get
                Return _Password
            End Get
            'option jika nama password database ingin dirubah
            Set(ByVal value As String)
                _Password = value
            End Set
        End Property
        Private _Database As String = Read("database_name")
        Public Property Database() As String
            'Menampilkan nama database setingan default program.ini
            Get
                Return _Database
            End Get
            'option jika nama database ingin dirubah
            Set(ByVal value As String)
                _Database = value
            End Set
        End Property
    End Class
#End Region
End Class




Untuk hari ini baru sampai sini he he, mohon ditunggu besok ya lanjutannya.