Me-refresh DataReport pada VB 6

Kemarin ditagih utang : "hayo mana contoh program akses database full coding?!"

Yup, memang tidak ada kaitannya dengan judul. Tapi si penagih hutang lalu bertanya mengenai cara merefresh tampilan pada DataReport. Soalnya contoh yang saya beri beberapa waktu yang lalu tidak lengkap (sorry... hehehe).

Oh ya, DataReport merupakan fasilitas yang sudah ada di dalam Visual Studio 6. Sesuai namanya, DataReport digunakan untuk membuat laporan / report yang akan dicetak melalui printer.

DataReport merupakan alternatif untuk membuat laporan jika kita tidak memiliki program CrystalReport yang lebih populer.

Berikut source code VB 6 untuk memperbarui / me-refresh tampilan pada DataReport :

Private Sub btnLaporan_Click()
   If DataEnvironment1.rsCommand1.State = 1 Then
       DataEnvironment1.rsCommand1.Close
   End If

   DataEnvironment1.rsCommand1.Open
   DataEnvironment1.rsCommand1.Requery
   DataReport1.Refresh
   DataReport1.Show
   DataEnvironment1.rsCommand1.Close
End Sub

Nah, berarti utang saya sudah lunas too... eh belum ya.. hihihi