:: SHIFT 고객센터

번호	제목	닉네임	조회	등록일
97		VB에서 Sob를 컨트롤 해볼 수 있을까? 에 대한 질문 두번째
	윤치권	3053	2005-11-01
게시판을 이용해 주셔서 감사합니다. 다음양식에 맞게 입력해주세요. * 고객시스템명 : * TOInB 버전 : 5.0 * 서버 Platform : * 문의 유형(질문/요청/참조) : * 내용 : ============================================================================= // <. 질문 1> // 다시 글을 올리게 되었습니다. // 하위의 내용이 개발 소스 인데요. // 해당 SOB 호출 후 Row Count값은 일치 하오나, 각 컬럼별 데이타를 가져오는데 // 정상적이지 않은 것 같습니다. // 답변 내용들을 종합해봐도 오류사항이 눈에 띄지 않고 있는데, // 제가 무언가 지나치고 있는게 아닌가 싶습니다. // 잘 못된 점 지적좀 해주십시오. // // <. 질문 2> // 혹시 VB에 윈도우 폼에서 DataSet, Grid 콤포넌트를 직접사용할 수 있는가 해서요 // 제가 VB를 통하여 "사용자 정의" 속성에서 각종 ServerIP, WebAgent 명, etc... // 등을 입력하고 테스트 해보는 가운데 오류가 발생되어서요.. // 원칙적으로 안되는 것인지 알고 싶습니다. // 사용가능하다면, 방법을 알려주셨으면 ... // 바쁘신가운데 번번히 죄송합니다. 그럼 수고하세요 ============================================================================= ToinbIP = "220.90.216.28" ToinbPort = "8301" Set objToinbAsp = CreateObject("ToinbAsp.ToinbWAsp") Call objToinbAsp.Init("E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\message.ko", _ "E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\CSToinb_api.log") If objToinbAsp.ReturnValue < 0 Then MsgBox ("Init Error" + objToinbAsp.GetErrStr) Exit Sub End If Call objToinbAsp.GetData(ToinbIP, ToinbPort, 30, "com_bank(O:output=result)") If objToinbAsp.ReturnValue < 0 Then MsgBox ("GetData Error" + objToinbAsp.GetErrStr) Exit Sub End If max_num = objToinbAsp.GetRowCnt("result") MsgBox max_num '// 이 부분의 값은 잘 넘어 오고 있습니다. return_value = objToinbAsp.GetCol("result", 0, "codeid", TB_STRING) '// 이 부분의 값이 넘어 오고 있지 않습니다. MsgBox return_value If objToinbAsp.ReturnValue < 0 Then MsgBox ("GetData Error" + objToinbAsp.GetErrStr) Exit Sub End If Call objToinbAsp.Clear Call objToinbAsp.DisconnectSE Set objToinbAsp = Nothing =============================================================================
96		답변입니다.
	이장환	3231	2005-11-04
