안녕하십니까.
사실 server 쪽은 아직 초보라... 어쨌건, Interbase 에서 table 을 정의하는
프로시져를 다음과 같이 만들었습니다.
ibdb : Tibdatabase, ibta1: Tibtransaction, ibtable1 : TibTable 입니다.
이렇게 하니, 첫 번째 테이블은 잘 만들어집니다. 그런데 같은 구조의 테이블을, filename 부분만 바꾸면서
다른 이름을 사용하여 하나 더 만들려고 하니 에러가 납니다. 제가 transaction 부분을 아직 잘 이해하지 못하고 있는데, 그것과 관련이 있는 것인지요?
하여간 어디가 잘못됐는지 알려 주시면 감사하겠습니다.
procedure Tdm1.CreateNewQnr (const filename: string);
begin
ibdb.Connected := False;
ibdb.Connected := True;
ibTA1.Active := True;
ibtable1.TableName := filename;
ibtable1.Active := False;
if not ibtable1.exists then
with ibtable1 do begin
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Ord';
DataType := ftInteger;
Required := True;
end;
(생략)
with AddFieldDef do begin
Name := 'tempValVal';
DataType := ftString;
Size := 80;
end;
end; // with FieldDefs
with IndexDefs do begin
Clear;
with AddIndexDef do begin
Fields := 'Ord';
Options := [ixPrimary];
end;
end;
CreateTable;
end; // with tblQdf & if not Exists
ibTA1.Commit;
Ibtable1.Active := true;
end;
|