Arsip: bagaimana perintah sql untuk update 2 tabel yang berbeda
more 16 years ago
ricky_seldjatem
query2.Edit;
query2.FieldByName('jml_pinjam').Asfloat := query2.fieldbyname('jml_pinjam').AsFloat - query3.fieldbyname('potongan').AsFloat;
query2.Post;
bagaimana merubah perintah diatas memakai perintah update(sql) ? terima kasih
more 16 years ago
Bahrul_power
Mungkin seperti ini :
With Query1 do
begin
if active=true then close;
SQL.clear;
SQL.Add('select potongan from potongan where nasabahid=1');
open;
With Query2 do
begin
if active=true then close;
SQL.clear;
SQL.Add('Update nasabah set tot_pinjaman=tot_pinjaman- :pj '+
'where nasabahid=1');
prepared;
parameters[0].Value := DM.Q1.fields[0].AsString;
execsql;
end;
end;
more 16 years ago
ricky_seldjatem
saya sudah ikutin sesuai petunjuk, tapi masih ada error, messagenya "List Index out Bound" itu kenapa ya ? listing programnya seperti dibawah ini :
procedure TFGajiPegawai.SimpanClick(Sender: TObject);
begin
query3.SQL.Clear;
query3.SQL.Add('insert into gaji(no_slip,tgl,nopeg,nama,status,jabatan,gaji,tunjangan, ' +
' bonus,kd_pinjam,jml_pinjam,potongan,jml_hadir,total) values (:no_slip, ' +
' :tgl,:nopeg,:nama,:status,:jabatan,:gaji,:tunjangan,:bonus,:kd_pinjam,:jml_pinjam, ' +
' :potongan,:jml_hadir,:total)');
query3.Prepare;
query3.parambyname('no_slip').AsString:=edit1.Text;
query3.parambyname('tgl').AsString:=edit2.Text;
query3.parambyname('nopeg').AsString:=edit3.Text;
query3.parambyname('nama').AsString:=edit4.Text;
query3.parambyname('status').AsString:=edit14.Text;
query3.parambyname('jabatan').AsString:=edit5.Text;
query3.parambyname('gaji').AsString:=edit6.Text;
query3.parambyname('tunjangan').AsString:=edit7.Text;
query3.parambyname('bonus').AsString:=edit8.Text;
query3.parambyname('kd_pinjam').AsString:=edit9.Text;
query3.parambyname('jml_pinjam').AsString:=edit10.Text;
query3.parambyname('potongan').AsString:=edit11.Text;
query3.parambyname('jml_hadir').AsString:=edit12.Text;
query3.parambyname('total').AsString:=edit13.Text;
query3.ExecSQL;
query3.SQL.Clear;
query3.SQL.Add('select potongan from gaji where no_slip=1');
query3.Open;
query2.sql.Clear;
query2.SQL.Add('Update pinjam set jml_pinjaman=jml_pinjam - potongan where no_slip=1');
query2.Prepare;
query2.Params[0].Value := query3.Fields[0].AsString;
query2.ExecSQL;
query3.Open;
query2.Open;
end;
more 16 years ago
Manz
dikau mau isi parameter ke query2 sedangkan di query2 tidak ada parameter ... gimana nih :mrgreen:
more 16 years ago
DelphiExpert
yup, di query terakhir:
'Update pinjam set jml_pinjaman=jml_pinjam - potongan where no_slip=1'
more 16 years ago
mas_kofa
siapa tahu jd mudah dianalisa-nya.........prog saya rubah..jika error...ya paling2 nasib aja..yg lg apes...
query2.sql.Clear;
query2.SQL.Add('Update pinjam set jml_pinjaman=jml_pinjam - :potongan where no_slip=1');
query2.Prepare;
query2.ParamByName('potongan').AsString := query3.FieldbyName('potongan').AsString;
query2.ExecSQL;
more 16 years ago
ricky_seldjatem
saya sudah rubah syntaxnya menjadi seperti dibawah ini tetapi messagenya masih tetap "list index out of bound (2), artinya apa ya ?
query3.SQL.Clear;
query3.SQL.Add('select potongan from gaji where no_slip=1');
query3.Open;
query2.sql.Clear;
query2.SQL.Add('Update pinjam set jml_pinjaman=jml_pinjam - :potongan where no_slip=1');
query2.Prepare;
query2.FieldByName('jml_pinjam').AsFloat := query3.Fields[2].AsFloat;
query2.ExecSQL;
query3.Open;
query2.Open;
ket : dimana fields[2] didalam query3 adalah : field jml_pinjam
tolong dong master delphi untuk coding seperti diatas bagaimana, agar ketika saya masukin jumlah pinjaman dlm query3 maka jumlah pinjaman pd query 2 juga secara otomatis berubah. terima kasih
more 16 years ago
bobby_pro
Perintah query untuk potongan itu field ke 0, query3.Fields[2].AsFloat; ganti dengan query3.Fields[0].AsFloat;
atau saudara ricky bisa jg menggunakan sintak seperti dibawah ini :
query3.SQL.Clear;
query3.SQL.Add('select potongan from gaji where no_slip=1');
query3.Open;
query2.sql.Clear;
query2.SQL.Add('Update pinjam set jml_pinjaman=jml_pinjam - '+query3.FieldByName('potongan').Value+' where no_slip=1');
query2.ExecSQL;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- HELP DATASNAP??????
by rykemit in Enginering more 16 years ago - kode generator..tanya.?
by dm.adoconnx in Tip n Trik Pemrograman more 15 years ago - input data di postgres
by ferry in Lain-lain more 15 years ago - bagaimana cara membuat webstreaming
by hasrijal in Network, Files, I/O & System more 16 years ago - send data paralalel ke Adotabel
by kakaManiez in Enginering more 16 years ago - Pencocokkan String ( String Matching) Delphi DanMySQL ??
by daryl_sukma_gumilar in MySQL more 14 years ago - Active MDI Form Error?
by kayla in Tutorial & Community Project more 14 years ago - TSQLQuery Delphi 2010
by h4de5 in MsSQL more 13 years ago - memanggil file delphi.exe lewat delphi
by amor in Hal umum tentang Pascal Indonesia more 15 years ago - Yahoo! Messenger
by J4ckR1pp3r in Tip n Trik Pemrograman more 14 years ago