cara-memformat-angka-ribuan-dalam-textbox-vbnet
Imports System.Data.OleDb
Public Class form1
Public Conn As OleDbConnection
Public da As OleDbDataAdapter
Public ds As DataSet
Public cmd As OleDbCommand
Public rd As OleDbDataReader
Dim f As Double
Public Sub Koneksi()
Conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=PENJUMLAHAN.mdb")
Conn.Open()
End Sub
Sub Tampilkan()
da = New OleDbDataAdapter("Select * from TABLE1", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds)
DGV.DataSource = (ds.Tables(0))
DGV.Columns(0).DefaultCellStyle.Format = "###,###,###"
DGV.Columns(1).DefaultCellStyle.Format = "###,###,###"
DGV.Columns(2).DefaultCellStyle.Format = "###,###,###"
DGV.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DGV.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DGV.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DGV.ReadOnly = True
End Sub
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Koneksi()
Call Tampilkan()
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
TextBox1.Text = FormatNumber(TextBox1.Text, 0) 'ini format angka
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Text = FormatNumber(TextBox2.Text, 0) ' ini format angka
TextBox3.Text = Val(Microsoft.VisualBasic.Str(TextBox1.Text)) + Val(Microsoft.VisualBasic.Str(TextBox2.Text))
TextBox3.Text = FormatNumber(TextBox3.Text, 0) 'ini format angka
Button1.Focus()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd = New OleDbCommand("insert into TABLE1 values ('" & Microsoft.VisualBasic.Str(TextBox1.Text) & "','" & Microsoft.VisualBasic.Str(TextBox2.Text) & "','" & Microsoft.VisualBasic.Str(TextBox3.Text) & "')", Conn)
cmd.ExecuteNonQuery()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox1.Focus()
Call Tampilkan()
End Sub
End Class