글 수 497
조회 수 : 3416
2005.10.28 (02:27:49)
정말감사합니다. 생각보다 어렵지 않아 다행입니다.
알려주신데로 처리해보는 과정에서 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
>
알려주신데로 처리해보는 과정에서 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
>
http://member.shift.co.kr/index.php?document_srl=99966
(*.10.29.221)
|
|
