Menghubungkan LynxGrid Dengan Database Di VB6

Salah satu kontrol dalam menampilkan data di visual basic 6 yang cukup menarik digunakan adalah LynxGrid. Lynxgrid mampu menampilkan data berdasarkan kriteria tertentu yang anda tetapkan. Mendukung penggunaan checkbox,button, binding control combobox, textbox dan masih banyak lagi. Kontrol ini mendukung theme atau skin yang bisa anda customise menurut selera anda.

Salah satu hal yang paling saya sukai adalah mampu mengedit data dalam tabel yang terbuka. Akan tetapi kontrol ini masih memiliki bug. Salah satunya jika anda menempatkan kontrol ini di atas suatu kontrol yang lain, misal di picture box, maka kontrol Lynxgrid akan menampilkan data sangat lambat sekali.

Tetapi kontrol LynxGrid ini masih layak untuk anda gunakan dalam pembuatan aplikasi anda. Kontrol LynxGrid selalu di update oleh pembuatnya yaitu Morgan Haueisen. Banyak sekali fitur-fitur yang sekiranya bisa anda gunakan

Fitur LynxGrid :

• Mampu mengganti warna cell Row maupun Column
• Gradasi warna antar Row
• Sorting tabel berdasarkan Asc maupun Desc
• Gruping data berdasarkan kriteria tertentu
• Mampu menampilkan format progress bar
• Pemilihan skin yang beragam
• Formating Cell berdasarkan kriteria tertentu
• Pewarnaan Cell berdasarkan kriteria tertentu, dan masih banyak lagi yang lainnya.

Pada tips ini akan kita coba untuk menampilkan data dari database MS Access ke dalam Kontrol LynxGrid. Ada beberapa prosedur yang bisa anda jalankan. Silakan anda kembangkan sendiri agar mencapai hasil yang maksimal menurut selera anda

Buka Visual Basic 6 anda, dan buatlah sebuah Module. Masukkan coding berikut

'Batas coding module--------------------------------------------------------------------------

Public CN As New ADODB.Connection
Public lRow As Long
Public Icol As Long

Public Sub KONEKSI()
On Error GoTo ErrorConnection
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.Open App.Path & "/data.mdb"

ErrorConnection:
If Err.Number = 3709 Then
    MsgBox "Gagal berkoneksi dengan database !!!", vbExclamation, "Koneksi Gagal"
    End
End If

'Akhir Batas coding module------------------------------------------------------------------------

Tujuan pembuatan module ini agar anda senantiasa leluasa mengubah database, bersadarkan path atau kondisi database tertentu.

Selanjutnya buat sebuah form, dan masukkan kontrol LynxGrid. Ceri nama kontrol tersebut sebagai 'LXDATA'. Lalu masukkan coding berikut :

Private Sub Form_Load()
PANGGIL
Set RECPINJAM = New ADODB.Recordset
RECPINJAM.Open "Select * From PEMINJAMAN WHERE STATUS='" & "Belum" & "' AND ID='" & TXTID & "'", CN, adOpenDynamic, adLockOptimistic

LXDATA.ClearAll
With LXDATA
.AddColumn "Kode Barang", 1800, lgAlignLeftCenter
.AddColumn "Nama Barang", 3200, lgAlignLeftCenter
.AddColumn "Merk", 2000, lgAlignLeftCenter
.AddColumn "Jumlah", 800, lgAlignCenterCenter, lgNumeric
.AddColumn "Kondisi", 2000, lgAlignLeftCenter
.AddColumn "Diterima", 1000, lgAlignCenterCenter, lgBoolean
.Redraw = True
End With

With RECPINJAM
For lngI = 1 To RECPINJAM.RecordCount
            LXDATA.AddItem .Fields("Kode_Barang") & vbTab & _
                           .Fields("Nama_Barang") & vbTab & _
                           .Fields("Merk") & vbTab & _
                           .Fields("Jumlah") & vbTab & _
                           .Fields("Kondisi") & vbTab & _
                           .Fields("Angka") & vbTab  & _
                           .Fields("Status")

            .MoveNext
         Next lngI
         
End With
End If

End Sub

Jika anda benar maka data akan tertampil seperti dalam gambar ini.

Itulah cara termudah dalam menampilkan data dari database. Silakan anda kembangkan sendiri.

Untuk mendownload kontrol LynxGrid silakan KLIK DISINI