with dm.qryTEST do begin

Close; //->두번째 실행하면 에러 발생..

SQL.Clear;

isql := 'select * FROM TEST';

Sql.Add(isql);

Open;

while not Eof do begin

str := fieldvalues['User_log_id'];

USER_List.Add(str);

Next;

end;

end;



이부분을 이렇게 고치세요



with dm.qryTEST do begin

if(Active) then Close;

SQL.Clear;

isql := 'select * FROM TEST';

Sql.Add(isql);

Open;

while not Eof do begin

str := fieldvalues['User_log_id'];

USER_List.Add(str);

Next;

end;

end;



------------------------------------------------------------------





왕초보 wrote:

> 저는 밑에처럼 QUERY 를 사용해왔습니다..그런데 두번째 OPEN하기 전에 CLOSE할때

> 에러가 나더군요. ㅜ,ㅜ;;

>

> 에러메세지 : Project test.exe raised exception class EOleException with message

> 'BOF또는 EOF가 참이거나 현재레코드를 삭제했습니다. 요청한 작업에

> 현재 레코드가 필요합니다.'

>

> 이틀걸려서 해