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 ;
졸다졸다 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 ;
>