Arsip: [?] Bagaimana Membuat Skrip SQL dgn Komponen Query Zeos?
more 16 years ago
babypigs
Kepada jago-jago Delphi di forum ini saya mohon petunjuk nih. Saya hendak membuat skrip SQL berparameter dengan komponen query Zeos, setelah saya coba ternyata tidak bisa karena tidak ada .prepared nya atau ada perintah pengganti nya? Terimakasih!
more 16 years ago
maulaku
begin
With zQuery1 do
begin
if active=true then close;
SQL.Clear;
SQL.add('select * from Cabang where KdCabang=:id ');
prepared;
parameters[0].Value := edit1.Text; // parameter yang dicari di edit1.text
open;
end;
end;
http://www.esnips.com/web/Maulaku
more 16 years ago
zieborg
setelah saya coba ternyata tidak bisa karena tidak ada .prepared nya atau ada perintah pengganti nya?prperty prepared itu ngga ada hubungannya dengan bisa pake parameter atau tidak, prepared itu untuk mempercepat proses berikutnya kalo perintah querynya sama dan beda field valuenya saja, makanya diset lewat parameter
more 16 years ago
maulaku
prepared : untuk mempersiapnkan nilai parameters /aliasnya
parameters : nilai yang akan di sebutkan
more 16 years ago
babypigs
Terimakasih untuk penjelasannya! Buat maulaku perlu saya perjelas saya menggunakan query miliknya Zeos bukan query bawaan Delphi. Nah sekarang apakah tanpa prepared fungsi parameter masih tetap bisa berfungsi sebagaimana tugasnya? Terimakasih!
more 16 years ago
maulaku
di coba dulu, kalo ada masalah lg bisa posting ya
setahuku sama mas...
http://esnips.com/web/maulaku
more 16 years ago
babypigs
Waduh justru karena saya sudah coba makanya saya nanya! Asli kaga ada prepared nya, nah perintah itu penting nggak? Kalau nggak yah saya langsung definisi parameternya tapi kok gagal yah!
more 16 years ago
faridx
:D yang saya pake biasanya begini
buat nampilin:
ZQuery.Active:=False;
ZQuery.SQL.Text:=
'select * from tblstokgudang where barcode="'+ barcode +'" ORDER BY Tanggal DESC';
ZQuery.Active:=True;
klo buat ExecSQL:
ZQuery.SQL.Text:=
'INSERT INTO tblstokgudang (Tanggal, BarCode, Masuk, Keluar, Stok, UpToDate) '+
'VALUES ("'+tanggal+'","'+BarCode+'",'+inttostr(Jumlah)+',0,'+inttostr(istok)+',"UpToDate")';
ZQuery.ExecSQL;
ZQuery.SQL.Text:=
'UPDATE tblstokgudang SET Masuk='+inttostr(ijumlah)+',Stok='+inttostr(istok)+',UpToDate="UpToDate" '+
'WHERE Tanggal="'+tanggal+'" AND BarCode='+BarCode+'';
ZQuery.ExecSQL;
ZQuery1.SQL.Text:=
'DELETE FROM tblbarangmasukgudang WHERE NoBukti="'+ ENoBukti.Text +'" AND Tanggal="'+ UbahTgl(DTanggal.Date) +'" AND BarCode="'+ EBarCode.Text +'"';
ZQuery1.ExecSQL;
ini sudah saya pakai.
more 16 years ago
maulaku
@babypigs: Waduh justru karena saya sudah coba makanya saya nanya! Asli kaga ada prepared nya, nah perintah itu penting nggak? Kalau nggak yah saya langsung definisi parameternya tapi kok gagal yah!oh ya maaf itu saya gunakan pakai SQL server, tapi di temen2 ada yang bantu thanks
more 16 years ago
babypigs
Kalau untuk skrip biasa sih tidak masalah dan sudah berhasil, nah buat skrip yang berparameter gini yang jadi masalah, kaga bisa keluar hasilnya! Ada yang bisa bantu lagi?
more ...
- Pages:
- 1
- 2
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
- uses Unit
by ichan29 in Tip n Trik Pemrograman more 13 years ago - ada yang tau syntax memasukkan data real ke tabel sql ?
by micrens in Tip n Trik Pemrograman more 16 years ago - IP address calculator
by matrix in OpenSource dan Gratis more 15 years ago - shell execute di jaringan
by belajaraja in Tutorial & Community Project more 16 years ago - filter network
by delphi_tikuzz in Network, Files, I/O & System more 16 years ago - Bgmana Cara Embed Form DLL to TTabsheet di Form Pemaggil ?
by henry_sys in Form Enhancement & Graphical Controls more 12 years ago - Tanya tentang enkripsi (baru belajar neh)
by goosemunk in Tutorial & Community Project more 17 years ago - Konversi citra ke angka biner di delphi
by em052007 in Enginering more 16 years ago - Mohon masukan tentang Version Control (svn,git, dll)
by mambamaestro in Enginering more 13 years ago - Backup Database Postgresql
by delphi1st in Tip n Trik Pemrograman more 16 years ago