i-AUD Server Script 를 호출합니다.


public ServerScriptHelper GetServerScript(

)


Parameters

없음

Return Value

Type:  ServerScriptHelper


Sub GetServerScript()
    Dim rowCnt As Integer
    Dim mxmodule As Object
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
 
    '입력된 Dataset의 조회된 데이터 건수
    rowCnt = mxmodule.xapi.GetDatasetRowCount("DS")

    '데이터 건수가 -1이면 오류, 데이터셋명 확인
    If (rowCnt > -1) Then
        mxmodule.xapi.MessageBox rowCnt & "건 출력", VbMsgBoxStyle.vbInformation
    Else
        mxmodule.xapi.MessageBox "데이터셋을 확인하세요.", VbMsgBoxStyle.vbExclamation
    End If
End Sub