음... 테이블의 동적생성은 제가 델파이에서 해본것은 있는데요..
별차이 없을 겁니다.
일단 델파이의 하나의 예를 들어 드리겠스빈다.
procedure TTable_Make.Room_Information_Table_Check;
var
FileName : String;
begin
FileName := 'Room_Info.Db';
if Not FileExists(Current_Path+FileName) then Begin
with MakeTable do begin
Active := False;
DatabaseName := 'HakSaJae';
TableName := FileName;
TableType := ttParadox;
with FieldDefs do begin
Clear;
Add('Room_Info' , ftAutoInc, 0 , False);
Add('Building' , ftInteger, 0 , False); // 학사재내의 건물호수
Add('Room_Start' , ftInteger, 0 , False); // 건물내의 방번호시작
Add('Room_Final' , ftInteger, 0 , False); // 건물내의 방번호의끝
Add('Sex' , ftString, 8 , False); // 성별
Add('Counter' , ftInteger, 0 , False); // 방개수.
end;
with IndexDefs do begin
Clear;
Add('MainIndex' , 'Room_Info;', [ixPrimary, ixUnique]);
Add('Room_Index' , 'Sex;Building;Room_Start', [ixCaseInsensitive]);
end;
CreateTable;
end; { With MakeTable }
end; { If Block }
end;
즉 현재의 패스에 화일이 있나를 확인하여 없으먀ㄴ 새로 생성이 들어가는
방식으로 FormCreate 같은 부분에 넣어두시면 됩니다.
위의 것으로 이해가 안되시면 멜주시면 답변해 드릴께요..
그럼...
~도치였스빈다.
|