Class SQL pada Module VB NET 2008

Kode Berikut Ketikan di dalam Module VB Net 2008:

Imports Microsoft.VisualBasic
Imports MySql.Data.MySqlClient

Public Class DB_MYSQL
Private varNamaDatabase As String = “”
Private varNamaTabel As String = “”
Private varNamaServer As String = “localhost”
Private varNamaUser As String = “root”
Private varPassword As String = “”
Private varTabelDeskripsi() As String = Nothing
Private varNilaiTabel() = Nothing
Private varPesan As String
Private varPrimaryKey As Integer = 0

Public LIST_OR_COMBO_BOX As New DB_COMBO
Public LIST_VIEW As New DB_VIEW

Private varKoneksi As MySqlConnection
Private varCON_STR As String
Private varPerintah As MySqlCommand
Private varPembaca As MySqlDataReader
Private varPerintahSql As String
Public Enum enumAksi
KONEK = 1
SIMPAN = 2
EDIT = 3
HAPUS = 4
CLOSE = 5
End Enum

Private varAksi As enumAksi

Public Event Setelah_Data_Terkoneksi(ByVal Pesan As String)
Public Event Setelah_Data_Tersimpan(ByVal Pesan As String)
Public Event Setelah_Data_Teredit(ByVal Pesan As String)
Public Event Setelah_Data_Terhapus(ByVal Pesan As String)
Public Event Ketika_Close(ByVal Pesan As String)
Public Event Setelah_Mencari(ByVal isNotNull As Boolean, ByVal Isi() As String)
Public Event Login(ByVal value() As String, ByVal isLogin As Boolean)

Continue reading

Pemakaian Fungsi Val() Pada VB.NET

Sesuai dengan nama panggilan ku ni… Val = Rival, 😀
setelah saya telusuri pemakaian fungsi val() pada vb.net, tujuannya yaitu mengubah string/text ke numerik. Untuk keterangan selanjutanya saya akan menampilkan penjelasan penggunaan Val() dalam VB.NRT, sebagai berikut:
Val() merupakan fungsi untuk mengubah nilai STRING pada sebuah properti Text di Textbox menjadi nilai Numerik. Continue reading