무지 화나네요..제가 에러 부분을 못찾는 건지..... 제가 보기에는 아무 문제가 없는데요..
도와주세요...
환경 : firebird, zeos
error message : Incorrect token followed by ":"
---------------------------------------------------------------------------------------------
with zQuery_tmp do begin
Close;
SQL.Clear;
SQL.Add('update pc set');
SQL.Add('user_name = :user_name, cpu = :cpu, mem = :mem, hdd = :hdd');
SQL.Add(', vga = :vga, os = :os, ip = :ip, comp = :comp, pur_date = :pur_date');
SQL.Add(', price = :price ,mt = :mt, mt_sn = :mt_sn, mt_comp = :mt_comp');
SQL.Add(', mt_pur_date = :mt_pur_date, mt_price = :mt_price');
SQL.Add('where pc_seq_no = : pc_seq_no');
----> 이단계에서 에러가 발생하네요...
ParamByName('pc_seq_no').AsString := fEdit_pc_seq_no.Text;
ParamByName('user_name').AsString := fEdit_user.Text;
ParamByName('cpu').AsString := fEdit_cpu.Text;
ParamByName('mem').AsString := fEdit_mem.Text;
ParamByName('hdd').AsString := fEdit_hdd.Text;
ParamByName('vga').AsString := fEdit_vga.Text;
ParamByName('os').AsString := fEdit_os.Text;
ParamByName('ip').AsString := fEdit_ip.Text;
ParamByName('comp').AsString := fEdit_comp.Text;
ParamByName('pur_date').AsString := fEdit_pur_date.Text;
ParamByName('price').AsFloat := mxFFloatEdit_price.Value;
ParamByName('mt').AsString := fEdit_mt.Text;
ParamByName('mt_sn').AsString := fEdit_mt_sn.Text;
ParamByName('mt_comp').AsString := fEdit_mt_comp.Text;
ParamByName('mt_pur_date').AsString := fEdit_mt_pur_date.Text;
ParamByName('mt_price').AsFloat := mxFFloatEdit_mt_price.Value;
end;
-------------------------------------------------------------------------------------------------
혹시 코딩하신 그대로 카피해 넣으신거라면....
SQL.Add('where pc_seq_no = : pc_seq_no'); 에서
: pc_seq_no -> :pc_seq_no 요렇게 해주셔야 되지 않을까요...
콜론(:) 이 한칸 떨어졌네요...