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…
4 responses to “Data report visual basic 6.0 cetak dengan data terbaru”
Myou
Juli 29th, 2011 pukul 04:17
Agan, mw tny ni,
itu listingan di atas di taruh dmna ya?
Dan ada ga listingn’a yg lbh sdrhana lg..hhe..
N taro listg’a dmn aja klw mw buka/nutup data environment’a.?
Myou
Juli 29th, 2011 pukul 04:18
Oh ia, state= 1 tu apa ya mksd’a? 😀
sigit
Juli 30th, 2011 pukul 04:02
didalam perintah atau command untuk cetak.. atau bisa juga dibikin fungsi misal
Private Function CetakKePrint()
If DataEnvironment1.rsCetakTiket.State = 1 Then
DataEnvironment1.rsCetakTiket.Close
End If
DataEnvironment1.rsCetakTiket.Open (” select nama, alamat, notelp, ” & _
” nokursi, tujuan, tglberangkat,jamberangkat, ” & _
” bayar from penumpang where tujuan = ‘” & TxtJur.Text & “‘ and jamberangkat = ‘” & TxtJam.Text & “‘ and nokursi = ‘” & TxtKursi.Text & “‘ and nopemberangkatan = ‘” & TxtNo.Text & “‘ “)
CetakTiket.Sections(“Section1”).Controls(“Operator”).Caption = FormUtama.Label1.Caption
CetakTiket.LeftMargin = 0
CetakTiket.RightMargin = 0
CetakTiket.BottomMargin = 0
CetakTiket.TopMargin = 0
CetakTiket.WindowState = 2
‘CetakTiket.ReportWidth = 3600
Printer.CurrentX = 0
DataEnvironment1.rsCetakTiket.Requery
CetakTiket.Refresh
CetakTiket.PrintReport
DataEnvironment1.rsCetakTiket.Close
End Function
trus bikin command dengan nama CmdCetak isinya sbb:
Private Sub CmdCetak_Click()
CetakKePrint
End Sub
state=1 berarti koneksi masih berjalan, jadi harus di tutup dulu.
puji
Juni 14th, 2013 pukul 09:48
ko tetap g mu di refresh ya..??
selalu ad pesan “failed getting rowset(s) from current data source”
it kenapa ya?