If ADOQuery1.State in [dsBrowse] then
  Begin
    If MessageDlg( '현재 자료를 삭제하시겠습니까?',mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
    begin
      ADOQuery1.Delete;
{      sSql := ADOQuery1.fieldbyname('C001').AsString;
      ADOQuery1.SQL.Clear;
      sSql := 'Delete from DC0001 WHERE C001 = ''' + ADOQuery1.fieldbyname('C001').AsString + '''';
      ADOQuery1.SQL.Add(sSql);
      ADOQuery1.ExecSQL;
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      sSql := 'SELECT A.C001 AS C001, A.C002 AS C002, A.C003 AS C003, A.C004 AS C004, A.C005 AS C005, B.C002 AS R001  FROM DC0001 A ';
      sSql := sSql + 'LEFT OUTER JOIN DC0004 B ON A.C003 = B.C001 ORDER BY A.C001';
      ADOQuery1.SQL.Add(sSql);
      ADOQuery1.Open;
}
    end;
  end;

위와 같이 DataSet.Delete를 하면 '업데이트나 새로 고치는 데 필요한 키열 정보가 부족합니다.'라고 나오면서 삭제 되질 않습니다..

또한 주석처리한 부분은 쿼리로 지우려고 했는데...

분명

sSql := ADOQuery1.fieldbyname('C001').AsString;

하면 잘 받아지는 값이

sSql := 'Delete from DC0001 WHERE C001 = ''' + ADOQuery1.fieldbyname('C001').AsString + '''';

이렇게 하는까 값이 비어 있네요^^

하루종일 헤매다가 답답해서 올립니다..!!!!

참고로 JOIN하지 않은 단독테이블에서는 잘 동작합니다..

근데 조인만 하면 안되네요..!!!!!!!!!!

답변 좀 부탁드립니다..!!!!!!!


즐프하세요^^