페이지 이력

Sub ExcuteDML()
    
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6iMATRIX.ExcelModule").Object
	mxmodule.xapi.ExecuteDML "mtxrpty", "insert into mtx_ftp values('1112','user',100, 'pw','path','attr1')"
 
    If mxmodule.xapi.LastErrorCode <> 0 Then
    	MsgBox "쿼리 실행 오류 " & mxmodule.xapi.LastErrorMessage
    End If
End Sub

Sub ExcuteDML()
    
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6iMATRIX.ExcelModule").Object

	sql = "exec pro_test1 ?, 'AAAA' "   'return 받을 Parameter로 첫번째 값을 할당한다.
    mxmodule.xapi.SID = "#021"
	mxmodule.xapi.ExecuteDML "mtxrpty", sql

 
    If mxmodule.xapi.LastErrorCode <> 0 Then
    	MsgBox "쿼리 실행 오류 " & mxmodule.xapi.LastErrorMessage
    End If
End Sub