cara menampilkan data dari visual basic ke mic exel

Daftar Isi [Tampilkan]

cara menampilkan data dari visual basic ke microsoft exel - Sebelumnya saya pernah membahas tentang cara memunculkan isi tabel ke Datagrid, kali ini pembahasannya hampir sama, kita akan membahas cara memunculkan isi tabel ke MSFlexGrid. Jika kita menggunakan microsoft exel, coding yang digunakan sedikit lebih panjang dari pada menggunakan Datagrid, karena kita harus membentuk kolom dan baris secara manual menggunkan coding. Tidak seperti Datagrid yang kolom dan baris akan terbentuk secara otomatis mengikuti jumlah field dan record yang ada di tabel.

Sebagai contoh, saya punya sebuah database dengan nama "latihan1.mdb" (MS Access) dan sebuah tabel dengan nama "barang", kemudian saya entrikan beberapa buah record kedalam tabel tersebut. Detail dari tabel tersebut dapat dilihat pada gambar berikut ini :

Cara Menampilkan Data Dari Tabel Ke MSFlexGrid Di Visual Basic 6.0

Tambahkan 1 buah ADODC dan 1 buah MSFlexGrid ke Form, jika komponen ini tidak sobat temukan di Toolsbox, tambahkan komponen tersebut dengan cara menekan tombol CTRL+T dari keyboard. Pilih dan checklist Microsoft ADO Data Control 6.0 (OLEDB) dan Microsof Flexgrid Control 6.0, kemudian klik OK.

Selanjutnya, tambahkan kedua komponen tersebut ke form :

Disini saya tidak lagi membahas cara membuat program simpan, edit, delete lagi, pembahasan tentang itu bisa sobat pelajari pada posting saya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0.

Selanjutnya, masukkan coding berikut ini pada bagian General Declaration (paling atas) :

Public conn As ADODB.Connection
Public rs As ADODB.Recordset

Setelah itu kita buat koneksi databasenya, double klik pada form dan masukkan coding berikut ini tepat diantara Private Sub Form_Load() dengan End Sub :

Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Provider = "microsoft.jet.oledb.4.0"
conn.Open App.Path & "\latihan.mdb"

Sekarang kita buat procedure untuk membentuk kolom dan pemanggilan data dari tabel keMSFlexGrid. Caranya masukkan coding berikut ini di bagian yang kosong :

Private Sub tampilgrid()
Dim baris As Integer
Set rs = New ADODB.Recordset
rs.Open "select * from barang", conn, adOpenDynamic, adLockOptimistic

With MSFlexGrid1
.Cols = 5
.ColWidth(0) = 400
.ColWidth(1) = 1100
.ColWidth(2) = 1700
.ColWidth(3) = 1000
.ColWidth(4) = 1000
.ColAlignment(0) = flexAlignCenterCenter
.TextMatrix(0, 0) = "No"
.TextMatrix(0, 1) = "Kode Barang"
.TextMatrix(0, 2) = "Nama Barang"
.TextMatrix(0, 3) = "Satuan"
.TextMatrix(0, 4) = "Harga"

For baris = 1 To rs.RecordCount
DoEvents
.Rows = baris + 1
.TextMatrix(baris, 0) = baris
.TextMatrix(baris, 1) = _
rs.Fields(0)
.TextMatrix(baris, 2) = _
rs.Fields(1)
.TextMatrix(baris, 3) = _
rs.Fields(2)
.TextMatrix(baris, 4) = _
rs.Fields(3)
rs.MoveNext
Next baris
End With
End Sub

Agar fungsi ini berjalan saat form di running sisipkan coding call tampilgrid pada Form Load, sehingga coding di Form Load menjadi seperti berikut ini :

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Provider = "microsoft.jet.oledb.4.0"
conn.Open App.Path & "\latihan.mdb"

Call tampilgrid '<-- coding yang disisipkan
End Sub

Penjelasan dari coding diatas bisa sobat pelajari dengan mendownload project lengkapnya melalui link berikut ini :-

visual basic