mau ikutan komentar... bagaimana klo di search dulu datanya pakai select all dari table master lalu kemudian dibuat perulangan untuk memasukkan data yg ketemu kedalam table baru sampai semua data yang ketemu habis.
On Fri, Jul 2, 2010 at 5:12 PM, arif ipul <[email protected]> wrote: > > > 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... > > > -- Thx Regards Evan Sent from my NOKIA® smartphone from Indosat M3, "Disini kami menyebutnya teknologi yang mengerti anda" [Non-text portions of this message have been removed] ------------------------------------ Untuk berhenti berlangganan kirim email kosong ke : [email protected]. Untuk forum diskusi lainnya kunjungi : http://www.geocities.com/indoprog Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/indoprog-vb/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> To unsubscribe from this group, send an email to: [email protected] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
