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.
