...

Arsip: syntax error in from clause

 
user image
more 13 years ago

fongers

Dear master delphi mau nanya ne apa yang salah ya pada query ini? saat event combobox on change selalu muncul "syntax error in from clause" 
 dm.qryQEksportKeExcel.SQL.Clear;
           SQLKoe:='SELECT a.NOMOR, a.NBaru, a.NAMA, a.ALAMAT, a.ZONA, b.Telp, b.Hp, a.GOL, a.STS, a.LOK, a.tCatat=:xcatat, a.JML=:xrek, a.DENDA=:xdenda, a.TOTAL from [REKL a],[TELPHP b], WHERE a.NOMOR = b.NoPam ';//and a.tCatat='+cbtglcatateksportexcel.Text+' ';
              dm.qryQEksportKeExcel.SQL.Add(SQLKoe);
              dm.qryQEksportKeExcel.Parameters.ParamByName('xcatat').Value:=cbtglcatateksportexcel.Text;
              dm.qryQEksportKeExcel.Parameters.ParamByName('xrek').Value := edtrekeksport.Text;
              dm.qryQEksportKeExcel.Parameters.ParamByName('xdenda').Value := edJumdenda.Text;
              dm.qryQEksportKeExcel.Open;
              pnlBawahEksportkeexcel.Caption := 'Jumlah Data Yang akan diEksport = '+IntToStr(dm.qryQEksportKeExcel.RecordCount)+'-Record';
user image
more 13 years ago

budi_sleman

@fongers: Dear master delphi mau nanya ne apa yang salah ya pada query ini? saat event combobox on change selalu muncul "syntax error in from clause" 
 dm.qryQEksportKeExcel.SQL.Clear;
           SQLKoe:='SELECT a.NOMOR, a.NBaru, a.NAMA, a.ALAMAT, a.ZONA, b.Telp, b.Hp, a.GOL, a.STS, a.LOK, a.tCatat=:xcatat, a.JML=:xrek, a.DENDA=:xdenda, a.TOTAL from [REKL a],[TELPHP b], WHERE a.NOMOR = b.NoPam ';//and a.tCatat='+cbtglcatateksportexcel.Text+' ';
              dm.qryQEksportKeExcel.SQL.Add(SQLKoe);
              dm.qryQEksportKeExcel.Parameters.ParamByName('xcatat').Value:=cbtglcatateksportexcel.Text;
              dm.qryQEksportKeExcel.Parameters.ParamByName('xrek').Value := edtrekeksport.Text;
              dm.qryQEksportKeExcel.Parameters.ParamByName('xdenda').Value := edJumdenda.Text;
              dm.qryQEksportKeExcel.Open;
              pnlBawahEksportkeexcel.Caption := 'Jumlah Data Yang akan diEksport = '+IntToStr(dm.qryQEksportKeExcel.RecordCount)+'-Record';
kalau perintah select itu kan ngambil data dari tabel, kok ada a.tCatat=:xcatat, a.JML=:xrek, a.DENDA=:xdenda, from [REKL a],[TELPHP b] coba dibenahi SQL nya
user image
more 13 years ago

cyber_hecker

kalo menggunakan perintah seperti ini bisa ga ? [sql]SELECT :XPARAM1 AS FIELD1, :XPARAM2 AS FIELD2 FROM TABEL1[/sql] aku ndiri gak pernah make cara kayak yang diatas, karena lebih sering menggunakan variable untuk querynya. contoh : [sql]DECLARE @A INT, @B INT SET @A = :XPARAM1 SET @B = :XPARAM2 SELECT @A AS FIELD1, @B AS FIELD2 FROM TABEL1[/sql]
user image
more 13 years ago

DelphiExpert

Error kebanyakan koma bro, ilangin dulu deh :lol: 

... [TELPHP b], WHERE a.NOMOR = ...
// -----------^ Kebanyakan koma :)
user image
more 13 years ago

dadanarifin

@fongers: Dear master delphi mau nanya ne apa yang salah ya pada query ini? saat event combobox on change selalu muncul "syntax error in from clause" 
 dm.qryQEksportKeExcel.SQL.Clear;
           SQLKoe:='SELECT a.NOMOR, a.NBaru, a.NAMA, a.ALAMAT, a.ZONA, b.Telp, b.Hp, a.GOL, a.STS, a.LOK, a.tCatat=:xcatat, a.JML=:xrek, a.DENDA=:xdenda, a.TOTAL from [REKL a],[TELPHP b] WHERE a.NOMOR = b.NoPam ';//and a.tCatat='+cbtglcatateksportexcel.Text+' ';
              dm.qryQEksportKeExcel.SQL.Add(SQLKoe);
              dm.qryQEksportKeExcel.Parameters.ParamByName('xcatat').Value:=cbtglcatateksportexcel.Text;
              dm.qryQEksportKeExcel.Parameters.ParamByName('xrek').Value := edtrekeksport.Text;
              dm.qryQEksportKeExcel.Parameters.ParamByName('xdenda').Value := edJumdenda.Text;
              dm.qryQEksportKeExcel.Open;
              pnlBawahEksportkeexcel.Caption := 'Jumlah Data Yang akan diEksport = '+IntToStr(dm.qryQEksportKeExcel.RecordCount)+'-Record';
bETUL Komanya kebanyakan.. Sesudah [TELPHP b] jANGAN pAKE kOMA lAGI
user image
more 13 years ago

fongers


-----------------------------
var SQLKoe : string;
begin
  if cbtglcatateksportexcel.Text ='' then  Messagebox(handle, 'Peringatan Keras !!! '#13'Nomor pam Tidak Boleh Kosong'#13'Data Tidak Ada yang di Tampilkan','PERINGATAN !! ',MB_ICONWARNING  or MB_OK);
  begin
     dm.qryQEksportKeExcel.SQL.Clear;
           SQLKoe:='SELECT REKL.NOMOR, REKL.NBaru, REKL.NAMA, REKL.ALAMAT, REKL.ZONA, TELPHP.Telp, TELPHP.Hp, REKL.GOL, REKL.STS, REKL.LOK, REKL.tCatat=:xcatat, REKL.JML=:xjrek, REKL.DENDA=:xdenda, REKL.TOTAL '+
                    'FROM REKL ,TELPHP  WHERE REKL.NOMOR = TELPHP.NoPam ';//and a.tCatat='+cbtglcatateksportexcel.Text+' ';
              dm.qryQEksportKeExcel.SQL.Add(SQLKoe);
              dm.qryQEksportKeExcel.Parameters.ParamByName('xcatat').Value:=cbtglcatateksportexcel.Text;
              dm.qryQEksportKeExcel.Parameters.ParamByName('xjrek').Value := edtrekeksport.Text;
              dm.qryQEksportKeExcel.Parameters.ParamByName('xdenda').Value := edJumdenda.Text;
              dm.qryQEksportKeExcel.Open;
              pnlBawahEksportkeexcel.Caption := 'Jumlah Data Yang akan diEksport = '+IntToStr(dm.qryQEksportKeExcel.RecordCount)+'-Record';
akhir nya run juga..... sory dak jeli lihat nya maklum bos udah ngantuk :)
more ...
  • Pages:
  • 1
|
Share to

Last Articles

Last Topic

Random Topic

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