금강산 wrote:

>

> 제발 찾아주세여.. 자꾸 실행중 멈춰버리네여

>

> mtot := 0;

> mgong := 0;

> mvat := 0;

> with query2 do

> begin

> close;

> sql.clear;

> sql.add('select sum(total) as mtot, sum(gong) as mgong, sum(vat) as mvat ');

> sql.add('from s2200009 where junno = '''+mjunno+''' ');

> open;

> mtot := StrToInt(query2.fields[0].asstring);

> mgong := StrToInt(query2.fields[1].asstring);

> mvat := StrToInt(query2.fields[2].asstring);

> end;

> With Query1 Do

> Begin

> Close;

> SQL.Clear;

> SQL.Add(' Update s1200009');

> SQL.Add(' set totamt = ' + inttostr(mtot) + ',');

> SQL.Add(' totgong = ' + inttostr(mgong) + ',');

> SQL.Add(' totvat = ' + inttostr(mvat) );

> SQL.Add(' Where junno = "' + mjunno + '"') ;

> ExecSQL ; // 문제의 라인

> End;

>

> ExecSQL;에서 멈춰버리네여..

>

> 고수님들 부탁 부탁...

>





With Query1 Do

> Begin

> Close;

> SQL.Clear;

> SQL.Add(' Update s1200009');

> SQL.Add(' set totamt = ''' + inttostr(mtot) + ''' + '''+ ',' + '''');

> SQL.Add(' totgong = ''' + inttostr(mgong) + ''' + ''' + ',' + '''');

> SQL.Add(' totvat = ''' + inttostr(mvat) + ''' ' );

> SQL.Add(' Where junno = ''' + mjunno + '''') ;

> ExecSQL ; // 문제의 라인

> End;



이렇게해 보시고 안되면 걍 이렇게 해여

With Query1 Do

> Begin

> Close;

> SQL.Clear;

> SQL.Add(' Update s1200009');

> SQL.Add(' set totamt = :A1,);

> SQL.Add(' totgong = :A2,);

> SQL.Add(' totvat = :A3 );

> SQL.Add(' Where junno = :A4) ;

> ParamByName('A1').AsString := inttostr(mtot);

ParamByName('A2').AsString := inttostr(mgong);

ParamByName('A3').AsString := inttostr(mvat);

ParamByName('A4').AsString := mjunno;

ExecSQL ; // 문제의 라인

> End;

end;



이런식으로 해도 되구여~~~~~~~



그럼



















>