원령 wrote:

다중삭제라는 단어의 정확한 의미를 판단하기가 어렵네요.

일단 Delphi는 Join된 query는 DBGrid에서 삭제할수 없습니다. Edit도 안되구요.

sql에서 delete를 쓰셔야 할것같네요. 아니면 updatesql 콤포넌트를 쓰시던지(그래도 delete를 쓰시는건 마찬가지네요)

--query1.sql.text := 'delete from 테이블명 where 조건';

DBGrid에서 정이 삭제를 하시려면 grid에 이벤트를 활용하셔서 delete sql을 실행하시고 enablecontrols을 하시는편이 좋지 않을까 싶네요

질문의 요지를 정확히 파악못해서 답변이 맞는지 모르겠네요.



> 안녕하세요...

>

> 몇번이나 글을 올렸는데 답변이 없어서 다시올립니다...

> 테이블을 써서 하면 쉽게 되지만 지금은 쿼리를 써서 작업을 했기

> 때문에 쿼리에서 다중삭제를 해야 됩니다..

>

> 알고 계시는 고수분들께서는 빠른 답변좀 부탁드리겠읍니다...

>

> 꼭좀 부탁드립니다...

>

> 델초보...^^

> > 안녕하세요...

> >

> > 몇번이나 글을 올렸는데 답변이 없어서 다시올립니다...

> > 테이블을 써서 하면 쉽게 되지만 지금은 쿼리를 써서 작업을 했기

> > 때문에 쿼리에서 다중삭제를 해야 됩니다..

> >

> > 알고 계시는 고수분들께서는 빠른 답변좀 부탁드리겠읍니다...

> >

> > 꼭좀 부탁드립니다...

> >

> > 델초보...^^



다시설명을 드릴께요..



다중선택이란건 멀티실렉트를 해서 선택된것을 한꺼번에 지운다는것입니다..

함더 답변을 올려주세요...

지송함다. ^^

>

> 다중선택이란건 멀티실렉트를 해서 선택된것을 한꺼번에 지운다는것입니다..

> 함더 답변을 올려주세요...

> 지송함다. ^^



몇가지 확인을 먼저 하겠슴당.. ~.*!

TQuery에서

RequestLive := True 이겠죠. ?

CachedUpdates := True 입니까..?

db가 Local과 Server에 따라 틀리지만 cach도 True로

해주십오.. Please..! Lock때문에 그러그던요..



그리고 조인을 했거나 함수를 썼거나.

순수한 하나의 테이블입니까..? 말이 맞나.

순수한 하나의 테이블의 경우는 그냥 통과... 왜 순수하니까..? ~.~



그리고 조인을 했거나.함수를 썼거나 했을때

Group by나 그룹함수를 썼을 경우는 책임못짐 그건 왜그런지 이해가 가실검니다.

UpdateSQL 하나 폼에 같다놓고 Query의 UpdateObject와 연결 시키십시오..

그리고 updateSql을 더블클릭 해서 테이블을 선택하고 키를 선택하십시오

키는 아시겠죠 그라고 delete만 할거면 update field는 무의합니다..

그래도 선택하고 싶으시면 아무거나 선택하시고요..! ~.*!

그리고 generate SQL을 선택하시고 ok하시고 나오면 됩니다.

무슨 일이 일어났나 궁금하시면, SqL tab을 선택하시거나

Object inspector에서 내용을 확인하세요.. 별거 없지요..!



여기까지가 준비 단계입니다. 삭제 할려고 하는 테이블이 2개 이상이면

또 단계가 필요합니다.



그러고 나서



with dbgrdMain, qryMain do

begin

if(SelectedRows.Count > 0) then //그리드 선택 건수확인

begin

DisableControls; //링크차단

for i := SelectedRows.Count - 1 downto 0 do

begin

//그리드의 선택된 아이템은 포인터문자 이므로..? 맞나

//그래서 포인터로 타임캐스팅 합니다.

GotoBookMark(Pointer(SelectedRows.Items[i]));

Delete; //그위치에 왔으므로 삭제

end;

EnableControls; //링크복구



with dbMain do

begin



if(InTransaction) then Rollback; //혹시나

try

ApplyUpdates; //쿼리 적용

Commit; //데이타베이스

except

on E : EDBEngineError do

begin

Rollback; //일났으니

//여기는 알아 해줘요..잉...

EXIT;

end;

end;

CommitUpdates; 쿼리의 캐쉬를 비워줌

//끝납습니다.....~.~



end;



end;



end;



이러면 끝납니다. 맞나...

도움이 되었으면 하네요

그런데 아니면 어쩌지....~.*!



그래도 즐코하세요



헥 힘들다 밥묵으로 가야지... 저녁들 맛있게 드세요...~.~

내용무