전 NO필드를 자동 채번 할려고 하는데 잘 안되네요
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add(' SELECT MAX(NO) CNT ');
Query3.SQL.Add(' FROM CDMGM ');
Query3.Open;
e_no.Text := Copy(IntToStr(Query3.FieldByName('CNT').asInteger + 10001),2,4);
이렇게 코딩을 했는데 컴파일시 에러는 업구요
쿼리한 값은 계속 1이 나타납니다. 도와주세요... 꾸벅
> 전 NO필드를 자동 채번 할려고 하는데 잘 안되네요
>
> Query3.Close;
> Query3.SQL.Clear;
> Query3.SQL.Add(' SELECT MAX(NO) CNT ');
> Query3.SQL.Add(' FROM CDMGM ');
> Query3.Open;
>
>
> e_no.Text := Copy(IntToStr(Query3.FieldByName('CNT').asInteger + 10001),2,4);
>
>
> 이렇게 코딩을 했는데 컴파일시 에러는 업구요
> 쿼리한 값은 계속 1이 나타납니다. 도와주세요... 꾸벅
>
Select lTrim(To_Char(max(substr(sn,2,4))+1,''0009'')) int from cdmgm
쿼리문은 이렇게 날리구..
e_no.Text := FieldByName('int').value;
데이터는 이렇게 받으세요..
이렇게 한번 해보시죠..