...
| 코드 블럭 | ||||
|---|---|---|---|---|
| ||||
public stringlong EncryptExecute(string valuedbmsCode, string sqlText, int maxRecord = 0) |
Parameters
| Name | 동작명 | 비고 | value |
|---|---|---|---|
| 암호화할 문자열 | dbmsCode | dmsCode ex)mtxrpty | |
sqlText | SQL문 | ||
| maxRecord | 최대Record수 |
Return Value
Type: string
암호화된 문자열
long
Error 여부
Exception 발생 -2
성공 0
VBA 코드
| 코드 블럭 | ||||||
|---|---|---|---|---|---|---|
| ||||||
Sub EncryptTestExecuteTest() Dim mxmodule As Object Set mxmodule = Application.COMAddIns.Item("ExcelModule.AddinModule").Object ret = 'execute (dbmscode, sqltext, [optional] maxrecord) mxmodule.xapi.Encrypt(Execute "messagemtxrpty") debug.print ret ret = mxmodule.xapi.Decrypt(ret) debug.print ret , "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 |