Filter Tanggal Pada Mshflexgrid (VB6)

Halo sobat, meneruskan postingan yang lalu yaitu mengenai Filter Data Menggunakan Textbox yang mana pada postingan tersebut menggunakan Textbox untuk mencari nama dan masih dengan Mshflexgrid sebagai media untuk menampung datanya. Dengan bantuan DTPicker, kita akan filter tanggal berdasarkan tanggal yang dipilih di DTPicker. Langsung saja kita buka program Visual Basic 6 nya.

• Tambahkan 1 Form : Form1 (Default)
• Tambahkan Microsoft ActiveX Data Objects 2.1 Library
  
  Caranya : Klik menu Project => References, lalu centang Microsoft ActiveX Data Objects 2.1 Library, Lalu klik OK
• Tambahkan Microsoft Hierarchical Flexgrid Control 6.0 (OLEDB)
  
  Caranya : Klik menu Project => Component, lalu centang Microsoft Hierarchical Flexgrid Control 6.0 (OLEDB), lalu klik OK 
• Tambahkan Microsoft Windows Common Control-2.6.0
  
  Caranya : Klik menu Project => Component, lalu centang Microsoft Windows Common Control-2.6.0, lalu klik OK
• Tambahkan 2 Buah DTPicker yaitu dengan nama : DTPicker1, DTPicker2 (Default)
• Tambahkan 2 Buah Command Button dengan nama : Command1, Command2 (Default)

Desain tampilan seperti dibawah ini (dapat desain sesuai keinginan sobat)

Script keseluruhan yang diterapkan seperti dibawah ini

Private Con As New ADODB.Connection
Private RS As New ADODB.Recordset
Private Sql As String

Private Sub Command1_Click()
    Set RS = New ADODB.Recordset
    Sql = "select *from TBL_Customer where tgl_buka>=#" & Format(DTPicker1.Value, "MM/dd/yyyy") & "# and tgl_buka<=#" & Format(DTPicker2.Value, "MM/dd/yyyy") & "#"
    RS.Open Sql, Con, adOpenStatic
    Call AturGrid
   
    Set MSHFlexGrid1.Recordset = RS
    RS.Close
End Sub

Private Sub Form_Load()
    'Membuka Koneksi ke database
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./LatihanFilterTgl.mdb;Persist Security Info=False"
   
    DTPicker1.Format = dtpCustom
    DTPicker1.CustomFormat = "dd/MM/yyyy"   'Format Tanggal DTPicker1
    DTPicker2.Format = dtpCustom
    DTPicker2.CustomFormat = "dd/MM/yyyy"   'Format Tanggal DTPicker2
   
    Set RS = New ADODB.Recordset
    Sql = "select *from TBL_Customer"
    RS.Open Sql, Con, adOpenStatic
    Call AturGrid
   
    Set MSHFlexGrid1.Recordset = RS
    RS.Close
End Sub
Private Sub Command2_Click()
    Unload Me   'Menutup Form
End Sub
Private Sub AturGrid()
    MSHFlexGrid1.ColWidth(0) = 0
    MSHFlexGrid1.ColWidth(1) = 2200
    MSHFlexGrid1.ColWidth(2) = 1200
    MSHFlexGrid1.ColWidth(3) = 1200
End Sub

 Berikut tampilan dengan script yang telah di terapkan didalamnya.

di bawah ini tampilan yang telah di filter berdasarkan tanggal yang di pilih.

Untuk source code nya silahkan dapat di download DISINI
Semoga Bermanfaat ....

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Admin (Ade Setiadi), Published at 3:47:00 PM and have 2 comments