Saudara Fausan, Kalau saya lihat perintah yang dijalankan itu pakai proses DAO, proses ini memang sangat flexible apa pun masalahnya bisa di atasi dengan proses perulangan. Proses perulangan itu memiliki kelemahan, data akan diputar sesuai dengan kondisi tertentu dan ini jika datanya banyak terus, jarak klien terhadap server juga mempengaruhi lamanya proses data. Saya sarankan usahakan data yang diambil pakai Sub Query, sebagai contoh insert into table.name_a (a,b) select a, b from table.name_b where ...., saya sudah merasakan dengan proses seperti ini data yang kita masukan jauh lebih cepat dibanding dengan proses perulangan. Sekian mudah-mudahan membantu.
----- Pesan Asli ---- Dari: Fauzan Khoirul <[EMAIL PROTECTED]> Kepada: [email protected] Terkirim: Kamis, 28 Februari, 2008 10:21:14 Topik: [Programmer-VB] Tanya Query Lambat Sebelumnya, salam kenal Kulo programmer pemula VB,mau tanya masalah SQL, Kulo punya script sbb : Private Sub Cetak_reportNew( KO_bpw As Integer) Dim tgBPW As Date Me.MousePointer = vbHourglass Dim KoUnit, bdr, prb, rbk, JumBDR, JumPRB, JumRBK As Long KoUnit = 0: bdr = 0: prb = 0: rbk = 0 JumBDR = 0: JumPRB = 0: JumRBK = 0: Jumrec = 0 Set Rec2 = Nothing Set Rec3 = Nothing Cls NOKAR = "" tgBPW = tG1 For Nox = tG1 To tG2 sql = "SELECT distinct detail_jual. negara " & _ "FROM ((BPW INNER JOIN Penjualan ON BPW.Kode_BPW = Penjualan.Kode_ BPW) INNER JOIN Detail_Jual ON Penjualan.No_ ID = Detail_Jual. No_ID) INNER JOIN Item_Jual ON Penjualan.No_ ID = Item_Jual.No_ ID " & _ "Where (((Detail_Jual. Status) = True)) and penjualan.kode_ bpw=" & KO_bpw & " and tgl_klik = #" & Format(Nox, "mm/dd/yyyy" ) & "#" Set Rec3 = ConServer.Execute( sql) While Not Rec3.EOF sql = "SELECT DISTINCT BPW.Nama_BPW, BPW.Alamat, BPW.No_Telp, Tgl_klik, Detail_Jual. ID_Karcis1, Detail_Jual. No_Karcis1, Detail_Jual. Negara,tgl_ beli,HARGA " & _ "FROM ((BPW INNER JOIN Penjualan ON BPW.Kode_BPW = Penjualan.Kode_ BPW) INNER JOIN Detail_Jual ON Penjualan.No_ ID = Detail_Jual. No_ID) INNER JOIN Item_Jual ON Penjualan.No_ ID = Item_Jual.No_ ID " & _ "Where (((Detail_Jual. Status) = True)) and status=true and penjualan.kode_ bpw=" & KO_bpw & " and detail_jual. negara='" & Rec3!negara & "' and tgl_klik = #" & Format(Nox, "mm/dd/yyyy" ) & "#" ' order by tgl_klik,Detail_ Jual.No_Karcis1 asc" Set Rec2 = ConServer.Execute( sql) While Not Rec2.EOF QtyKar(Jumrec) = Rec2!no_karcis1 Jumrec = Jumrec + 1 If NOKAR = "" Then NOKAR = NOKAR & Format(Rec2! no_karcis1, "0#####") Else NOKAR = NOKAR & "," & Format(Rec2! no_karcis1, "0#####") End If tbeli = Rec2!TGL_beli nb = Rec2!nama_bpw hrg = Rec2!Harga neg = Rec2!negara Rec2.MoveNext Wend Urut If QtyKar(Jumrec) <= 0 Then Jumrec = Jumrec - 1 If NOKAR <> "" Then Rec1.AddNew Rec1!tgl_jual = Nox 'Rec2!TGL_klik Rec1!TGL_beli = tbeli 'Rec2!TGL_BELI Rec1!nama_bpw = nb ' Rec2!nama_bpw Rec1!Harga = hrg 'Rec2!HARGA Rec1!negara = neg 'Rec2!negara Rec1!seri_karcis = NOKAR ' Rec2!id_karcis1 & "." & Format(Rec2! no_karcis1, "0#####") & "" Rec1!Jum = Jumrec + 1 Rec1.Update End If NOKAR = "" hrg = 0 Jumrec = 0 Rec3.MoveNext Wend Next Nox Rec1.Requery Me.MousePointer = Default End Sub Catatan Tambahan: - jarak client ke server sekitar 80 Km - jaringan pake wirelles - kecepatan data dengan kapasitas 1000 bytes - TTL=400-700 Permasalahannya : - Transaksi lama <lap. 1 hari krlbh 5 menit> - Apa query blm optimal? - Mohon saran Terima kasih sebelumnya ____________ _________ _________ _________ _________ _________ _ Never miss a thing. Make Yahoo your home page. http://www.yahoo. com/r/hs <!-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#0000ff;text-decoration:none;} --> <!-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} --> <!-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} --> ________________________________________________________ Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
