Q&A

  • 어다가잘못인가요 잘 안된는군요
에러네용
you have an error in your sql syntax near 'update custom set cust_dmcount=1 where cust_no=1 ' at line 2.
이런 에러가 납니다.


리얼그리드의 필드는  아래와 같고 1번 필드가 프라이머리입니다.
1필드  2필드   3필드 (카운트할 필드입니다)     4필드(체크하는 필드입니다)
    1      돌쇠                0                                             *
    2      물쇠                0                                                  
    3      불쇠                0                                              *

1.먼저 버튼을 만들었습니다.
2.버튼을 누르면 4번필드의 체크된 로우를  쿼리로 가져왔습니다.
3.쿼리로 가져온 로우의 3번필드를 일 증가시켜야 합니다.
  여기서 막힙니다.

        


procedure form1.Button1Click(Sender: TObject);
var
a,b : integer ;
begin
with query1 , agrid  do
  begin
   sql.clear;
   sql.Add('select * from custom where cust_dmort = "*"');     // 4번필드이름 cust_dmort
   open;

        while not eof do
          begin
             a :=  FieldByName('1번필드').Asinteger;     // 1번필드이름 cust_no      
             b :=  FieldByName('3번필드').Asinteger +1 ;  //2번필드 이름 cust_dmcount

           sql.add('update custom set cust_dmcount =:cust_dmcount  where cust_no:=cust_no ');
           parambyname('cust_no').asinteger := b;
           parambyname('cust_dmcount').asinteger := a ;                        
           execsql;
           next;
         end;

  end;
end;

     close;

    end;



0  COMMENTS