ParamByName을 사용하는 방법도 있구요. 그럼.. 따옴표 찍을일은 없을테니까요.



저같은 경우에도 따옴표 찍는 실수를 많이하는데요. 문장이 좀 길어지면... 눈 튀어나오거든요. 물론 정신건강에도 않좋구요.

그래서 전 폼에다 memo 컴포넌트를 갖다놓구요.



코딩내용이 아래와 같을때



sql.add('select * from ....');

sql.add('where 어쩌구 저쩌구...');

sql.add('where 어쩌구 저쩌구...');

sql.open



먼저 sql.open 부분을 주석처리하구요.

대신에 memo1.text:=Query1.text; 를 합니다.

그럼... Query가 실행이 안되니까 에러는 안뜰거구요.

메모장에는 입력된 SQL문장이 나타나거든요. 보면 따옴표를 잘찍었는지 확인가능할겁니다.

임형호 wrote:

> ParamByName을 사용하는 방법도 있구요. 그럼.. 따옴표 찍을일은 없을테니까요.

>

> 저같은 경우에도 따옴표 찍는 실수를 많이하는데요. 문장이 좀 길어지면... 눈 튀어나오거든요. 물론 정신건강에도 않좋구요.

> 그래서 전 폼에다 memo 컴포넌트를 갖다놓구요.

>

> 코딩내용이 아래와 같을때

>

> sql.add('select * from ....');

> sql.add('where 어쩌구 저쩌구...');

> sql.add('where 어쩌구 저쩌구...');

> sql.open

>

> 먼저 sql.open 부분을 주석처리하구요.

> 대신에 memo1.text:=Query1.text; 를 합니다.

> 그럼... Query가 실행이 안되니까 에러는 안뜰거구요.

> 메모장에는 입력된 SQL문장이 나타나거든요. 보면 따옴표를 잘찍었는지 확인가능할겁니다.

>

>

> 도움되어 감사합니다.

그리고 처리를 했습니다. "'"찍는 것이 힘들어서 format 함수를 사용했습니다.











// 확인 구분 검색을 실시함 (결재완료,미결재,입고완료,미입고)

procedure Tfrminreport.btn_sea_ynClick(Sender: TObject);

var

vv_yn : string;

vv_dept : string;

begin

// 입력 에러 확인 실시



vv_yn := '';

vv_dept := '';



if cb_sea_yn.Text='' then

begin

showmessage('확인할 상태를 선택하세요');

cb_sea_yn.Clear;

exit;

end;



if cb_sea_yn.Text = '결재완료' then

begin

vv_dept :='i_manayn';

vv_yn := 'y';

end



else if cb_sea_yn.Text = '미결재' then

begin

vv_dept :='i_manayn';

vv_yn := 'n';

end



else if cb_sea_yn.Text = '입고완료' then

begin

vv_dept :='i_techyn';

vv_yn := 'y';

end



else if cb_sea_yn.Text = '미입고' then

begin

vv_dept :='i_techyn';

vv_yn := 'n';

end;





with qry_search do

begin

close;

sql.Clear;

sql.Add('select * from input');

sql.Add(Format('where %s =',[vv_dept]));

sql.Add(Format('''%s''',[vv_yn]));

Memo1.Text := qry_search.Text; // 확인하는 부분

open;

end;

end;



>

>

>