아래 프로시져는 오라클에서는 정상적으로 동작합니다.
근대 ado를 써서 access db로 실행하면 update 구문오류라고 나오네요..
고수님들 원인좀 찾아주세요.
procedure TfmMainAdm.btnUpdateOkClick(Sender: TObject);
var ss: string;
begin
with dm.qrlUpdate do begin
close;
sql.clear;
sql.add('update main set kukname = :p1, deptname = :p2 ');
sql.Add(' ,floor = :p3, eqid = :p4, eqmodel = :p5 ');
sql.add(' ,eqGubun = :p6, adminNo = :p7, adminsn = :p8 ');
sql.add(' ,muser = :p9, return = :p10, inDate = :p11 ');
sql.add(' ,memo = :p12, etc1 = :p13, etc2 = :p14, etc3 = :p15 ');
sql.add('where id= :p16 ');
parameters.parambyname('p1').value:= cbKukname.Text;
parameters.parambyname('p2').value:= cbDeptname.text;
parameters.parambyname('p3').value:= cbFloor.text;
parameters.parambyname('p4').value:= Uppercase(eEqid.text);
parameters.parambyname('p5').value:= Uppercase(eEqmodel.text);
parameters.parambyname('p6').value:= cbEqgubun.text;
parameters.parambyname('p7').value:= Uppercase(eAdminNo.text);
parameters.parambyname('p8').value:= Uppercase(eEqSn.text);
parameters.parambyname('p9').value:= Uppercase(eUser.text);
...
parameters.parambyname('p16').value:= strtoint(eid.Text);
try
ExecSQL;
except on E:EDatabaseError do begin
showmessage('수정 작업중 에러발생' +#13#10+ E.Message);
end;
end;
(이하생략)