페이지 이력

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


    '서버 전송할 table 정의 (테이블명, range, 헤더포함 여부)
    svc.AddTable '데이터 건수가 -1이면 오류, 데이터셋명 "TBL1", Range("B10:D32"), True

      
    'ServerScript 실행 (i-AUD 보고서 code, ServerScript Code)
    Set result = svc.Execute("REP71C687A01A0C46D48826C256B113F0B9", "@SCRIPT_OK")
      
    '실행 결과 확인
    If (rowCnt > -1)result.code <> 0 Then
        mxmodule.xapi.MessageBox rowCnt & "건 출력", VbMsgBoxStyle.vbInformationMsgBox "실행 오류 발생 " & result.Message
    Else
    
        '데이터 출력 T1 Recordset
        Range("A5").CopyFromRecordset result.GetRecordset("T1")
      
        '데이터 출력 T2 Recordset
        Range("Q5").CopyFromRecordset result.GetRecordset("T2")
    Else    
    mxmodule.xapi.MessageBox "데이터셋을 확인하세요.", VbMsgBoxStyle.vbExclamation
    End If
    
        
        '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