>게시판을 이용해 주셔서 감사합니다.
>다음양식에 맞게 입력해주세요.
>
>* 고객시스템명 :
>* 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
>
> =============================================================================

        return_value = objToinbAsp.GetCol("result", 0, "codeid", TB_STRING)
        부분에서 TB_STRING은 미리정의된 상수값이어야 하는데 이부분의 정의가 되어 있지 않아
        값을 제대로 받지 못하고 있는 것으로 보입니다.
        이 부분을 다음과 같이 고쳐서 실행하시기 바랍니다.
      
        return_value = objToinbAsp.GetCol("out", 0, "name", &H1)

        
       참고로 다음과 같은 미리정의된 상수값을 알려드리겠습니다.
      
'Define Constants
        
' SetColInfo, GetCol, PutCol
Const TB_STRING = &H01        'string value
Const TB_INT = &H02                'integer value
Const TB_DECIMAL = &H04        'double value
Const TB_DATE = &H08        'physically string value
Const TB_CHAR = &H0C

' Reserve
Const TB_BLOB = &H09        'physically character pointer
Const TB_URL = &H0A                'physically string value
Const TB_LONG = &H0B        'long type gubun
        
' InsertRow
Const TB_JOB_NORMAL = 1        'grid row sort value
Const TB_JOB_INSERT = 2        'grid row sort value
Const TB_JOB_UPDATE = 3        'grid row sort value
Const TB_JOB_DELETE = 4        'grid row sort value

' SetColInfo
Const TB_NORMAL_COL = &H00                                'grid col_info->Prop value
Const TB_NOTNULL_COL = &H01                                'grid col_info->Prop value
Const TB_KEY_COL = &H03                                        'grid col_info->Prop value
Const TB_SEQUENCE_COL = &H07                                'grid col_info->Prop value
Const TB_CONST_COL = &H0F                                'grid col_info->Prop value