페이지 이력

...

코드 블럭

language	vb
title	Syntax

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 코드

코드 블럭

language	vb
title	Example
linenumbers	true

Sub ExecuteTestEncryptTest()
	Dim mxmodule As Object

       
	Set mxmodule = Application.COMAddIns.Item("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 "쿼리 실행 오류 " &amp;)
	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

공간 바로가기

페이지 트리

버전 비교

이전 버전 2

새 버전 3

키

Parameters