글 수 497
조회 수 : 3082
2005.10.28 (21:21:36)
>정말감사합니다. 생각보다 어렵지 않아 다행입니다.
>알려주신데로 처리해보는 과정에서 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 을 참조하시는것 같거든요?
>알려주신데로 처리해보는 과정에서 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 을 참조하시는것 같거든요?
http://member.shift.co.kr/index.php?document_srl=99965
(*.124.184.25)
|
|