>게시판을 이용해 주셔서 감사합니다. >다음양식에 맞게 입력해주세요. > >* 고객시스템명 : >* TOInB 버전 : 5.0 >* 서버 Platform : >* 문의 유형(질문/요청/참조) : >* 내용 : > > ============================================================================= > // <. 질문 1> > // 다시 글을 올리게 되었습니다. > // 하위의 내용이 개발 소스 인데요. > // 해당 SOB 호출 후 Row Count값은 일치 하오나, 각 컬럼별 데이타를 가져오는데 > // 정상적이지 않은 것 같습니다. > // 답변 내용들을 종합해봐도 오류사항이 눈에 띄지 않고 있는데, > // 제가 무언가 지나치고 있는게 아닌가 싶습니다. > // 잘 못된 점 지적좀 해주십시오. > // > // <. 질문 2> > // 혹시 VB에 윈도우 폼에서 DataSet, Grid 콤포넌트를 직접사용할 수 있는가 해서요 > // 제가 VB를 통하여 "사용자 정의" 속성에서 각종 ServerIP, WebAgent 명, etc... > // 등을 입력하고 테스트 해보는 가운데 오류가 발생되어서요.. > // 원칙적으로 안되는 것인지 알고 싶습니다. > // 사용가능하다면, 방법을 알려주셨으면 ... > // 바쁘신가운데 번번히 죄송합니다. 그럼 수고하세요 > ============================================================================= > ToinbIP = "220.90.216.28" > ToinbPort = "8301" > > Set objToinbAsp = CreateObject("ToinbAsp.ToinbWAsp") > > Call objToinbAsp.Init("E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\message.ko", _ > "E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\CSToinb_api.log") > > If objToinbAsp.ReturnValue < 0 Then > MsgBox ("Init Error" + objToinbAsp.GetErrStr) > Exit Sub > End If > > Call objToinbAsp.GetData(ToinbIP, ToinbPort, 30, "com_bank(O:output=result)") > > If objToinbAsp.ReturnValue < 0 Then > MsgBox ("GetData Error" + objToinbAsp.GetErrStr) > Exit Sub > End If > > max_num = objToinbAsp.GetRowCnt("result") > > MsgBox max_num > '// 이 부분의 값은 잘 넘어 오고 있습니다. > > return_value = objToinbAsp.GetCol("result", 0, "codeid", TB_STRING) > '// 이 부분의 값이 넘어 오고 있지 않습니다. > > MsgBox return_value > > If objToinbAsp.ReturnValue < 0 Then > MsgBox ("GetData Error" + objToinbAsp.GetErrStr) > Exit Sub > End If > > Call objToinbAsp.Clear > Call objToinbAsp.DisconnectSE > Set objToinbAsp = Nothing > > ============================================================================= return_value = objToinbAsp.GetCol("result", 0, "codeid", TB_STRING) 부분에서 TB_STRING은 미리정의된 상수값이어야 하는데 이부분의 정의가 되어 있지 않아 값을 제대로 받지 못하고 있는 것으로 보입니다. 이 부분을 다음과 같이 고쳐서 실행하시기 바랍니다. return_value = objToinbAsp.GetCol("out", 0, "name", &H1) 참고로 다음과 같은 미리정의된 상수값을 알려드리겠습니다. 'Define Constants ' SetColInfo, GetCol, PutCol Const TB_STRING = &H01 'string value Const TB_INT = &H02 'integer value Const TB_DECIMAL = &H04 'double value Const TB_DATE = &H08 'physically string value Const TB_CHAR = &H0C ' Reserve Const TB_BLOB = &H09 'physically character pointer Const TB_URL = &H0A 'physically string value Const TB_LONG = &H0B 'long type gubun ' InsertRow Const TB_JOB_NORMAL = 1 'grid row sort value Const TB_JOB_INSERT = 2 'grid row sort value Const TB_JOB_UPDATE = 3 'grid row sort value Const TB_JOB_DELETE = 4 'grid row sort value ' SetColInfo Const TB_NORMAL_COL = &H00 'grid col_info->Prop value Const TB_NOTNULL_COL = &H01 'grid col_info->Prop value Const TB_KEY_COL = &H03 'grid col_info->Prop value Const TB_SEQUENCE_COL = &H07 'grid col_info->Prop value Const TB_CONST_COL = &H0F 'grid col_info->Prop value
95		VB에서 Sob를 컨트롤 해볼 수 있을까? 에 대한 질문 두번째
	이장환	2943	2005-11-02
