• 고객센터
  • 교육
  • 매뉴얼
  • 데모
  • 제품소개
조회 수 : 3303
2005.10.28 (22:23:59)
네. 그부분은 주석으로 막았구요..

    aaa = objToinbAsp.GetCol("out1", 2, "Codeid", TB_STRING) '// 2번째 로우의 codeid column값을 가져오자.
    MsgBox aaa

이렇게 하는데도 NULL인것 같습니다.

max_num = objToinbAsp.GetRowCnt("out1") '// 이곳의 값은 정상적으로 나옵니다.

리턴된 모든 로우의 값은 올바른 것 같은데
각 컬럼별 데이타값의 조회가 정상적이지 않은 것 같습니다.




>>정말감사합니다. 생각보다 어렵지 않아 다행입니다.
>>알려주신데로 처리해보는 과정에서 GetCol()함수 호출에 대해 값이 안 넘어와서
>>다시 글을 올립니다.
>>
>>   lRowCnt = objToinbAsp.GetRowCnt("out1")
>>
>>MsgBox lRowCnt
>>
>>     If objToinbAsp.ReturnValue < 0 Then
>>         MsgBox ("GetRowCnt Error" + objToinbAsp.GetErrStr)
>>         Exit Sub
>>     End If
>>
>>'     For i = 1 To lRowCnt
>>'
>>''        If i <> 0 Then
>>''            Text1.Text = Text1.Text & Chr(10)
>>''            Text2.Text = Text2.Text & Chr(10)
>>''        End If
>>'
>>'        'Text1.Text = Text1.Text & objToinbAsp.GetCol("out", i, "Codeid", 10, TB_STRING)
>>'        'Text2.Text = Text2.Text & objToinbAsp.GetCol("out", i, "Codenm", TB_STRING)
>>'
>>'
>>'
>>'     Next
>>
>>  
>>    aaa = objToinbAsp.GetCol("out1", 2, "Codeid", TB_STRING)
>>    
>>     If objToinbAsp.ReturnValue < 0 Then
>>         MsgBox ("GetRowCnt Error" + objToinbAsp.GetErrStr)
>>         Exit Sub
>>     End If
>>    
>>     MsgBox "--" & aaa & "--"
>>
>>이렇게 했을 때 리턴된 Row Count는 맞게 나오는데요
>>각 칼럼별 데이타를 찾는 GetCol () 함수를 실행했을 NULL로
>>리턴이 되는 것 같습니다. Syntax가 차이가 있는 것인지요?
>>
>>아. 그리고 토인비 콤포넌트의 그리드나 데이타 SET을
>>VB에도 적용시킬 수 있는 방법이 있을까요?
>>
>>
>>
>>>
>>>>게시판을 이용해 주셔서 감사합니다.
>>>>다음양식에 맞게 입력해주세요.
>>>>
>>>>* 고객시스템명 :
>>>>* TOInB 버전 : 5.0
>>>>* 서버 Platform :
>>>>* 문의 유형(질문/요청/참조) :
>>>>* 내용 :
>>>>
>>>>수고하십니다.
>>>>
>>>>등록되어있는 SOB의 Object들을 C/S쪽에서 사용할 수 는 있는지 알고 싶습니다.
>>>>웹으로 서비스되고있는 사이트를 C/S프로그램으로 돌릴 필요가 있다고 생각이
>>>>들어 프로그램을 개발해야 하는데요. 데이타 작업은 기존 만들어 놓은 SOB를
>>>>활용할 수 있을것 같다는 생각이 들어서요.
>>>>
>>>>모회사에 SI로 들어갔을 때 Tuxedo기반에서 C++로 C/S,
>>>>JSP로 웹서비스하는데, DataSet Object는 한 분말 개발하더라고요.
>>>>
>>>>저희쪽에서는 VB로 개발할 생각인데요.
>>>>혹시 방법이 있으시면 알고싶습니다.
>>>>감사합니다.
>>>
>>>TOInB의 ToinbAsp.dll API 모듈을 사용하셔서 VB로 작성 가능합니다.
>>>
>>>다음은 VB로 작성하는 예입니다.
>>>
>>>Module Module1
>>>
>>>    Sub Main()
>>>
>>>        Dim objToinbAsp = CreateObject("ToinbAsp.ToinbWAsp")
>>>
>>>        Call objToinbAsp.Init("C:\\Inetpub\\Scripts\\message.ko", "D:\\Toinb_api.log")
>>>        If objToinbAsp.ReturnValue < 0 Then
>>>            MsgBox("Init Error" + objToinbAsp.GetErrStr)
>>>            Exit Sub
>>>        End If
>>>
>>>        Call objToinbAsp.SetArg("ddd=111,name=안녕하세요,fff=56", vbNullString, ",", "=")
>>>        If objToinbAsp.ReturnValue < 0 Then
>>>            MsgBox("SetArg Error" + objToinbAsp.GetErrStr)
>>>            Exit Sub
>>>        End If
>>>
>>>        Call objToinbAsp.GetData("210.124.184.25", "5001", 30, "demo_sel(O:output=out)")
>>>        If objToinbAsp.ReturnValue < 0 Then
>>>            MsgBox("GetData Error" + objToinbAsp.GetErrStr)
>>>            Exit Sub
>>>        End If
>>>
>>>        Dim iLoop, lRowCnt
>>>
>>>        On Error Resume Next
>>>        lRowCnt = objToinbAsp.GetRowCnt("out")
>>>        If objToinbAsp.ReturnValue < 0 Then
>>>            MsgBox("GetRowCnt Error" + objToinbAsp.GetErrStr)
>>>            Exit Sub
>>>        End If
>>>
>>>    End Sub
>>>
>>>End Module
>>>
>>
>
>문법상으로는 틀린게 없는듯하네요.
>다만 의심이 가는 부분은 리턴받은 아웃풋데이터셋이름이 out1 으로 받으신거 같은데.
>
>'Text1.Text = Text1.Text & objToinbAsp.GetCol("out", i, "Codeid", 10, TB_STRING)
>에서 보면 out 을 참조하시는것 같거든요?
>
>
번호 제목 닉네임 조회 등록일
497 Tr 파라미터 전달 방법 문의 [1]
엄엄
9490 2016-03-17
496 SAP 연계 메뉴얼 요청 [1]
조성제
10219 2016-01-29
495 출력 시 오류 문의 드립니다. [3]
DA인포메이션
9380 2015-12-14
494 서버 IP변경으로 라이센스 재발급 방법 [1]
루시퍼
7893 2015-11-03
493 Dynamic Report Builder 레포트 관련 문의 [1]
snowaka
7696 2015-08-27
492 Clob처리 관련 답변 부탁드립니다 [1]
메탈키드
7513 2015-07-29
491 토인비웹리포팅 바코드와 PCL5 [1]
고척동제이
8190 2015-07-20
490 toinb 세션 time out 문의 [1]
변주선
8163 2015-07-15
489 토인비5.0 다국어 지원 [1]
김택근
7607 2015-05-21
488 Toinb 문제점 확인요청(천진삼성SDI) [1]
tsdi
7768 2015-05-04
487 서버 디스크 변경시 Toinb 싱행에러 문의 [1]
tsdi
7434 2015-05-04
486 SOB관련 문의 입니다. [1]
9420 2015-02-06
485 IE 11 호환성 문의 [1]
조성제
7788 2015-01-08
484 java 업데이트시 서버에 미치는 영향 [1]
도영곤
8036 2014-09-16
483 SE_LOG variable 함수 관련 문의 드립니다. [1]
임상혁aaa
7523 2014-06-26
482 RunExcelSheet 구현 [1]
김강중
7576 2014-03-27
481 BLOB 처리방법 문의? 파일 [1]
후니7
8930 2014-01-03
480 토인비 변수 비교시 에러 발생(수정) [1]
서원규
7543 2013-03-26
479 토인비 변수 비교시 에러 발생 [1]
서원규
7569 2013-03-26
478 TOInB EVENT REMOTE_ADDR 변수 관련 문의 [1]
서원규
7716 2013-03-22
Tag List
XE Login