gagal karena ada kesalahan pada query-nya. kalo SUM harus ditambahkan GROUP BY
setelah kondisi.
--- On Sat, 7/4/09, sherinalavenda <sherinalave...@yahoo.com> wrote:
From: sherinalavenda <sherinalave...@yahoo.com>
Subject: [Programmer-VB] help.. perintah sql sum
To: Programmer-VB@yahoogroups.com
Date: Saturday, July 4, 2009, 3:19 PM
Dim jumlahe As Double
Do While Not rstbarang.EOF
txtKDBRG.Text = rstbarang.kode
txtNMbrg.Text = rstbarang.namabaran g
Do While Not rstsales.EOF
txtSales.Text = rstsales.nip
a = "select sum(keluar)as jumlahe from tbkartustock WHERE nip='" &
txtSales.Text & " '"
a = a & "and kode='" & txtKDBRG.Text & " ' "
a = a & "and tanggal between #" & Format(DTPicker1. Value, "MM/dd/yyyy"
) & "# and #" & Format(DTPicker2. Value, "MM/dd/yyyy" ) & "# "
txtKeluarRokok. Text = jumlahe
Adodc11.RecordSourc e = a
Adodc11.Refresh
rstsales.MoveNext
Loop
rstbarang.MoveNext
Loop
sy bermaksud melakukan filter tsb diatas tapi gagal.
apakah meletakkan hasil sum kedalam textbox dapat dilakukan?
mohon petunjuknya. trims