>게시판을 이용해 주셔서 감사합니다. >다음양식에 맞게 입력해주세요. > >* 고객시스템명 : >* TOInB 버전 : 5.0 >* 서버 Platform : >* 문의 유형(질문/요청/참조) : >* 내용 : > > ============================================================================= > // <. 질문 1> > // 다시 글을 올리게 되었습니다. > // 하위의 내용이 개발 소스 인데요. > // 해당 SOB 호출 후 Row Count값은 일치 하오나, 각 컬럼별 데이타를 가져오는데 > // 정상적이지 않은 것 같습니다. > // 답변 내용들을 종합해봐도 오류사항이 눈에 띄지 않고 있는데, > // 제가 무언가 지나치고 있는게 아닌가 싶습니다. > // 잘 못된 점 지적좀 해주십시오. > // > // <. 질문 2> > // 혹시 VB에 윈도우 폼에서 DataSet, Grid 콤포넌트를 직접사용할 수 있는가 해서요 > // 제가 VB를 통하여 "사용자 정의" 속성에서 각종 ServerIP, WebAgent 명, etc... > // 등을 입력하고 테스트 해보는 가운데 오류가 발생되어서요.. > // 원칙적으로 안되는 것인지 알고 싶습니다. > // 사용가능하다면, 방법을 알려주셨으면 ... > // 바쁘신가운데 번번히 죄송합니다. 그럼 수고하세요 > ============================================================================= > ToinbIP = "220.90.216.28" > ToinbPort = "8301" > > Set objToinbAsp = CreateObject("ToinbAsp.ToinbWAsp") > > Call objToinbAsp.Init("E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\message.ko", _ > "E:\\2003_1118\\IROOASP_NEW\\acro_new\\Vb_Word_Test\\CS_toinb\\CSToinb_api.log") > > If objToinbAsp.ReturnValue < 0 Then > MsgBox ("Init Error" + objToinbAsp.GetErrStr) > Exit Sub > End If > > Call objToinbAsp.GetData(ToinbIP, ToinbPort, 30, "com_bank(O:output=result)") > > If objToinbAsp.ReturnValue < 0 Then > MsgBox ("GetData Error" + objToinbAsp.GetErrStr) > Exit Sub > End If > > max_num = objToinbAsp.GetRowCnt("result") > > MsgBox max_num > '// 이 부분의 값은 잘 넘어 오고 있습니다. > > return_value = objToinbAsp.GetCol("result", 0, "codeid", TB_STRING) > '// 이 부분의 값이 넘어 오고 있지 않습니다. > > MsgBox return_value > > If objToinbAsp.ReturnValue < 0 Then > MsgBox ("GetData Error" + objToinbAsp.GetErrStr) > Exit Sub > End If > > Call objToinbAsp.Clear > Call objToinbAsp.DisconnectSE > Set objToinbAsp = Nothing > > ============================================================================= 지금은 제가 교육을 받고 있는 중이라 환경이 구축되어 있지 않아 답변드릴 수가 없네요. 저도 해보지 않은거라.... 기본적으로 ASP(VB Script)에서 같은 서비스를 돌려보면 정상으로 작동되는 지 확인 부탁드립니다. VB Script에서 정상동작한다면, 제 생각으로는 VB Application에서도 무리없이 동작될거라 생각되거든요.
94		VB에서 DataSet 컨트롤하는 방법
	윤치권	2961	2005-10-28
게시판을 이용해 주셔서 감사합니다. 다음양식에 맞게 입력해주세요. * 고객시스템명 : * TOInB 버전 : 5.0 * 서버 Platform : * 문의 유형(질문/요청/참조) : * 내용 : VB에서 DataSet을 콤포넌트로서 등록해서 프로그램에 그리드를 추가하려고 합니다. DataSet 입력 화면을 보내드리오니 적용방법에 대한 설명을 좀 해주세욤^^ 파일 첨 부 합니다.
93		VB에서 DataSet 컨트롤하는 방법
	이장환	2986	2005-10-28
>게시판을 이용해 주셔서 감사합니다. >다음양식에 맞게 입력해주세요. > >* 고객시스템명 : >* TOInB 버전 : 5.0 >* 서버 Platform : >* 문의 유형(질문/요청/참조) : >* 내용 : > > >VB에서 DataSet을 콤포넌트로서 등록해서 프로그램에 > >그리드를 추가하려고 합니다. > >DataSet 입력 화면을 보내드리오니 적용방법에 대한 설명을 좀 해주세욤^^ > >파일 첨 부 합니다. VB의 WindowsForm 에 TOinB Grid 컴포넌트하고 DataSet 컴포넌트를 올려서 쓰시겠다는 말씀이신가요? 아니면, VBScript에서 사용하신겠다는 말씀이신가요? 질문이 조금 모호하네요.
92		VB에서 DataSet 컨트롤하는 방법
	윤치권	2960	2005-10-28
