Q&A

  • [^^;;] 동적테이블에서 데이타 추가시 문제점~~
imtable이라는 동적 테이블을 생성했습니다

edit 박스에서 입력받은 자료를 생성된 화일에 추가하려고 하는데요

다른건 문제가 안되는데 no 라는 필드는 유일키로 integer형으로 자동증가하려고 합니다. 어떻게 구현을 해야하는것인지

변수에 자동증가 수를 넣어 대입하면 에러가 나는데요

어떻게 해야하는지 가르침을 주세요~~





procedure tform1.make_table;

var

imtable : ttable;



begin

// 동적 테이블 생성 //

//////////////////////



// field 생성

with imtable.FieldDefs do begin

Clear;

Add('no', ftfloat,0, true); <- 유일키로 자동 생성 되게,,,

Add('kind_db', ftstring, 50, true);

.

.



end;



// index 생성

imtable.IndexDefs.Clear;

imtable.IndexDefs.Add('', 'no;kind_db', [ixPrimary]);

imtable.CreateTable;



end;



// edit box에서 입력받은 data Insert 부분

imtable.Open;

autosu := imtable.RecordCount + 1;

imtable.Insert;



imtable.FieldByName('no').value := autosu ; <- 에러!!



imtable.FieldByName('kind_db').asstring := ed3.Text ;



1  COMMENTS
  • Profile
    하기 2001.05.16 00:41
    Add('no', ftInteger,0, true); <- 이렇게 써보심이...





    졸다졸다 wrote:

    > imtable이라는 동적 테이블을 생성했습니다

    > edit 박스에서 입력받은 자료를 생성된 화일에 추가하려고 하는데요

    > 다른건 문제가 안되는데 no 라는 필드는 유일키로 integer형으로 자동증가하려고 합니다. 어떻게 구현을 해야하는것인지

    > 변수에 자동증가 수를 넣어 대입하면 에러가 나는데요

    > 어떻게 해야하는지 가르침을 주세요~~

    >

    >

    > procedure tform1.make_table;

    > var

    > imtable : ttable;

    >

    > begin

    > // 동적 테이블 생성 //

    > //////////////////////

    >

    > // field 생성

    > with imtable.FieldDefs do begin

    > Clear;

    > Add('no', ftfloat,0, true); <- 유일키로 자동 생성 되게,,,

    > Add('kind_db', ftstring, 50, true);

    > .

    > .

    >

    > end;

    >

    > // index 생성

    > imtable.IndexDefs.Clear;

    > imtable.IndexDefs.Add('', 'no;kind_db', [ixPrimary]);

    > imtable.CreateTable;

    >

    > end;

    >

    > // edit box에서 입력받은 data Insert 부분

    > imtable.Open;

    > autosu := imtable.RecordCount + 1;

    > imtable.Insert;

    >

    > imtable.FieldByName('no').value := autosu ; <- 에러!!

    >

    > imtable.FieldByName('kind_db').asstring := ed3.Text ;

    >