Arsip: penjumlahan pada database..
more 18 years ago
divanda
saya sedang membuat program yang berhubungan dengan database, dan saya menggunakan ADO, databasenya access..
nah bagaimanakah cara menjumlah suatu field pada tabel tersebut.. jadi penjelasannya seperti ini. misal ada no ID 001 dan tagihannya ada 1000, 2000 dan 3000. bagaimana menjumlah tagihan dengan no ID yang telah difilter tadi? jadi ada button SUM UP yang fungsinya ketika diklik akan menjumlahkan tagihan tersebut.
sebelumnya ada fasilitas searching no ID dan setelah searching no ID maka akan tampil no ID yang dimaksud dan tagihannya.. ketika muncul beberapa tagihan bagaimana menjumlahkannya?
mohon pencerahannya, saya beginner delphi...
more 18 years ago
ivan
kalau mau cara mudahnya, bisa pake komponen TQuery dan gunakan perintah SQL.
misalnya:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT SUM(tagihan) as Total FROM tbl_tagihan WHERE ID = ' + QuotedStr('001'));
Query1.Open;
Edit1.Text:= 'Total Tagihannya adalah Rp. ' + Query1.FieldByName('total').AsString;
Mungkin itu kali yach yang dimaksud..
more 18 years ago
divanda
jadi begini.. sebelumnya ada fasilitas searching misalnya ID001, setelah itu muncul DBGrid khusus tagihan no ID 001.
nah menjumlahkannya bagaimana? kalo sintax diatas seperti ini
Query1.SQL.Add('SELECT SUM(tagihan) as Total FROM tbl_tagihan WHERE ID = ' + QuotedStr('001'));
itu kan ID nya ditentukan dari penulisan sintax.. nah kalo dari tabel yang ditampilkan bagaimana ya list nya?
trus kalo menggunakan komponen TQuery, brarti dalam 1 program bisa banyak TQuery ya?
maaf atas pertanyaan2 saya, saya masih bingung...
more 18 years ago
belajaraja
Salam
keterangan :
Edit1.text = tempat no Id nya ;
Edit2.text = tempat buat hasil penjumlahan;
Quaery yang di gunakan 1 aja.
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT SUM(tagihan) as Total FROM tbl_tagihan WHERE ID = " '+Edit1.Text+' " ');
Query1.Open;
Edit2.Text:= 'Total Tagihannya adalah Rp. ' + Query1.FieldByName('total').AsString;
Semoga membantu
more 18 years ago
divanda
kalo string di SQL nya apa ya? saya coba SELECT SUM(tagihan) as Total FROM tbl_tagihan WHERE ID = " '+Edit1.Text+' "
kok error ya..
tadinya di program saya ada ADOQuery1 yang isinya untuk menampilkan DBGrid isi seluruh tabel.. apa bisa dalam 1 ADOQuery ada 2 pperintah?
more 18 years ago
ivan
pake QuotedStr:
SELECT SUM(tagihan) as Total FROM tbl_tagihan WHERE ID = '+QuotedStr(Edit1.Text)+'
more 18 years ago
divanda
knapa kok teteap error dan errornya [Microsoft][ODBC Microsoft Access Driver] too few parameter.Expected 1
apakah ada yang perlu ditambahkan? parameter yang mananya.. apakah dalam 1 program setiap kita menambahkan query baru harus komponen Query lagi? apakah mungkin dalam 1 query ada 2 perintah SQL?
mohon pencerahannya.. sebelumnya terimakasih..
more 17 years ago
pp1979
mas2 delphi master..., gw newbie bgt, trus mo nanya juga.., klo pengurangan dan perkalian di delphi caranya gimana ya???
maaf klo salah post!!!!
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward
🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- install turbo delphi explorer
by wong_error in Hal umum tentang Pascal Indonesia more 18 years ago - Cara mengetahui database yang akan di Create sudah ada?
by onsir in MySQL more 18 years ago - Chart Of Account (COA) Program Akunting
by babypigs in Bedah Kasus more 17 years ago - tanya: baca/tulis sector dihardisk?
by labaga in Enginering more 20 years ago - Delphi ID ganti domain..??
by deLogic in Kritik & Saran more 20 years ago - menghilangkan bunyi pada edit saat dienter
by mocha15734 in Tip n Trik Pemrograman more 18 years ago - Cek status modem dari delphi
by sukuguci in Multimedia & Graphic Enhancement more 18 years ago - database access ..
by indray2j in Lain-lain more 18 years ago - error aplikasi
by wong_error in Hal umum tentang Pascal Indonesia more 18 years ago - nanya.....tentang metode search engine
by diah in Tutorial & Community Project more 18 years ago