죄송합니다. 질문에 요지가 조금 잘 못 된것 같습니다. 주된 의도는 현재 웹서비스 되고 있는 사이트가 있습니다. 이 사이트를 별도의 C/S화면으로 만들고자 하여 VB상에 윈도우 폼을 사용하여 적용하려고 합니다. 그러던 중에 혹시 토인비 콤포넌트들의 일부인 DataSet, Grid와 같은 기능을 웹에서 사용한 것 유사하게 적용해보려고 합니다. SOB는 기존것을 그대로 사용하면서요.. > >>게시판을 이용해 주셔서 감사합니다. >>다음양식에 맞게 입력해주세요. >> >>* 고객시스템명 : >>* TOInB 버전 : 5.0 >>* 서버 Platform : >>* 문의 유형(질문/요청/참조) : >>* 내용 : >> >> >>VB에서 DataSet을 콤포넌트로서 등록해서 프로그램에 >> >>그리드를 추가하려고 합니다. >> >>DataSet 입력 화면을 보내드리오니 적용방법에 대한 설명을 좀 해주세욤^^ >> >>파일 첨 부 합니다. > >VB의 WindowsForm 에 TOinB Grid 컴포넌트하고 DataSet 컴포넌트를 올려서 쓰시겠다는 말씀이신가요? >아니면, VBScript에서 사용하신겠다는 말씀이신가요? >질문이 조금 모호하네요.
91		VB에서 DataSet 컨트롤하는 방법
	기술지원	3037	2005-11-18
토인비 컴포넌트는 IE브라우저 상에서만 작동하도록 만들어진 컴포넌트여서, CS프로그램 내에 컴포넌트를 사용하는것은 불가능 합니다. 컴포넌트가 아니라, SOB서비스를 재사용하는 부분은 가능한 부분도 있습니다. 좀더 구체적인 가이드를 받으시려면, 기술지원팀으로 직접 문의하시기 바랍니다. >죄송합니다. 질문에 요지가 조금 잘 못 된것 같습니다. > >주된 의도는 현재 웹서비스 되고 있는 사이트가 있습니다. > >이 사이트를 별도의 C/S화면으로 만들고자 하여 > >VB상에 윈도우 폼을 사용하여 적용하려고 합니다. > >그러던 중에 혹시 토인비 콤포넌트들의 일부인 DataSet, Grid와 같은 > >기능을 웹에서 사용한 것 유사하게 적용해보려고 합니다. > >SOB는 기존것을 그대로 사용하면서요.. > >> >>>게시판을 이용해 주셔서 감사합니다. >>>다음양식에 맞게 입력해주세요. >>> >>>* 고객시스템명 : >>>* TOInB 버전 : 5.0 >>>* 서버 Platform : >>>* 문의 유형(질문/요청/참조) : >>>* 내용 : >>> >>> >>>VB에서 DataSet을 콤포넌트로서 등록해서 프로그램에 >>> >>>그리드를 추가하려고 합니다. >>> >>>DataSet 입력 화면을 보내드리오니 적용방법에 대한 설명을 좀 해주세욤^^ >>> >>>파일 첨 부 합니다. >> >>VB의 WindowsForm 에 TOinB Grid 컴포넌트하고 DataSet 컴포넌트를 올려서 쓰시겠다는 말씀이신가요? >>아니면, VBScript에서 사용하신겠다는 말씀이신가요? >>질문이 조금 모호하네요. >
90		SOB의 활용
	윤치권	3510	2005-10-27
