Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[11369] Interbase 질문...
marinfo [] 1485 읽음    2007-06-12 15:36
안녕하십니까.

사실 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;

+ -

관련 글 리스트
11369 Interbase 질문... marinfo 1485 2007/06/12
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.