Bismillahirrohmanirrohiim…
Mungkin temen-temen rada bingung ketika mencetak dengan datareport kok datanya ga berubah setelah adanya update data. Kenapa?? kok bisa gitu ya?? Jawabanya mari kita tanyakan kepada rumput yang bergoyang… hlllaaahhh…. Mungkin itu karena koneksi di Dataenvironmentnya masih terbuka dan belum tertutup, makanya datanya masih pake data yang lama. Sebelum perintah melakukan query dan cetak, seharusnya koneksi Dataenvironmentnya di tutup dulu.. misal gini sourcenya

If DataEnvironment1.rsLapRingkas.State = 1 Then
DataEnvironment1.rsLapRingkas.Close
End If

DataEnvironment1.rsLapRingkas.Open (” select NoPemberangkatan, tujuan,JamBerangkat, ” & _
” COUNT(NoKursi)AS kursi, SUM(bayar) AS totalbayar FROM penumpang WHERE JamBerangkat’Dibatalkan’ AND JamBerangkat’Jadwal Batal'” & _
” AND tujuan =’JOGJA – CILACAP’ and tglberangkat = ‘” & LblTgl.Caption & “‘ GROUP BY JamBerangkat”)

LapRingkas.Sections(“Section5”).Controls(“Operator”).Caption = FormUtama.Label1.Caption
LapRingkas.Sections(“Section2”).Controls(“LblTgl”).Caption = LblTgl.Caption
LapRingkas.Sections(“Section2”).Controls(“Jurusan”).Caption = OptJ.Caption
LapRingkas.LeftMargin = 0
LapRingkas.RightMargin = 0
LapRingkas.BottomMargin = 0
LapRingkas.TopMargin = 0
LapRingkas.WindowState = 2
Printer.CurrentX = 0
LapRingkas.PrintReport
Printer.EndDoc
Printer.KillDoc
End If

selesai…

Iklan