페이지 이력

'=================================================
' i-AUD Server Script 호출 예제
'   i-AUD Designer 에서 Server Script 작성 후 해당 Script 를 호출 할수 있습니다.
'     여러개의 Recordset 을 return 하는 ServerScript 사용 예시 입니다.
'=================================================
Sub GetServerScript()
    Dim mxmodule As Object
    Dim svc As Object
    Dim result As Object
     
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
     
    'Server Script 호출 준비
    Set svc = mxmodule.xapi.GetServerScript()
    
    'ServerScript 로에 전달할 parameter 추가 (변수명, 값변수값) 추가
    svc.AddParam "VS_VAR1", "value1Var1Value"
    svc.AddParam "VS_VAR2", "Var2Value"


    '서버 전송할 table 정의 (테이블명, range, 헤더포함 여부)
    svc.AddTable "TBL1", Range("B10:D32"), True

      
    'ServerScript 실행 (i-AUD 보고서 code, 보고서에 작성된 ServerScript Code)
    Set result = svc.Execute ("REP71C687A01A0C46D48826C256B113F0B9", "@SCRIPT_OK")
      
    '실행 결과 확인
    If svc.result.code <> 0 Then
        MsgBox "실행 오류 발생 " & svc.result.Message
    Else
	    
        '데이터 출력 T1 Recordset
    	    Range("A1A5").CopyFromRecordset svc.result.GetRecordset("T1")
     	 
        '데이터 출력 T2 Recordset
	        Range("Q1Q5").CopyFromRecordset svc.result.GetRecordset("T2")
        
        
        
        'table 명을 모를 경우
        'table count 확인
        For idx = 1 To result.TableCount
            Set rs = result.GetRecordset(idx - 1)
            Debug.Print rs.RecordCount, rs.Fields.Count
        Next
        
    End If
  
End Sub