글 수 497
조회 수 : 3302
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 을 참조하시는것 같거든요?
>
>
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 을 참조하시는것 같거든요?
>
>
http://member.shift.co.kr/index.php?document_srl=99964
(*.10.29.221)
|
|
