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
[7133] >질문< 테이블 not exits에러 해결하기
k2453540 [ ] 575 읽음    2000-03-29 19:17
  ┌────────────────┐  프로그램 시작시, 테이블이 없으면,
  │Table not exist.                │  옆과 같은 에러를 냅니다.
  │File or directory does not exits│ 
  │File:C:\Prj\db\mydb_11.db       │  이 메세지를 처리하기 위해,
  │        [확인]                  │  다음과 같이 했습니다.
  └────────────────┘

//폼create이벤트에서 
try
    table1.Active:=true;
  except on EDBEngineError do
    begin
      ShowMessage('db파일이 존재하지 않습니다');
      frm_1.free;  //혹은 frmInput.destroy
      frm_11.free;
    end;
  end;          

이렇게 하면, 메세지는 나타나는데, frm_1안에 있는 frm_11는 생성되어버리네요.

<질문1> 위와 같이, db파일이 존재하지 않을 때, 폼이 생성되지 않도록
        하려면 어떻게 해야할까요?
<질문2> db파일이 존재하지 않을경우, 해당 db파일이 있는곳을 찾으려 합니다.
        예를 들어, if not Table1.exists then
                   var
                     sPath, stemp:string;
                   begin       
                      //sPath:=(db파일이 있는 path를 알아내는 함수 사용)        
                      //stemp:=extractFilePath(sPath);
                               //중략
                   end;
         이런식으로 하려하거든요.
         자신이 찾고자 하는 파일을 찾는 함수를 알고자 합니다.


+ -

관련 글 리스트
7133 >질문< 테이블 not exits에러 해결하기 k2453540 575 2000/03/29
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.