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

C++빌더 팁&트릭
C++Builder Programming Tip&Tricks
[432] TADOStoredProc 로 오라클 프로시져 실행하기
DoyongID [doyongid] 10673 읽음    2004-07-27 11:55
아무도 답변을 해주시는 분이 없어서.. 혼자서 낑낑대다가 3일만에 겨우 알아냈습니다. -.-
참.. C++빌더라는 컴파일러가 좋긴하지만, 남한테 추천하기는 힘드네요.. 이렇게 정보 얻기가 힘들어서야..


아래는 해당 유저가 DB상에 존재하는가를 검사하는 프로시져입니다. 1이면 있음, 0이면 없음, 그 외의 값이면 DB에 문제가 있는거겠죠..
create or replace procedure IsExistUser(pID IN PersonalInfo.ID%type, pExist OUT Number) AS
begin
    Select Count(Inx)
    Into pExist
    From PersonalInfo
    Where ID = pID;
Exception
    when NO_DATA_FOUND then
    pExist := 0;
End IsExistUser;
/

아래는 ADOStoreProc를 이용한 소스입니다..
    OleVariant  Value;
    TParameter  *lpParam;

    clADO.lpADOProc[pThreadID]->Close();
    clADO.lpADOProc[pThreadID]->ProcedureName    = "IsExistUser";
    clADO.lpADOProc[pThreadID]->Parameters->Clear();
    clADO.lpADOProc[pThreadID]->Parameters->CreateParameter("pID", ftString, pdInput, 0, NULL);
    clADO.lpADOProc[pThreadID]->Parameters->CreateParameter("pExist", ftInteger, pdOutput, 0, &Value);
    clADO.lpADOProc[pThreadID]->Parameters->ParamByName("pID")->Value   = pID; // 여기에 ID입력

    clADO.lpADOProc[pThreadID]->ExecProc();

    lpParam = clADO.lpADOProc[pThreadID]->Parameters->FindParam("pExist");
    return Integer(lpParam->Value);

+ -

관련 글 리스트
432 TADOStoredProc 로 오라클 프로시져 실행하기 DoyongID 10673 2004/07/27
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.