Konversi Titik ke Koma Bilangan Desimal MySql Menggunakan VB6

Dalam pembuatan sebuah sistem khususnya menggunakan bahasa pemrograman Visual Basic 6.0 dengan database MySQL Server pernah kita menemui error dikala save data berupa numeric dengan type desimal, katakanlah kita akan menyimpan nilai numeric pecahan 1.2 pada field yang bertype double. MySQL Server menerima data tersebut dengan format 1,2 dan pada saat kita akan menampilkan data tersebut pada sebuah objek berupa texbox akan tampil 1,2 bukan 1.2 seperti yang kita inputkan diawal tadi. Apabila kita teruskan dengan menyimpan format angka 1,2 yang tampil pada textbox secara otomatis akan error. Untuk mengatasi kasus seperti diatas menurut pengalaman admin, bisa menggunakan function replace dengan cara (Replace,TextBox,",",".").

Sekarang kita akan coba mempraktikkannya, buatlah sebuah database dengan nama dbbelajar dengan tabel tblpenjualan dengan beberapa susunan field sebagai berikut

1. Penjualan int(11) DEFAULT '0'

2. PPN double(15,4) DEFAULT '0.0000'

3. Subtotal int(11) DEFAULT '0'

Buka Microsoft Visual Basic 6.0 - StandartEXE - Form1 dan tambahkan beberapa komponen seperti dibawah ini

1. Label

2. TextBox

3. CommandButton

LINK DOWNLOAD

Konversi Titik ke Koma Bilangan Desimal MySql Menggunakan VB6

Buatlah beberapa variabel dan sub koneksi ke database seperti dibawah ini : 

Public CN As New ADODB.Connection
Public xRsJual As New ADODB.Recordset
Sub Koneksi()
CN.CommandTimeout = 0
If CN.State Then
   CN.Close
   CN.CursorLocation = adUseClient
   CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
   "SERVER=localhost;Port=3306;DATABASE=dbbelajar;" & _
   "UID=root;PWD=;OPTION=3"
   CN.Open
Else
   CN.CursorLocation = adUseClient
   CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
   "SERVER=localhost;Port=3306;DATABASE=dbbelajar;" & _
   "UID=root;PWD=;OPTION=3"
   CN.Open
End If
End Sub

Kemudian panggil Sub Koneksi pada prosedur Form_Load

Text1 (TextBox Total Penjualan)

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
   Beep
   KeyAscii = 0
End If
End Sub

 Text2 (TextBox PPN)

Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 48 To 57, 46
    Case Else
        Beep
        KeyAscii = 0
End Select
End Sub

Private Sub Text2_LostFocus()
Dim aItem
aItem = Split(Text2.Text, ".")
nItem = UBound(aItem)
If nItem > 1 Then
   MsgBox "Titik angka desimal tidak boleh lebih dari 1 !", vbExclamation, "Perhatian"
   Text2.Text = ""
   Exit Sub
End If
End Sub

Command1 (Simpan Data)

Private Sub Command1_Click()
CN.Execute "insert into tblpenjualan (Penjualan,PPN,Subtotal) values ('" & Text1.Text & "','" & Text2.Text & "','" & Text1 * Replace(Text2, ".", ",") / 100 & "')"
End Sub

Command2 (Tampilkan Data)

Private Sub Command2_Click()
Set xRsJual = CN.Execute("tblPenjualan")
If Not xRsJual.EOF Then
   Text1.Text = xRsJual.Fields("penjualan")
   Text2.Text = Replace(xRsJual.Fields("PPN"), ",", ".")
End If
xRsJual.Close
End Sub

Perhatikan baik-baik letak syntak diatas dengan komponen-komponennya, setelah selesai simpan dan jalankan (F5) coba inputkan data pada textbox untuk PPN inputkan nilai angka pecahan menggunakan titik (.) kemudian simpan dan cek pada tabel maka data yang bernilai pecahan (desimal) telah tersimpan. Kemudian coba klik tombol tampilkan data akan tampil sesuai dengan yang diinputkan baik nilai angka PPN yang berupa pecahan.