문자열을 암호화 합니다.
Syntax
public long Execute(string dbmsCode, string sqlText, int maxRecord = 0)
Parameters
| Name | 동작명 | 비고 |
|---|---|---|
dbmsCode | dmsCode ex)mtxrpty | |
sqlText | SQL문 | |
| maxRecord | 최대Record수 |
Return Value
Type: long
Error 여부
Exception 발생 -2
성공 0
VBA 코드
Example
Sub ExecuteTest()
Dim mxmodule As Object
Set mxmodule = Application.COMAddIns.Item("ExcelModule.AddinModule").Object
'execute (dbmscode, sqltext, [optional] maxrecord)
mxmodule.xapi.Execute "mtxrpty", "select * from mtx_user"
If mxmodule.xapi.LastErrorCode != 0 Then
MsgBox "쿼리 실행 오류 " & mxmodule.xapi.LastErrorMessage
Else
Range("a1").CopyFromRecordset mxmodule.xapi.LastRecordset
End If
Set rs = Nothing
End Sub