안녕하세요. 레코드를 삭제하기 위해 다음과 같은 코딩을 했는데요 이상하게 여러번 삭제를 실행시킬때 꼭 한 두개가 삭제가 안되는게 있어요. 프로그램 상에서는 절대로 삭제할 수가 없는 레코드가 생겼습니다.
Procedure TdicFrom.BitBtn3Click(sender : Tobjedt);
begin
edit1.text := Query1.Fields[0].AsString;
With Query1 do begin
close;
SQL.clear;
SQL.Add('delete from DicWord Where DicWD =: DicWD');
ParamByName('DicWD').AsString := Edit1.text;
ExecSQL;
end;
end;
위 코드에 문제가 있나요? 아니면 다른 방식으로 해야 하나요?