Q&A
- 초보적 sql이요..
라디오그룹에 세개의 아이템(Cust_No,Name,Phone)을 넣구요
Edit1.Text를 넘겨받아서 쿼리를 실행시키려고 하니
에러가 생깁니다..
에러내용인즉
General sql error
Token unknown -line 2, char - 1
'+sql+''
이라는데요..
아래는 검색버튼의 내용입니다.
procedure TForm2.Button1Click(Sender: TObject);
var
Sql : TStringList;
begin
initialize(SQL);
try
SQL := TStringList.Create;
with DM.Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From SJCust');
SQL.Add('''+Sql+''');
Case RadioGroup1.ItemIndex of
0 : Sql.Add('where Cust_No = "'+Edit1.Text+'"');
1 : Sql.Add('where Name like "%'+Edit1.Text+'%"');
2 : Sql.Add('where Phone like "%'+Edit1.Text+'%"');
end;
open;
end;
Finally
SQL.Free;
end;
Finalize(SQL);
end;
Edit1.Text를 넘겨받아서 쿼리를 실행시키려고 하니
에러가 생깁니다..
에러내용인즉
General sql error
Token unknown -line 2, char - 1
'+sql+''
이라는데요..
아래는 검색버튼의 내용입니다.
procedure TForm2.Button1Click(Sender: TObject);
var
Sql : TStringList;
begin
initialize(SQL);
try
SQL := TStringList.Create;
with DM.Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From SJCust');
SQL.Add('''+Sql+''');
Case RadioGroup1.ItemIndex of
0 : Sql.Add('where Cust_No = "'+Edit1.Text+'"');
1 : Sql.Add('where Name like "%'+Edit1.Text+'%"');
2 : Sql.Add('where Phone like "%'+Edit1.Text+'%"');
end;
open;
end;
Finally
SQL.Free;
end;
Finalize(SQL);
end;
2
COMMENTS
-
-
박홍석 wrote:
> 강지영 wrote:
> > 라디오그룹에 세개의 아이템(Cust_No,Name,Phone)을 넣구요
> > Edit1.Text를 넘겨받아서 쿼리를 실행시키려고 하니
> > 에러가 생깁니다..
> >
> > 에러내용인즉
> >
> > General sql error
> > Token unknown -line 2, char - 1
> > '+sql+''
> > 이라는데요..
> >
> > 아래는 검색버튼의 내용입니다.
> > procedure TForm2.Button1Click(Sender: TObject);
> > var
> > Sql : TStringList;
> > begin
> > initialize(SQL);
> > try
> > SQL := TStringList.Create;
> > with DM.Query1 do
> > begin
> > Close;
> > SQL.Clear;
> > SQL.Add('Select * From SJCust');
> > SQL.Add('''+Sql+''');
> >
> > Case RadioGroup1.ItemIndex of
> > 0 : Sql.Add('where Cust_No = "'+Edit1.Text+'"');
> > 1 : Sql.Add('where Name like "%'+Edit1.Text+'%"');
> > 2 : Sql.Add('where Phone like "%'+Edit1.Text+'%"');
> > end;
> > open;
> > end;
> > Finally
> > SQL.Free;
> > end;
> > Finalize(SQL);
> > end;
> >
>
> 안녕하세요. 박홍석입니다.
> 소스를 아래처럼 해보시죠.
>
> var
> str : string;
>
> SQL.Add('Select * From SJCust');
> SQL.Add(str);
> Case RadioGroup1.ItemIndex of
> 0 : str := 'where Cust_No = "'+Edit1.Text+'"';
> 1 : str := 'where Name like "%'+Edit1.Text+'%"';
> 2 : str := 'where Phone like "%'+Edit1.Text+'%"';
> end;
>
음.. 처음엔 형석님처럼 코딩을 했는데
에러가 나서 TStringList로 고친것이었거든요..
그래서 또 다시 고쳐봤지요. 파라메터로 넘겨주도록이요.. 그랬더니 실행이 잘 되었습니다.
0 : str := 'where Cust_No = "'+Edit1.Text+'"';
1 : str := 'where Name like "%'+Edit1.Text+'%"';
=> 0 : begin
SQL.Add('Where Cust_No =:N1');
ParamByName('N1').AsInteger := StrToInt(Edit1.Text);
end;
1 : begin
SQL.Add('Where Name =:N2');
ParamByName('N2').AsString := '%'+Edit1.Text+'%';
end;
그런데 아직도 한가지 궁금한 점은 if문에서
실행을 할때는 파라메터로 넘겨주지 않고
if RadioBox1.itemIndex = 0 then
SQL.Add('where Cust_No = "'+Edit1.Text+'"')라고 해도 실행이 잘 되었거든요.
차이점이 무엇일까요..
(NOTICE) You must be logged in to comment on this post.
-
- 하윤철
- •
- 1999.04.22 01:40
- 3 COMMENTS
- /
- 0 LIKES
-
신인재•1999.04.22 02:56하윤철 wrote: > 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면 > 어떻게 해야 하나여...
-
안치봉•1999.04.22 02:52하윤철 wrote: > 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면 > 어떻게 해야 하나여...
-
안치봉•1999.04.22 02:50하윤철 wrote: > 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면 > 어떻게 해야 하나여...
-
- 홍미자
- •
- 1999.04.22 01:38
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.04.22 02:47홍미자 wrote: > 모든 오브젝트의 포커스 이동을 엔터키로 처리하는데 라디오 그룹 컴포넌트는 > OnKeyP...
-
- WEB
- •
- 1999.04.22 01:26
- 1 COMMENTS
- /
- 0 LIKES
-
김영해•1999.04.22 01:51WEB wrote: > 파라독스로 테이블을 만들다가 메모라는 입력형태가 있는데 어떻게 해야하는지 몰라서 질문...
-
- 강신구
- •
- 1999.04.22 00:37
- 1 COMMENTS
- /
- 0 LIKES
-
chaser•1999.04.22 01:32강신구 wrote: > 안녕하세요.. > > 여긴엔 첨 질문을 올리는군요.. > > 질문1] > > 메모 컴포넌...
-
- 초보
- •
- 1999.04.22 00:07
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.04.22 03:58초보 wrote: > Table에있는 Field의 size를 가져오려면... > 꼬옥 알려주세요... 초보님 안녕하세요? ...
-
- 강두헌
- 1999.04.22 00:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 1999.04.21 23:47
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.04.22 03:14궁금이 wrote: > 안녕하세요. > DLL화일안에 두개의 함수를 사용했습니다. > 두 함수들은는 overloadin...
-
- 안병운
- 1999.04.21 21:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤석영
- •
- 1999.04.21 19:57
- 1 COMMENTS
- /
- 0 LIKES
-
최수영•1999.09.19 00:48윤석영 wrote: > 안녕하세요, > 델파이에서 크리스탈 레포트를 사용할 수 있다는 소식을 들은 것 같은데...
-
- 건맨
- •
- 1999.04.21 19:50
- 1 COMMENTS
- /
- 0 LIKES
-
chaser•1999.04.21 23:20건맨 wrote: > 실시간 생성한 Component를 없애려면 어떻게 해야합니까... > 부탁합니다. 그냥 Free를...
-
- 남윤혁
- •
- 1999.04.21 18:35
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.04.21 23:28남윤혁 wrote: > 안녕하세요... > > 제가 양식기를 만들려고 합니다. > > 그런데 메뉴중에 용지 설...
-
- kbo
- 1999.04.21 18:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 권만섭
- •
- 1999.04.21 17:53
- 1 COMMENTS
- /
- 0 LIKES
-
이채원•1999.04.22 09:36권만섭 wrote: > 주소 입력시 우편번호를 입력해 주소를 찾는데 검색속도가 너무 느려요... > 우편번호 ...
-
- 조우철
- •
- 1999.04.21 09:41
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.04.21 20:47조우철 wrote: > 사용자가 Edit 창에 computer라고 치고 Button을 누르면 모든 txt 파일을 Search 해서 co...
-
- 김성희
- •
- 1999.04.21 09:07
- 2 COMMENTS
- /
- 0 LIKES
-
이채원•1999.04.21 09:54김성희 wrote: > 제가 현재 메인폼을 만들고 있는데요... > 2개의 폼을 썼거든요..!! > 1개의 폼은 메뉴...
-
김성희•1999.04.22 21:11빠른 답변 고맙습니다. 급한거였느데... 그럼, 행복하세요.
-
- 이정욱
- 1999.04.21 06:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 강지영
- •
- 1999.04.21 05:31
- 2 COMMENTS
- /
- 0 LIKES
라디오그룹에 세개의 아이템(Cust_No,Name,Phone)을 넣구요 Edit1.Text를 넘겨받아서 쿼리를 실행시키려고 하니 에러가 생깁니다.. 에러내용인즉 General sql error Token unknown -line 2, char - 1 '+sql+'' 이라는데요.. 아래는 검색버...-
박홍석•1999.04.21 09:20강지영 wrote: > 라디오그룹에 세개의 아이템(Cust_No,Name,Phone)을 넣구요 > Edit1.Text를 넘겨받아서 ...
-
강지영•1999.04.22 20:47박홍석 wrote: > 강지영 wrote: > > 라디오그룹에 세개의 아이템(Cust_No,Name,Phone)을 넣구요 > > Edi...
-
- 문창완
- 1999.04.21 05:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 강태호
- •
- 1999.04.21 05:15
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.04.21 10:17강태호 wrote: > RM-COBOL DATA 화일을 DB로 바꿀수 있는 컴포넌트 혹은 소스가 있는가요? 음냐....ISA...
-
- 권용만
- 1999.04.21 03:51
- 0 COMMENTS
- /
- 0 LIKES
> 라디오그룹에 세개의 아이템(Cust_No,Name,Phone)을 넣구요
> Edit1.Text를 넘겨받아서 쿼리를 실행시키려고 하니
> 에러가 생깁니다..
>
> 에러내용인즉
>
> General sql error
> Token unknown -line 2, char - 1
> '+sql+''
> 이라는데요..
>
> 아래는 검색버튼의 내용입니다.
> procedure TForm2.Button1Click(Sender: TObject);
> var
> Sql : TStringList;
> begin
> initialize(SQL);
> try
> SQL := TStringList.Create;
> with DM.Query1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add('Select * From SJCust');
> SQL.Add('''+Sql+''');
>
> Case RadioGroup1.ItemIndex of
> 0 : Sql.Add('where Cust_No = "'+Edit1.Text+'"');
> 1 : Sql.Add('where Name like "%'+Edit1.Text+'%"');
> 2 : Sql.Add('where Phone like "%'+Edit1.Text+'%"');
> end;
> open;
> end;
> Finally
> SQL.Free;
> end;
> Finalize(SQL);
> end;
>
안녕하세요. 박홍석입니다.
소스를 아래처럼 해보시죠.
var
str : string;
SQL.Add('Select * From SJCust');
SQL.Add(str);
Case RadioGroup1.ItemIndex of
0 : str := 'where Cust_No = "'+Edit1.Text+'"';
1 : str := 'where Name like "%'+Edit1.Text+'%"';
2 : str := 'where Phone like "%'+Edit1.Text+'%"';
end;