naruhnya di form load, jangan di form active jangan buat cr aplication di atasnya ini .CrvRekap.ReportSource = Rpt ada .CrvRekap.Discardsavedate =True
-andre -senior programmer indosystem.net ada lowongan programmer vb6 jg di indosystem.net --- On Fri, 7/2/10, arif ipul <[email protected]> wrote: From: arif ipul <[email protected]> Subject: [indoprog-vb] Proses Query lama To: [email protected] Date: Friday, July 2, 2010, 6:12 AM Dear Suhu VB... mohon pencerahannya menganai coding berikut ini... sy punya masalah mengenai proses queri yg beigtu lama... ini query mindahkan data dari tabel master ke tabel temp. Private Sub XPButton1_Click() Dim rs As New ADODB.Recordset Dim lokasi_db As String Dim cn As New ADODB.Connection lokasi_db = "d:\Hardiskoe\Trans Adpel\transaksi.mdb" Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & lokasi_db & ";Persist Security Info=False" cn.Open cn.BeginTrans Set rs = cn.Execute(" DELETE * FROM temp") cn.CommitTrans cn.BeginTrans Set rs = cn.Execute(" INSERT INTO temp SELECT master.* FROM master WHERE namabulan = '" & CboBulan.Text & "' AND tahun = '" & CboTahun & "'") cn.CommitTrans Load FrmRekapitulasi FrmRekapitulasi.Show Unload Me End Sub ini listing pada FrmRekapitulasi Private Sub Form_Activate() Dim Rpt As Report Dim crApp As New CRAXDDRT.Application Set Rpt = crApp.OpenReport("d:\Hardiskoe\Trans Adpel\rekap.rpt") Rpt.EnableParameterPrompting = False With FrmRekapitulasi .Show .CrvRekap.ReportSource = Rpt .Caption = "Cetak Laporan Rekapitulasi Penerimaan" .CrvRekap.ViewReport .CrvRekap.Height = 10500 .CrvRekap.Width = 15000 .CrvRekap.Zoom 170 End With End Sub Pertannyaan saya adalah mengapa pada saat menampilkan report pada FrmRekapitulasi begitu lama (skitar 5-10 menit baru bisa tampil), setelah saya cek di tadabase pada menit2 pertama ternyata belum ada data yang masuk d tabel temp. kira2 masalahnya terletak pada bagian mana? sekedar info, sy menggunakan dabase accses.. mohon pencerahannya... [Non-text portions of this message have been removed]