게시판을 이용해 주셔서 감사합니다. 다음양식에 맞게 입력해주세요. * 고객시스템명 : * TOInB 버전 : 5.0 * 서버 Platform : * 문의 유형(질문/요청/참조) : * 내용 : 수고하십니다. 등록되어있는 SOB의 Object들을 C/S쪽에서 사용할 수 는 있는지 알고 싶습니다. 웹으로 서비스되고있는 사이트를 C/S프로그램으로 돌릴 필요가 있다고 생각이 들어 프로그램을 개발해야 하는데요. 데이타 작업은 기존 만들어 놓은 SOB를 활용할 수 있을것 같다는 생각이 들어서요. 모회사에 SI로 들어갔을 때 Tuxedo기반에서 C++로 C/S, JSP로 웹서비스하는데, DataSet Object는 한 분말 개발하더라고요. 저희쪽에서는 VB로 개발할 생각인데요. 혹시 방법이 있으시면 알고싶습니다. 감사합니다.
89		SOB의 활용
	이장환	4169	2005-10-27
>게시판을 이용해 주셔서 감사합니다. >다음양식에 맞게 입력해주세요. > >* 고객시스템명 : >* 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
88		SOB의 활용 - GetCol() 한번더 문의드립니다.
	윤치권	3029	2005-10-28
정말감사합니다. 생각보다 어렵지 않아 다행입니다. 알려주신데로 처리해보는 과정에서 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 >
87		SOB의 활용 - GetCol() 한번더 문의드립니다.
	이장환	3039	2005-10-28
>정말감사합니다. 생각보다 어렵지 않아 다행입니다. >알려주신데로 처리해보는 과정에서 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 을 참조하시는것 같거든요?
86		SOB의 활용 - GetCol() 한번더 문의드립니다.
	윤치권	2953	2005-10-28
네. 그부분은 주석으로 막았구요.. 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 을 참조하시는것 같거든요? > >
85		Blob 타입 데이터 처리 방법 문의
	최용섭	2965	2005-10-25
BLOB 형식의 데이터를 처리할 일이 생겼는데요 SOB에서 쿼리문 적어놓고 실행 후 변수 만들기하면 자동으로 스트링 형식으로 잡히더라고요... 그래서 형식을 블롭으로 선택해 봤더니 _type과 _size가 생기던데 작업을 어떻게 해야할지 몰라서 문의드려봅니다. 아직까지 블롭형식 데이터를 처리해 본적이 없어서요... 빠른 답변 부탁드리겠습니다. * 관리자님에 의해서 게시물 이동되었습니다 (2005-10-25 19:42)
84		Blob 타입 데이터 처리 방법 문의
	이장환	3091	2005-10-26
>BLOB 형식의 데이터를 처리할 일이 생겼는데요 SOB에서 쿼리문 적어놓고 실행 후 변수 만들기하면 자동으로 스트링 형식으로 잡히더라고요... 그래서 형식을 블롭으로 선택해 봤더니 _type과 _size가 생기던데 작업을 어떻게 해야할지 몰라서 문의드려봅니다. >아직까지 블롭형식 데이터를 처리해 본적이 없어서요... >빠른 답변 부탁드리겠습니다. >* 관리자님에 의해서 게시물 이동되었습니다 (2005-10-25 19:42) 첨부한 파일을 참조하세요.
83		SOB에서 첨부해주신 info파일 open시 에러 발생합니다.
	최용섭	3059	2005-10-29
[SOM-25202 loadscfile] 해당 파일의 사이즈를 얻기 위한 열기가 실패했습니다.(Secnario: BlobScenario, Error origin: No such file or directory) 파일이 잘못된건지 오류가 발생하네요; 정안됨 SOB에서 만드신 쿼리문이랑 변수 생성하신 부분 캡쳐라도 부탁드리겠습니다. (__)
82		SOB에서 첨부해주신 info파일 open시 에러 발생합니다.
	이장환	2981	2005-11-02
>[SOM-25202 loadscfile] 해당 파일의 사이즈를 얻기 위한 열기가 실패했습니다.(Secnario: BlobScenario, Error origin: No such file or directory) >파일이 잘못된건지 오류가 발생하네요; >정안됨 SOB에서 만드신 쿼리문이랑 변수 생성하신 부분 캡쳐라도 부탁드리겠습니다. (__) 사용자 디렉토리에 BlobScenario.scena 기본 파일이 없어서 그런것 같네요. 아무튼, 첨부된 예제파일들에 보시면, .info 와 .event 파일이 있습니다. 그 파일들의 내용을 살펴보시면 타입과, 사이즈, 그리고 쿼리문 등을 보실 수 있을겁니다.
81		토인비 사용방법문의 입니다
	김광호	3453	2005-10-24
