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