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
[8022] [질문] AdoStoreProcedure Parameter동적생성 ..... [긴급긴급]
부산 [subin232] 777 읽음    2002-03-23 19:56
Delphi 5.0
Sql Sever 2000

긴급 도움을 요청합니다. 혹시 아시는 분이 계시면 상세 하게 도움 말씀을
주시면 감사하겠습니다.

지금 개발 환경은 MTS Data Module를 기본으로 
ADOConnction, ADOStoreProcedure, DataSetProvider를 사용하여 프로그램을 작성하고 있는 중입니다.

function TMTSDBMD.ProviderDataRequest(Sender: TObject;
  Input: OleVariant): OleVariant;
var
  Connection : oleVariant;
  S_Ip : string;
begin

   AdoStore.Connection        := AdoConn;
   AdoStore.ProcedureName := 'SC_Erdm_Qry';

   AdoStore.Parameters.AddParameter;
   AdoStore.Parameters[1].DataType := FtString;
   AdoStore.Parameters[1].Direction:= pdInput;
   AdoStore.Parameters[1].Value := '001001';

   AdoStore.Parameters.AddParameter;
   AdoStore.Parameters[2].DataType := ftString;
   AdoStore.Parameters[2].Direction:= pdInput;
   AdoStore.Parameters[2].Value := '';

   AdoStore.Parameters.AddParameter;
   AdoStore.Parameters[3].DataType := ftString;
   AdoStore.Parameters[3].Direction:= pdInput;
   AdoStore.Parameters[3].Value := '';

   AdoStore.ExecProc;
end;

Client Pgm에서 DCOMConnection, ClientDataSet로 Store Procedure 명과 Parameter를 CommandText로 전달합니다.

그런데 실행하면 StoreProcedure Name이 정의 않되었다고 하고
강제적으로 Sp명을 Set시키 후 실행하면 Parameter가 없는 것으로 어러가
발생합니다.
이것을 Test하는데 3일을 헤메고 있읍니다.
혹시 잘아시는 고수님이 계시면 설명과 더불어 다른 방법으로
Client -> Mts -> StoreProcedure -> DB 연결을 유지적으로 할수 있는 방법을 가려쳐 주십시요. 이 은혜 잊지 않겠습니다.



+ -

관련 글 리스트
8022 [질문] AdoStoreProcedure Parameter동적생성 ..... [긴급긴급] 부산 777 2002/03/23
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.