게시판을 이용해 주셔서 감사합니다. 다음양식에 맞게 입력해주세요. * 고객시스템명 : konis valley * TOInB 버전 : 4.0 * 서버 Platform : 2000 server * 문의 유형(질문/요청/참조) : 요청 * 내용 : 토인비를 처음 사용하여 테스트 중입니다 현재 sql을 작성시 sql을 문을 여러개 만들어 그중 하나를 사용하구 싶네요 .. 사용법을 몰라서 요. sql문을 조건에 따라 변경시키구 싶은데 어디서 어떤방식으로 하는지 샘플소스와 함께 주실수는 없는지요. 예) str1 = 1 select * from table where a = str2 str1 = 2 select * from table where b = str2 이런식으로 쿼리를 날릴려구 합니다. 이벤트에서 처리를 해야하는지 ...^^ 하면 어떻케 처리해야하는지 간단한 예제 소스라도 주시면 감사하겟습니다.
80		토인비 사용방법문의 입니다
	이장환	3497	2005-10-26
>게시판을 이용해 주셔서 감사합니다. >다음양식에 맞게 입력해주세요. > >* 고객시스템명 : konis valley >* TOInB 버전 : 4.0 >* 서버 Platform : 2000 server >* 문의 유형(질문/요청/참조) : 요청 >* 내용 : 토인비를 처음 사용하여 테스트 중입니다 >현재 sql을 작성시 sql을 문을 여러개 만들어 그중 하나를 사용하구 싶네요 .. >사용법을 몰라서 요. sql문을 조건에 따라 변경시키구 싶은데 어디서 어떤방식으로 하는지 샘플소스와 함께 >주실수는 없는지요. >예) str1 = 1 > select * from table where a = str2 >str1 = 2 >select * from table where b = str2 > >이런식으로 쿼리를 날릴려구 합니다. > >이벤트에서 처리를 해야하는지 ...^^ >하면 어떻케 처리해야하는지 간단한 예제 소스라도 주시면 감사하겟습니다. > > > > TB_prepare_work 또는 TB_begin_work 이벤트에서 select_sql 변수의 값을 다이나믹하게 변형시켜주시면 됩니다. 첨부한 예제를 참조하세요.
79		토인비 업로드 서비스에 대해...
	김영현	3376	2005-10-11
게시판을 이용해 주셔서 감사합니다. 다음양식에 맞게 입력해주세요. * 고객시스템명 : 경영관리 * TOInB 버전 : 6.X * 서버 Platform : 레드햇8.0 오라클 9i * 문의 유형(질문/요청/참조) : 토인비 업로드 서비스에 대해... * 내용 : 업로드 서비스에 몇가지 문제가 있습니다. 파일 업로드시 같은 이름으로 파일을 변경하면 파일은 변경이 되나 보여지는 것은 예전파일이 계속보입니다. (쿠키 삭제, 파일 삭제하면 제대로 보여집니다. 사용자들 한테 사용할때 마다 쿠키삭제 파일삭제 하라고 하긴 좀 그렇군요...)
78		MSSQL DB 가 연결이 안되네요.
	조점식	3623	2005-10-07
게시판을 이용해 주셔서 감사합니다. 다음양식에 맞게 입력해주세요. * 고객시스템명 : 삼성SDI * TOInB 버전 : Web Enterprise 3 * 서버 Platform : Windows 2000 Server, MSSQL 8.0 * 문의 유형(질문/요청/참조) : MSSQL DB 연결이 안됩니다. * 내용 : 1. SOB 서버환경에서 SOM은 연결성공되나 SQLH는 연결이 안됨 2. SOB에서 Table 을 불러올 수 없고 SQL도 실행이 되지 않음

97