UpdateSQL 이용시 에러.



Query로 자료를 읽어들인 후에 DBGrid통해서 수정을 합니다.



그 다음에는 ApplyUdates를 이용해서 변경 내용을 반영 시킬려고 하는데



자꾸만 "Updatd Failed" 메시지만 나오네요.



UpdateSQL컴포넌트를 통하지 않으면 되거든요. 근데 Query컴포넌트와



UpdateSQL컴포넌트를 연결해서 해보면 안되더라구요.



아래 코딩 내용 좀 봐 주세요.



procedure TOff_Input.Button1Click(Sender: TObject);

begin

// Local_DM1.off_input.ApplyUpdates;

Local_DM1.localdb.starttransaction; -- 이 라인을 컴파일 후에 insight해보면

try -- "Inaccessible Values"하는

Local_DM1.off_input.ApplyUpdates; -- 에러가 나오던데 그게 실행이

Local_DM1.localdb.commit; -- 안되고 있다는 뜻인가요?

except

Local_DM1.localdb.rollback;

raise;

end;

// Local_DM1.database1.commitupdates;}

end;





procedure TLocal_DM1.Off_InputUpdateRecord(DataSet: TDataSet;

UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);

begin

Local_DM1.UpdateSQL1.Apply(updatekind);

UpdateAction := uaApplied;

end;