Q&A
- 이 에러좀 해결해 주세여..
IF RADIOGROUP1.ITEMINDEX = 0 THEN
QUERY1.CLOSE;
// SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]);
SSQL := 'SELECT DBPGM.PGMID, DBPGM.PGMTITLE FROM DBPGM WHERE DBPGM.PGMID ='+
FORMAT('''%S''',[TRIM(EDIT1.TEXT)]);
QUERY1.SQL.ADD(SSQL);
TRY
QUERY1.OPEN;
STRINGGRID1.Cells[0,0] := '프로그램아이디';
STRINGGRID1.Cells[1,0] := '프로그램제목';
STRINGGRID1.CELLS[0,1]:=QUERY1.FIELDS[0].ASSTRING;
STRINGGRID1.CELLS[1,1]:=QUERY1.FIELDS[1].ASSTRING;
QUERY1.SQL.CLEAR;
EXCEPT
Query1.Close;
APPLICATION.MESSAGEBOX('검색도중 에러발생', '에러', MB_OK+MB_ICONINFORMATION);
EXIT;
//Query1.FREE;
end;
Query1.CLOSE;
잘못된것이 없는거 같은데..자꾸만 invaild use of keyword token select라는 에러가 생겨여..어떻게 하져?
QUERY1.CLOSE;
// SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]);
SSQL := 'SELECT DBPGM.PGMID, DBPGM.PGMTITLE FROM DBPGM WHERE DBPGM.PGMID ='+
FORMAT('''%S''',[TRIM(EDIT1.TEXT)]);
QUERY1.SQL.ADD(SSQL);
TRY
QUERY1.OPEN;
STRINGGRID1.Cells[0,0] := '프로그램아이디';
STRINGGRID1.Cells[1,0] := '프로그램제목';
STRINGGRID1.CELLS[0,1]:=QUERY1.FIELDS[0].ASSTRING;
STRINGGRID1.CELLS[1,1]:=QUERY1.FIELDS[1].ASSTRING;
QUERY1.SQL.CLEAR;
EXCEPT
Query1.Close;
APPLICATION.MESSAGEBOX('검색도중 에러발생', '에러', MB_OK+MB_ICONINFORMATION);
EXIT;
//Query1.FREE;
end;
Query1.CLOSE;
잘못된것이 없는거 같은데..자꾸만 invaild use of keyword token select라는 에러가 생겨여..어떻게 하져?
4
COMMENTS
-
-
답변...감사드립니다..정말 답답했는데 조금씩 풀리는거 같네여
-
IF RADIOGROUP1.ITEMINDEX = 0 THEN
QUERY1.CLOSE;
SSQL := Format('SELECT PGMID, PGMTITLE FROM DBPGM WHERE PGMID = ''%s'' ',
[TRIM(EDIT1.TEXT)]);
QUERY1.SQL.ADD(SSQL);
초보 wrote:
> IF RADIOGROUP1.ITEMINDEX = 0 THEN
>
> QUERY1.CLOSE;
> // SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]);
> SSQL := 'SELECT DBPGM.PGMID, DBPGM.PGMTITLE FROM DBPGM WHERE DBPGM.PGMID ='+
> FORMAT('''%S''',[TRIM(EDIT1.TEXT)]);
> QUERY1.SQL.ADD(SSQL);
> TRY
>
> QUERY1.OPEN;
>
> STRINGGRID1.Cells[0,0] := '프로그램아이디';
> STRINGGRID1.Cells[1,0] := '프로그램제목';
> STRINGGRID1.CELLS[0,1]:=QUERY1.FIELDS[0].ASSTRING;
> STRINGGRID1.CELLS[1,1]:=QUERY1.FIELDS[1].ASSTRING;
> QUERY1.SQL.CLEAR;
>
> EXCEPT
> Query1.Close;
> APPLICATION.MESSAGEBOX('검색도중 에러발생', '에러', MB_OK+MB_ICONINFORMATION);
> EXIT;
> //Query1.FREE;
> end;
> Query1.CLOSE;
>
> 잘못된것이 없는거 같은데..자꾸만 invaild use of keyword token select라는 에러가 생겨여..어떻게 하져?
-
답변..감사드립니다.
많이 도움이 되었습니다.
조금씩 프로그램을 해결해나가니까...
잼있네여...
(NOTICE) You must be logged in to comment on this post.
-
- 델초보
- •
- 2001.02.06 00:26
- 1 COMMENTS
- /
- 0 LIKES
-
쫑현이•2001.02.07 00:55델초보 wrote: > dbgrid에서 cell간의 이동을 enter키로 처리하고 싶습니다.. > Wincontrol가 dbgrid일 ...
-
- 초보
- •
- 2001.02.05 23:54
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사•2001.02.06 00:27안녕하세여..타락임다..^^ 해보지 않았지만, TSession 을 추가하고 TQuery의 AutoSession을 True로 ...
-
조덕진•2001.02.06 00:15델고수를 꿈꾸는 초봅니다. DBGrid를 사용해서는 님께서 하려는 작업을 할 수 없는 것으로 알고 있습니...
-
- 모름이
- •
- 2001.02.05 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
hbesthee•2001.02.06 23:23먼저, 소스를 보니 허거걱이란 소리가 마구 나오는 군요(지송 ^^;) 일단, 가장 큰 문제는 쓰레드 부분입...
-
- imp12
- •
- 2001.02.05 23:29
- 1 COMMENTS
- /
- 0 LIKES
-
조덕진•2001.02.05 23:51델고수를 꿈꾸는 초봅니다. 델파이에서 제공되는 CAST() 함수를 사용하시면 될 것 같네요. 1. 호출형...
-
- 초보
- •
- 2001.02.05 23:29
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.02.06 02:35초보 wrote: > > IF RADIOGROUP1.ITEMINDEX = 4 THEN > QUERY1.CLOSE; > QUERY2.Close; > QU...
-
- 왕초보
- 2001.02.05 23:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진성
- 2001.02.05 22:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 후
- •
- 2001.02.05 22:44
- 2 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.02.06 01:40후 wrote: > 안녕하세요...RX275라는 것을 구해서...설치를 하고 싶은데.. > > 제가 너무 초보라...하...
-
Larson•2001.02.05 22:49후 wrote: > 안녕하세요...RX275라는 것을 구해서...설치를 하고 싶은데.. > > 제가 너무 초보라...하...
-
- heyyou
- 2001.02.05 21:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.02.05 21:39
- 4 COMMENTS
- /
- 0 LIKES
IF RADIOGROUP1.ITEMINDEX = 0 THEN QUERY1.CLOSE; // SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]); SSQL := 'SELECT DBPGM.PGMID, DBPGM.PGMTITLE FROM DBPGM WHERE DBPGM.PGMID ='+ FORMAT('''%S''',[TRIM(EDIT1.TEXT)]...-
김광섭•2001.02.05 22:28초보 wrote: > IF RADIOGROUP1.ITEMINDEX = 0 THEN > > QUERY1.CLOSE; > // SSQL:= SSQL + ...
-
초보•2001.02.05 23:39답변...감사드립니다..정말 답답했는데 조금씩 풀리는거 같네여
-
나그네•2001.02.05 22:16IF RADIOGROUP1.ITEMINDEX = 0 THEN QUERY1.CLOSE; SSQL := Format('SELECT PGMID, PGMTITLE FROM ...
-
초보•2001.02.05 23:39답변..감사드립니다. 많이 도움이 되었습니다. 조금씩 프로그램을 해결해나가니까... 잼있네여...
-
- 김현수
- 2001.02.05 21:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이공주
- 2001.02.05 21:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.02.05 21:20
- 1 COMMENTS
- /
- 0 LIKES
-
윤광석•2001.02.05 22:07초보 wrote: > dbgrid에서 그 옆의 cell로 이동할 때 tab키를 쳐서 이동하는게 보통인데.. > tab키 대신 ...
-
- 궁금이
- 2001.02.05 21:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 공대규
- •
- 2001.02.05 20:59
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2001.02.05 21:16공대규 wrote: > 안녕하세요, 공대규라고 합니다. > 처음 에러는 Q&A를 통해 해결했는데 다른 에러가 또 ...
-
- 공병우
- •
- 2001.02.05 20:55
- 1 COMMENTS
- /
- 0 LIKES
-
공대규•2001.02.05 22:14combobox의 style을 ownerdraw 로(fixed or variable) 해 놓고, drawitem 이벤트 핸들러에서 TRect 파라미...
-
- 왕초보
- 2001.02.05 20:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 진은정
- •
- 2001.02.05 20:46
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2001.02.05 21:13진은정 wrote: > > TTable의 내용을 DBGrid에 보여주는 프로그램입니다. > 추가/수정시 DBGrid에 내용...
-
- 진은정
- 2001.02.05 20:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 명지니
- 2001.02.05 20:45
- 0 COMMENTS
- /
- 0 LIKES
> IF RADIOGROUP1.ITEMINDEX = 0 THEN
>
> QUERY1.CLOSE;
> // SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]);
> SSQL := 'SELECT DBPGM.PGMID, DBPGM.PGMTITLE FROM DBPGM WHERE DBPGM.PGMID ='+
> FORMAT('''%S''',[TRIM(EDIT1.TEXT)]);
> QUERY1.SQL.ADD(SSQL);
> TRY
>
> QUERY1.OPEN;
>
> STRINGGRID1.Cells[0,0] := '프로그램아이디';
> STRINGGRID1.Cells[1,0] := '프로그램제목';
> STRINGGRID1.CELLS[0,1]:=QUERY1.FIELDS[0].ASSTRING;
> STRINGGRID1.CELLS[1,1]:=QUERY1.FIELDS[1].ASSTRING;
> QUERY1.SQL.CLEAR;
>
> EXCEPT
> Query1.Close;
> APPLICATION.MESSAGEBOX('검색도중 에러발생', '에러', MB_OK+MB_ICONINFORMATION);
> EXIT;
> //Query1.FREE;
> end;
> Query1.CLOSE;
>
> 잘못된것이 없는거 같은데..자꾸만 invaild use of keyword token select라는 에러가 생겨여..어떻게 하져?
언뜻 보기에는...
QUERY1.CLOSE;
다음에 QUERY1.SQL.CLEAR; 먼저 하시고 SQL ADD를 하는게 어떨런지요.
제가 그렇게만 하다보니 --"
SSQL := 'SELECT DBPGM.PGMID, DBPGM.PGMTITLE FROM DBPGM WHERE DBPGM.PGMID ='+
FORMAT('''%S''',[TRIM(EDIT1.TEXT)]);
===>
SSQL := 'SELECT DBPGM.PGMID, DBPGM.PGMTITLE FROM DBPGM WHERE DBPGM.PGMID ="'+TRIM(EDIT1.TEXT)+'"';
이 문장을 달리 표현하믄
'SELECT DBPGM.PGMID, DBPGM.PGMTITLE FROM DBPGM WHERE DBPGM.PGMID = :DBPGM.PGMID'
QUERY1.FieldByName('DBPGM.PGMID').AsString := TRIM(EDIT1.TEXT);
글구요 쿼리 오픈하기전에 쿼리문이 잘못인지 한번 showmessage(query1.sql.text) 뿌려서 확인한번 해보시죠.
그것두 여의치 않으면 SQL Monitor 실행하구서 컴파일해서 확인한번 해보세요.
그럼, 즐코~~~