Tolong pilih kategori sesuai, jenis posting (pertanyaan atau bukan) dan sertakan tag/topik yang sesuai misal komputer, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus.
Mencantumkan kode program di posting Anda, tolong ikuti aturan yang sesuai, baca http://diskusiweb.com/discussion/39204/aturan-cara-menyisipkan-kode-program-di-diskusiweb
Kalau email konfirmasi tidak masuk-masuk, tolong cek folder Spam di email Anda.
hitung data di dbgrid
  • Halo semuanya saya mo tanya bgaimana cara menghitung total data yang diinputkan, melalui dbgrid. Saya menginputkan beberapa data kemudian ditampilkan di grid. Semacam invoice begitu, saya inputkan jumlah barang, harga kemudian pada grid tampil harga totalnya juga yaitu perkalian jumlah dg harga. saya ingin menghitung total yang ada di kolom harga total tersebut kemudian dimasukkan dalam textbox agar bisa diproses lebih lanjut. saya menggunakan vis data utk data basenya. Mohon pencerahannya terimakasih....
  • Coba mainkan disintax sqlnya mas

    misal:

    s = "select kode,nama,harga,jml,harga*jml as total from invoice"

    if rs.state = 1 then rs.close
    rs.open s
    set datagrid.datasoruce = rs
  • maksudnya rs itu apa? perintah state setelah rs kok ga ada di list? yang saya maksud begini

    tabel dbgrid sudah menampilkan jumlah, item,harga satuan dan harga total...cuma saya ingin menjumlah di kolom harga total sesuai dengan yang diinputkan ke dalam textbook:
    ex
    juml item harga harga total
    2 a 100 200
    3 g 50 150
    1 t 120 120
    saya mau menjumlah di kolom harga total (jumlahnya kan 470)
    dan saya masukkan di textbook
    begitu.....
  • maaf sebelumnya jika saya salah tangkap tentang pertanyaan bung counter1876.

    variable rs diatas merupakan variable ADO.
    Coba code nya dipost biar saya lebih jelas memahaminya

    kalau saya biasnya untuk melakukan pentotalan seperti itu saya memakai flexgrid.
    tapi kalau menggunakan datagrid cara diatas juga saya sering pakai
  • cagecage
    Posts: 118
    Anda kan sudah berhasil memasukan data ke dalam datagrid berikut dengan jumlah harganya kan. trus yang jadi permasalahan kan cuman bagaimana menghitung grand total dari total harga tersebut trus hasilnya ditampilkan ke dalam kontrol textbox / label kan.

    Begini dalam setiap kontrol datagrid seharusnya memiliki alamat (address) dari kolom, baris dan atau cell. Anda tinggal mendapatkan value dari cell / kolom total harga tersebut dan melakukan penjumlahan total harga tadi, trus tampilkan hasilnya ke kontrol textbox. Ingat dalam datagrid index alamat kolom selalu dimulai dari 0.

    == Semoga Membantu ==
  • Sebelumnya terima kasih atas bantuan solusinya... maaf2x byk kesalahan yg saya tulisankan diatas :) maklum buru2. Saya memang pemula dalam hal programming jadi saya masih bingung dengan penjelasan mas2 sekalian,apa berarti tidak pakai sql dalam menangani hal ini, ini code program saya sertakan skalian :

    Dim dbPembelian As Database
    Dim rsBarang As Recordset

    Private Sub cmdBatal_Click()
    txtNoNota.SetFocus
    BlankForm
    End Sub

    Private Sub cmdHapus_Click()
    Prompt$ = "Yakin ingin menghapus record ini ?"
    ulang = MsgBox(Prompt$, vbOKCancel, "Hapus Record")

    If DataPembelian.Recordset.EOF Then
    response = MsgBox("Data tidak ditemukan lagi !", 0, "Record Kosong")
    ElseIf ulang = vbOK Then
    DataPembelian.Recordset.Delete
    DataPembelian.Recordset.MoveFirst
    End If
    End Sub

    Private Sub cmdHitung_Click()
    DataPembelian.RecordSource = "SELECT SUM(total) FROM Invoice IN 'C:SIA_BarangDatabase_barang.mdb' "
    'DataPembelian.Refresh

    intmsg = MsgBox(DataPembelian.RecordSource, vbOKOnly, test)
    txtSubTotal.Text = Val(DataPembelian.RecordSource)
    End Sub


    Private Sub cmdKeluar_Click()
    Unload Me
    End Sub
    Private Sub BlankForm()
    txtNoNota.Text = ""
    txtItems.Text = ""
    txtJumlah.Text = ""
    txtHarga.Text = ""
    End Sub

    Private Sub cmdSimpan_Click()
    rsBarang.AddNew
    rsBarang!SubTotal = Val(txtSubTotal.Text)
    rsBarang!Potongan = Val(txtPotongan.Text)
    rsBarang!TotdiPotong = Val(txtdiPotong.Text)
    rsBarang!GrandTotal = Val(txtGrandTotal.Text)
    rsBarang.Update
    BlankForm
    txtNoNota.SetFocus
    End Sub

    Private Sub cmdTambah_Click()
    Dim sql As String
    Dim Ttl As Double

    'rsBarang.AddNew
    'rsBarang!no_invoice = txtNoNota.Text
    'rsBarang!tanggal = txtTanggal.Text
    'rsBarang!items = txtItems.Text

    'Ttl = Val(txtJumlah) * Val(txtHarga)

    'rsBarang!jumlah = Val(txtJumlah.Text)
    'rsBarang!harga = Val(txtHarga.Text)
    'rsBarang!total = Ttl
    'rsBarang.Update

    'If DataPembelian.Recordset.EOF = True Then
    'DataPembelian.Recordset.MoveFirst
    'End If
    DataPembelian.Recordset.AddNew
    DataPembelian.Recordset.Fields(0).Value = txtNoNota.Text
    DataPembelian.Recordset.Fields(1).Value = txtTanggal.Text
    DataPembelian.Recordset.Fields(2).Value = txtJumlah.Text
    DataPembelian.Recordset.Fields(3).Value = txtItems.Text
    DataPembelian.Recordset.Fields(4).Value = txtHarga.Text
    Ttl = Val(txtJumlah) * Val(txtHarga)
    DataPembelian.Recordset.Fields(5).Value = Ttl
    DataPembelian.UpdateRecord

    txtNoNota.Enabled = False
    txtItems.Text = ""
    txtJumlah.Text = ""
    txtHarga.Text = ""
    End Sub

    Private Sub Command1_Click()

    End Sub

    Private Sub Form_Load()
    Set dbPembelian = OpenDatabase("C:SIA_BarangDatabase_barang.mdb")
    Set rsBarang = dbPembelian.OpenRecordset("Invoice")

    txtTanggal.Text = Date
    BlankForm
    End Sub

    mohon maaf klo byk code yg tifak efisien ato salah maklum pemula...nah code untuk menghitung kolom total saya letakkan pada Private Sub cmdHitung_Click(), kode yang ada itu masih salah, dia tidak menampilkan hasil sql nya tapi malah menampilkan string sintak sql nya. Terima kasih.
  • kok masih g bisa ya mas Yudhist begitu ak klik tombol hitung nya malah keluar Object doesn't support this property or method...yang disorot txtSubTotal.Text = Val(DataPembelian.Recordset.Field(0)) nya. mungkin karena beda property nya y? yg recordsource tapi kok yg di bawah recordset

Selamat datang,

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

Tagged

Top Posters