초보자 wrote:

> [paradox]

>

> operation not application에러입니다.

> 여기저기 찾아봐도 잘 안되네요.

>

>

> close ;

> sql.clear ;

>

> sql.add('update jswoo set js0101= :js0101' +

> ' where code= :code '

>

> ParamByName('code').asstring := edit1.text ;

> ParamByName('js0101').asinteger := strtoint(panel1.caption) ;

> execsql ;

>

>



조금이나마 도움이 되었으면 하는 마음에 적습니다.

set 다음에오는 'js0101'은 수정(Update)될 필드명입니다.

이곳에는 수정할 필드들을 모두 기술할수 있습니다.

그리고 'where'다음에오는 'code'는 수정할 레코드를 찾아오는

필드명입니다.



그리고 반드시 먼저 '수정할 레코드를 찾은 다음에 수정하여야 합니다.



간단한 update문을 기술하여 드리지요 !



+---------------------+

아래 소스는 제가 작성하고 있는 소스를 접부함.

+---------------------+

with Kyun_Query do

begin

close;

Sql.Clear;

SQL.Add('Update 견적서');

Sql.Add(' set 견적번호=:b1,고객코드=:b2,품명=:b3,');

Sql.add(' 자재=:b4,색상=:b5,넓이=:b6,높이=:b7,길이=:b8');

Sql.add(' 수량=:b9,단가=:b10,금액=:b11,견적일자=:12');

SQL.Add(' WHERE 견적번호 = :B1');

ParamByname('b1').AsString := kyun_no.Text;

ParamByname('b2').AsString := Ko_no.Text;

ParamByname('b3').AsString := Kyun_pum.Text;

ParamByname('b4').AsString := Ja_Jae.Text;

ParamByname('b5').AsString := Kyun_col.Text;

// 규격란 시작------------------------------------------------------------------

ParamByname('b6').AsInteger := StrToInt(Kyun_Nul.Text);

ParamByname('B7').AsInteger := StrToInt(Kyun_Gil.text);

ParamByname('B8').AsInteger := StrToInt(Kyun_Nop.text);

// 규격란 끝 ------------------------------------------------------------------

ParamByname('B9').AsFloat := StrToFloat(DelStr(Ky_Su.text, ','));

ParamByname('B10').AsFloat := StrToFloat(DelStr(Ky_Dan.text, ','));

ParamByname('B11').AsFloat := StrToFloat(DelStr(Ky_Kum.text, ','));

ParamByname('b12').AsDateTime:= StrToDate(Kyun_dt.Text);

ExecSql;

end;