글 수 497
조회 수 : 3414
2005.11.01 (00:35:10)
게시판을 이용해 주셔서 감사합니다.
다음양식에 맞게 입력해주세요.
* 고객시스템명 :
* TOInB 버전 : 5.0
* 서버 Platform :
* 문의 유형(질문/요청/참조) :
* 내용 :
=============================================================================
// <. 질문 1>
// 다시 글을 올리게 되었습니다.
// 하위의 내용이 개발 소스 인데요.
// 해당 SOB 호출 후 Row Count값은 일치 하오나, 각 컬럼별 데이타를 가져오는데
// 정상적이지 않은 것 같습니다.
// 답변 내용들을 종합해봐도 오류사항이 눈에 띄지 않고 있는데,
// 제가 무언가 지나치고 있는게 아닌가 싶습니다.
// 잘 못된 점 지적좀 해주십시오.
//
// <. 질문 2>
// 혹시 VB에 윈도우 폼에서 DataSet, Grid 콤포넌트를 직접사용할 수 있는가 해서요
// 제가 VB를 통하여 "사용자 정의" 속성에서 각종 ServerIP, WebAgent 명, etc...
// 등을 입력하고 테스트 해보는 가운데 오류가 발생되어서요..
// 원칙적으로 안되는 것인지 알고 싶습니다.
// 사용가능하다면, 방법을 알려주셨으면 ...
// 바쁘신가운데 번번히 죄송합니다. 그럼 수고하세요
=============================================================================
ToinbIP = "220.90.216.28"
ToinbPort = "8301"
Set objToinbAsp = CreateObject("ToinbAsp.ToinbWAsp")
Call objToinbAsp.Init("E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\message.ko", _
"E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\CSToinb_api.log")
If objToinbAsp.ReturnValue < 0 Then
MsgBox ("Init Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
Call objToinbAsp.GetData(ToinbIP, ToinbPort, 30, "com_bank(O:output=result)")
If objToinbAsp.ReturnValue < 0 Then
MsgBox ("GetData Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
max_num = objToinbAsp.GetRowCnt("result")
MsgBox max_num
'// 이 부분의 값은 잘 넘어 오고 있습니다.
return_value = objToinbAsp.GetCol("result", 0, "codeid", TB_STRING)
'// 이 부분의 값이 넘어 오고 있지 않습니다.
MsgBox return_value
If objToinbAsp.ReturnValue < 0 Then
MsgBox ("GetData Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
Call objToinbAsp.Clear
Call objToinbAsp.DisconnectSE
Set objToinbAsp = Nothing
=============================================================================
다음양식에 맞게 입력해주세요.
* 고객시스템명 :
* TOInB 버전 : 5.0
* 서버 Platform :
* 문의 유형(질문/요청/참조) :
* 내용 :
=============================================================================
// <. 질문 1>
// 다시 글을 올리게 되었습니다.
// 하위의 내용이 개발 소스 인데요.
// 해당 SOB 호출 후 Row Count값은 일치 하오나, 각 컬럼별 데이타를 가져오는데
// 정상적이지 않은 것 같습니다.
// 답변 내용들을 종합해봐도 오류사항이 눈에 띄지 않고 있는데,
// 제가 무언가 지나치고 있는게 아닌가 싶습니다.
// 잘 못된 점 지적좀 해주십시오.
//
// <. 질문 2>
// 혹시 VB에 윈도우 폼에서 DataSet, Grid 콤포넌트를 직접사용할 수 있는가 해서요
// 제가 VB를 통하여 "사용자 정의" 속성에서 각종 ServerIP, WebAgent 명, etc...
// 등을 입력하고 테스트 해보는 가운데 오류가 발생되어서요..
// 원칙적으로 안되는 것인지 알고 싶습니다.
// 사용가능하다면, 방법을 알려주셨으면 ...
// 바쁘신가운데 번번히 죄송합니다. 그럼 수고하세요
=============================================================================
ToinbIP = "220.90.216.28"
ToinbPort = "8301"
Set objToinbAsp = CreateObject("ToinbAsp.ToinbWAsp")
Call objToinbAsp.Init("E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\message.ko", _
"E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\CSToinb_api.log")
If objToinbAsp.ReturnValue < 0 Then
MsgBox ("Init Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
Call objToinbAsp.GetData(ToinbIP, ToinbPort, 30, "com_bank(O:output=result)")
If objToinbAsp.ReturnValue < 0 Then
MsgBox ("GetData Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
max_num = objToinbAsp.GetRowCnt("result")
MsgBox max_num
'// 이 부분의 값은 잘 넘어 오고 있습니다.
return_value = objToinbAsp.GetCol("result", 0, "codeid", TB_STRING)
'// 이 부분의 값이 넘어 오고 있지 않습니다.
MsgBox return_value
If objToinbAsp.ReturnValue < 0 Then
MsgBox ("GetData Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
Call objToinbAsp.Clear
Call objToinbAsp.DisconnectSE
Set objToinbAsp = Nothing
=============================================================================
http://member.shift.co.kr/index.php?document_srl=99976
(*.10.29.221)
|
|
