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 연결을 유지적으로 할수 있는 방법을 가려쳐 주십시요. 이 은혜 잊지 않겠습니다.
|