음냐리... 2.번에 and 가 하나 (' and Name = :Name1')빠진것 같군요...

이렇게요... 그리고 1번은 코딩이 필요 없는것 같은데요...

2번에 내용이 나오니까요... 1번의내용을 그대로 2번으로 옮겨 주심이...

그리고 3번의 MessageBox에서 ok를 하면 ...그래도 Error가 나올것 같은데요

아래의 루틴을 계속 실행하게 되니까요... 맞나... 그럼 즐거운 주말....

즐거운 코딩되세요...



query1.Close;

query1.SQL.clear;

query1.SQL.Add(' select * ');

query1.SQL.Add(' from test');

if (edit24.text<>'') and (edit25.text<>'') then

begin

query1.sql.Add(' where date=:name ');

1 if edit1.text<>'' then

query1.SQL.Add(' and NAME=:name1 ');

end

else if edit1.text<>'' then begin

2 query1.SQL.Add(' NAME=:name1 ');

end

else begin

3 Application.MessageBox('날짜나 이름을 입력하십시요.',

'찾기취소',MB_OK);

end;

if (edit24.text<>'') and (edit25.text<>'') then

query1.ParamByName('name').asstring:=edit24.text+edit25.text;

if edit1.text<>'' then

query1.ParamByName('name1').asstring:=edit1.Text;

query1.open;



if query1.recordcount<1 then

Application.MessageBox('해당자가 없습니다!','찾기취소',mb_ok);







초보 wrote:

> 프로그램을 실행하고 나서 edit박스에 문자를 집어넣고 검색버튼을 느를때 마다

> 자꾸 EDBEgineError가 뜹니다. 좀 도와주십시요...^^

> 에러 내용은 아래와 같습니다.

> << Project Project1.exe raised exception class EDBEngineError with message 'Invalid use of keyword'

> Token:=?

> Line Number:3', process stopped use step or Run to Continue>>

>

> 뛰어쓰기가 잘못된나하고 자꾸 바꿔보아도 에러가 계속 생깁니다.제발 도와주세요..

> 제가 작성한 버튼클릭 이벤트는 다음과 같습니다.

>

> procedure TForm1.BitBtn8Click(Sender: TObject);

>

> begin

> query1.Close;

> query1.SQL.clear;

> query1.SQL.Add(' select * ');

> query1.SQL.Add(' from test');

> if (edit24.text<>'') and (edit25.text<>'') then

> begin

> query1.sql.Add(' where date=:name ');

> if edit1.text<>'' then

> query1.SQL.Add(' and NAME=:name1 ');

> end

> else if edit1.text<>'' then begin

> query1.SQL.Add(' NAME=:name1 ');

> end

> else begin

> Application.MessageBox('날짜나 이름을 입력하십시요.',

> '찾기취소',MB_OK);

> end;

> if (edit24.text<>'') and (edit25.text<>'') then

> query1.ParamByName('name').asstring:=edit24.text+edit25.text;

> if edit1.text<>'' then

> query1.ParamByName('name1').asstring:=edit1.Text;

> query1.open;

>

> if query1.recordcount<1 then

> Application.MessageBox('해당자가 없습니다!','찾기취소',mb_ok);

> end;

>

정확하게 모라 말씀은 못드리지만..

if (edit24.text<>'') and (edit25.text<>'') then

begin

query1.sql.Add(' where date=:name ');

if edit1.text<>'' then

query1.SQL.Add(' and NAME=:name1 ');

end



where date =:name

이라했는데 :name은 어데서 파라미터를 받아와야 합니다.

아래를 파라미터를 받긴받는데.....

그리고 date란 넘이 아마도 디비에세 예약어로 쓰일수도 있어서 에러가

날수 있습니다.



에디트에 뭐가 들어 가는진 알기위해서 그러니까 쿼리상의 에러를 잡기위해서는



shomessage(query1.sql.text);

이넘을 오픈전에 쓰시고

그리고 실행해보고 데이타를 넣어보고 검색해보세요..

쿼리문에서의 틀린 에러를 잡으실수 있습니다...



에고 도움이 되셨으면 합니다. 복잡할거 없어요..그냥 차근차근해 보시면

에러를 잡으실거 같은데......

답변 대단히 감사드립니다.

많은 도움이 된 것 같습니다.

그런데도 제가 부족함이 많아서 또 한가지 에러를 해결하지 못하고 있습니다..

제가 질문 드린것 중에서 ..

date란 놈이 문제를 일으킵니다..이름(NAME)으로 검색을 할 때는 문제가 없는데

date와 연결된 edit박스에 명령어를 입력하고 검색만 하면 invalid use of keyword란

error가 계속 뜨는군요..

분면 date를 인식하지 못해서 인 것 같습니다..('date :=name')

date대신 다른 필드명을 입력할 경우는 이상이 없습니다...

디비에서 date가 예약어로 쓰인다는 말이 무엇인지 그렇다면 정정하는 방법은 무엇인지 ........

조언좀 부탁드립니다..즐거운 하루 되시길 바래요...