Arsip: [?] Bagaimana Membuat Skrip SQL dgn Komponen Query Zeos?

 
user image
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!
user image
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
user image
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
user image
more 16 years ago

maulaku

prepared : untuk mempersiapnkan nilai parameters /aliasnya parameters : nilai yang akan di sebutkan
user image
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!
user image
more 16 years ago

maulaku

di coba dulu, kalo ada masalah lg bisa posting ya setahuku sama mas... http://esnips.com/web/maulaku
user image
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!
user image
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.
user image
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
user image
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
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com