VB6: Format Number pada Datagrid

Artikel kali ini Rani coba menanggapi komentar Ahman Fadholi.
Untuk cara menampilkan data mysql ke datagrid lihat detail nya disini:
http://rani-irsan.blogspot.com/2011/04/2-menampilkan-data-di-datagrid.html

Kita akan menampilkan field harga pada table produk, struktur table produk adalah sebagai berikut:
CREATE TABLE `produk` (
  `kodeproduk` varchar(10) NOT NULL,
  `namaproduk` varchar(50) NOT NULL,
  `harga` double NOT NULL,
  `createddate` datetime NOT NULL,
  `createdby` varchar(50) NOT NULL,
  `modifieddate` datetime DEFAULT NULL,
  `modifiedby` varchar(50) DEFAULT NULL,
  PRIMARY KEY (`kodeproduk`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1


Isi dari table




Untuk menambah kan format numerik tambahkan code berikut:
grdData.Columns(2).NumberFormat = "#,##0.00"
grdData.Columns(2).Alignment = dbgRight

Kode lengkap nya pada Event Form_Load
Private Sub Form_Load()
On Error GoTo errHandler

Dim l As Long

Open_Connection

'Load Data
sSQL = "select kodeproduk, namaproduk, harga from produk"
Set rsMySQL = oConn.Execute(sSQL)

Set grdData.DataSource = Display_Data(rsMySQL)

'Setting grid
With grdData
    .Columns(0).Caption = "Kode"
    .Columns(1).Caption = "Nama"
    .Columns(2).Caption = "Harga"
    .Columns(0).Width = 1000
    .Columns(1).Width = 2000
    .Columns(2).Width = 1000
   
    .Columns(2).NumberFormat = "#,##0.00"
    .Columns(2).Alignment = dbgRight

End With

rsMySQL.CloseRecordset
Set rsMySQL = Nothing

Exit Sub
errHandler:
MsgBox "Error on: frmHarga" & vbCrLf & "Event: Form_Load" & _

vbCrLf & "Err No. " & Err.Number & vbCrLf & Err.Description
End Sub


Coba run debug:


Click here if you like this article.


Post a Comment

3 Comments

Ahmad Fadholi said…
terima kasih banyak mbak rani...
posting Anda selanjutnya akan selalu saya tunggu.
Anonymous said…
Terima kasih telah berbagi tutornya gan
Mampir ke blog sederhana saya
http://nyekripvb6.blogspot.com