검색해 보니 아래와 같은 정보가 나오네요..
Question: How to check whether a table exists or not?
Answer: SELECT RDB$RELATION_NAME FROM RDB$RELATIONS /* all tables will be shown */
WHERE RDB$RELATION_NAME = 'your_TABLE' /* particular table is checked*/
출처:http://www.devrace.com/en/fibplus/articles/2325.php
전봉수 님이 쓰신 글 :
: 안녕하십니까? 전봉수입니다.
: Firebird 를 사용하고 있습니다. FDB내에 Table를 배포시 연습 데이타를 넣어서 구입하신분들이 연습후
: 연습 Table는 IBExpert 를 기동하여 지우고 지워진 Table은 은 메뉴에서 동적으로 생성하도록 하였는데요
: 생성되지 않은 메뉴의 ENABLED는 True 되어야하고 생성된 메뉴의 ENABLED는 False 되어야하는데
: 어떤방법으로 하여야할지 몰라서 고수님들에게 도움을 청합나다.
:
: 운영체제 Win_xp 델파이 7.0 Firebird 2.1 입니다.
:
:
: 아래는 제가한번 어설프게 구현한 방법인데 않되는군요
: procedure TEQUIP_F.FormShow(Sender: TObject);
: begin
: IF NOT FILEEXISTS(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\TF_PART') THEN
: begin
: Part_Table.ENABLED := FALSE;
: end
: else
: Part_Table.ENABLED := True;
:
: IF NOT FILEEXISTS(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\TF_JOB_TY') THEN
: begin
: Job_Table.ENABLED := FALSE;
: end
: else
: Job_Table.ENABLED := True;
:
: IF NOT FILEEXISTS(EXTRACTFILEPATH(APPLICATION.EXENAME)+'DATA\TF_EQM_STD') THEN
: begin
: Std_Table.ENABLED := FALSE;
: end
: else
: Std_Table.ENABLED := True;
: end;
|