Salam Kenal,
Kulo programmer VB pemula,mau tanya masalah query. kulo gadah script :
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
Data tambahan :
- jarak client ke server sekitar 40 Km
- jaringan wireless radio Wrap-mikrotik
- jalur data 1000 Kbps TTL 400-1000
Permasalahan:
- Cetak laporanlama banget,utk transaksi 2 hari bisa sampai 10 menit
- Query kulo efektif ndak??
- Mohon pemecahannya
Terima kasih sebelumnya
