22 February 2013

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.


3 comments:

Ahmad Fadholi said...

terima kasih banyak mbak rani...
posting Anda selanjutnya akan selalu saya tunggu.

Nurdin Budi Mustofa said...

Kalau mau ActiveX GridView Edit bisa ke sini....
Data Input Grid Control untuk VB6 (Free Download)

Tanfiidian Rohman said...

Terima kasih telah berbagi tutornya gan
Mampir ke blog sederhana saya
http://nyekripvb6.blogspot.com