Arsip: penjumlahan pada database..

 
user image
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...
user image
more 18 years ago

mas_kofa

coba pake kompoenen TQuery
user image
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..
user image
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...
user image
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
user image
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?
user image
more 18 years ago

ivan

pake QuotedStr: SELECT SUM(tagihan) as Total FROM tbl_tagihan WHERE ID = '+QuotedStr(Edit1.Text)+'
user image
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..
user image
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
Share to

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

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com