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