안녕하세요..
델코초보입니다..
델파이에서 SQL 문을 사용하는데 Parameter를 사용하지 않고 직접사용하려고는 데 Error
가 발생이 되네요.. 도와주세요..
아래는 source입니다...
지식에 목마른 주니가..
Var
SQL : String;
begin
SQL := 'SELECT DISTINCT "ED_Type" , "ED_desc" From Edu_Type_TBL';
with Query1 do begin
Close;
Sql.Clear;
if Ed_Class.Text <> 'All' then
SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text '''' ;
-> ([Error] : Incompatible types: 'String' and 'TStrings')
Sql.Add(SQL);
OPEN;
고수님들의 한수 지도바랍니다...
SQL 을 다른 이름으로 선언해 보세요.
SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text '''' ;
-> SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text + '''' ;
*** "+" 가 빠졌네요. ***
준희 wrote:
> 안녕하세요..
> 델코초보입니다..
>
> 델파이에서 SQL 문을 사용하는데 Parameter를 사용하지 않고 직접사용하려고는 데 Error
> 가 발생이 되네요.. 도와주세요..
>
> 아래는 source입니다...
>
> 지식에 목마른 주니가..
>
> Var
> SQL : String;
> begin
>
> SQL := 'SELECT DISTINCT "ED_Type" , "ED_desc" From Edu_Type_TBL';
>
> with Query1 do begin
> Close;
> Sql.Clear;
>
> if Ed_Class.Text <> 'All' then
> SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text '''' ;
> -> ([Error] : Incompatible types: 'String' and 'TStrings')
>
> Sql.Add(SQL);
> OPEN;
>
> 고수님들의 한수 지도바랍니다...
>
>