70세 코딩

gcc 에서 간단한 소스인데 다음과 같은 오류가 발생 하였다.

알고보니 gcc 에서는 namespace std를 사용하기 위해서는 컴파일러 옵션에 -lstdc++ 를 사용 해야 한다고.

또는 gcc 대신 g++ 를 사용하면 해당 옵션이 기본으로 포함 된다고 한다.

MS SQL 서버에서는 Stored Procedure 내에 그냥 SELECT 문을 써서 rowset을 클라이언트로 보낼 수 있어서
Delphi 에서 간단히 TADOStoredProc를 사용해서 파라미터만 넘겨주면 되었는데,
Oracle 에서는 이것이 되지 않아서 인터넷 에서 여러 자료를 검색하고 테스트를 해 보았지만 잘 되지 않았다.

그러다 시행착오 끝에 결국 해결방법을 찾아서 정리를 해 본다.

1. 우선 SP는 패키지를 이용해서 다음과 같은 식으로 정의 한다.

create or replace package pkgname is
     TYPE tRefCur IS REF CURSOR;
     procedure procname (
	Cust IN VARCHAR2,
	rs1 out tRefCur);
end pkgname;

create or replace package Body pkgname is
   procedure procname (
	Cust IN VARCHAR2,
	rs1 out tRefCur)
   Is
   Begin	
     open rs1 for
     SELECT
	 CustNo          
	,CustName          
	,Owner                 
	,EmpId                                     
	,TelNo            
	,BizNo        
	,vacct_no              
     FROM
	CustMst
     WHERE
	CustName like Cust || '%';

   End procname;
end pkgname;

Provider=OraOLEDB.Oracle.1;Password=패스워드;Persist Security Info=True;
User ID=유저;Data Source=데이터소스;Extended Properties="plsqlrset=1"

 

3. 화면은 간단히 다음과 같이 만들었다.

   검색창에 조회조건을 넣고 Find 버튼을 누르면 SP 호출을 통해서 rowset을 가져와서 TDBGrid에 보여 준다.

4. Find 버튼에 대한 Event Procedure 에서 다음과 같이 한다.

procedure TForm1.btnFindClick(Sender: TObject);
begin
  with ADOStoredProc1 do begin
    Close;
    Parameters.Clear;
    Parameters.CreateParameter('Cust', ftString, pdInput, 20, null).Value := txtFind.Text;
    Open;
  end;
end;

또는 미리 TADOStoredProc의 Parameters 속성에서 INPUT 파라미터를 정의하고 다음과 같이 해도 된다.

procedure TForm1.btnFindClick(Sender: TObject);
begin
  with ADOStoredProc1 do begin
    Close;
    Parameters.ParamByName('Cust').Value := txtFind.Text;
    Open;
  end;
end;

이 글이 도움이 되셨으면 좋아요 눌러 주시거나 댓글을 남겨 주시면 감사 하겠습니다.

아웃룩으로 보낸 메일을 받는 메일서버에서 제대로 인코딩이 안되면

첨부 파일 winmail.dat 로 해서 메일이 들어 오는 경우가 있습니다.

이 파일을 열어서 내용을 알 수 있도록 하는 프로그램인 'Winmail Opener' 입니다.

완전 무료 이며, winmail.dat 내에 첨부파일이 있는 경우도 인식 하여 다운 받을 수 있습니다.

1.5버전을 올려 놓습니다. 최신 버전 다운로드는 여기서 할 수 있습니다.

winmail_opener.exe

다양한 포터블 프로그램을 손쉽게 설치, 삭제, Update 하고 실행 할 수 있는

런처 프로그램 PortableApps 입니다.

사이트는 여기 입니다.