Q&A

  • 자동으로 채번을 할려고 하는데...
전 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이 나타납니다. 도와주세요... 꾸벅



1  COMMENTS
  • Profile
    초보자 2000.07.13 03:42
    이성훈 wrote:

    > 전 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;

    데이터는 이렇게 받으세요..



    이렇게 한번 해보시죠..