--- On Sat, 7/4/09, sherinalavenda <[email protected]> wrote:
From: sherinalavenda <[email protected]> Subject: [Programmer-VB] help.. perintah sql sum To: [email protected] 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 @ Meletakkan hasil Sum Kedalam textbox dapat dilakukan ini contoh dari saya : Dim url As String Public Function koneksi_data() As ADODB.Connection url = "PROVIDER=MICROSOFT.Jet.Oledb.4.0;Data source = " & App.Path & "\Data.mdb" Set koneksi_data = New ADODB.Connection koneksi_data.Open url End Function Private Sub Command1_Click() a = "select sum(StockBrg)as Hasil from barang,pesan,Po WHERE barang.Kdbarang = Pesan.kdBarang and Pesan.NoPo = Po.NoPo and " a = a & "PO.Tgl between # " & Format(DTPicker1.Value, "MM/dd/yyyy") & " # and # " & Format(DTPicker2.Value, "MM/dd/yyyy") & " # " a = a & "and barang.kdbarang LIKE '" & txtkd.Text & "'" Set rs = New ADODB.Recordset rs.Open a, koneksi_data, 1, 3 With rs If .RecordCount <> 0 Then txthasil.Text = !Hasil End If End With rs.Close End Sub semoga manjur........ Recent Activity 23 New Members Visit Your Group Give Back Yahoo! for Good Get inspired by a good cause. Y! Toolbar Get it Free! easy 1-click access to your groups. Yahoo! Groups Start a group in 3 easy steps. Connect with others. .
