에러네용
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;