저번 에러 메세지의 연장선 질문입니다.
이번에는 Invalid use of keyword
Token: Level
Line Number: 2라는 에러 메세지가 자꾸 발생합니다.
여기에서 Level은 string 필드구요...
procedure TStartForm.SpeedButton1Click(Sender: TObject);
begin
SQLItem.Close;
SQLItem.SQL.Clear;
SQLItem.SQL.Add('SELECT * From "Item.db"');
SQLItem.SQL.Add('WHERE Level = "'+ SearchField+'" ');
SQLItem.Open;
end;
procedure TStartForm.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then
begin
SearchField := '초급';
end
else if RadioGroup1.ItemIndex = 1 then
begin
SearchField := '중급';
end
else if RadioGroup1.ItemIndex = 2 then
begin
SearchField := '고급';
end
else ShowMessage('존재 하지 않는 항목 입니다.');
end;
안녕하세요..조복기입니다..
level이란 필드명이 의심쩍어서 한번 테스트를 해보니까
필드명쪽에서 문제가 생기는군요..
level이란 파라독스함수를 전혀본적이 없지만
파라독스에서 사용하는 예약어같습니다..아무래도..
필드명을 부여할때 테이블이름과 연관성있게 가는것도
한가지 방법이겠죠..
예) 테이블명 : pay_master.db
필드명 : pm_sabun (사번) ...
대강 이런식으로요..
필드명은 짓기 나름이지만 나중에 도큐먼트역활도 할수있으니까
첨 지을때 잘 지으세요..
은행에 파견나갔을때 콩글리쉬로 만들었다가 다 뜯어고친 아픈기억이..나네요.
그리고 밑에처럼 파라미터를 받을거면
변수명대신 parambyname을 사용하시구요..
좋은하루되세요..
BDS 께서 말씀하시기를...
> 저번 에러 메세지의 연장선 질문입니다.
> 이번에는 Invalid use of keyword
> Token: Level
> Line Number: 2라는 에러 메세지가 자꾸 발생합니다.
> 여기에서 Level은 string 필드구요...
>
> procedure TStartForm.SpeedButton1Click(Sender: TObject);
> begin
> SQLItem.Close;
> SQLItem.SQL.Clear;
> SQLItem.SQL.Add('SELECT * From "Item.db"');
> SQLItem.SQL.Add('WHERE Level = "'+ SearchField+'" ');
> SQLItem.Open;
> end;
>
> procedure TStartForm.RadioGroup1Click(Sender: TObject);
> begin
> if RadioGroup1.ItemIndex = 0 then
> begin
> SearchField := '초급';
> end
> else if RadioGroup1.ItemIndex = 1 then
> begin
> SearchField := '중급';
> end
> else if RadioGroup1.ItemIndex = 2 then
> begin
> SearchField := '고급';
> end
> else ShowMessage('존재 하지 않는 항목 입니다.');
> end;
>