VBA (Visual Basic for Applications)에서 온라인으로 Inactive SQL 실행

Question

Exact Online 데이터 원본의 Excel에서 VBA 코드 내에서 일부 Inientive SQL 문을 실행하려고합니다. 엑셀 시트에

I_SQL_SELECT_SCALAR("select fullname from me") 

:

나는 같은 UDF 함수 호출을 사용할 수 있습니다.

어떻게 VBA 내에서 전체 이름을 검색 할 수 있습니까?

Answer 1

먼저, Visual Basic 편집기에서 함수를 참조해야합니다 -> 도구 메뉴 -> 참조 :

Option Explicit 

Sub RunSql() 
On Error GoTo Catch 
Dim result As Variant 
' 
' Get full name of current user. 
' 
If Not I_INTEGRATION_ACTIVE() Then 
MsgBox "VBA integration not available. Please use the Tools menu to activate it." 
End If 

result = InvantiveControlUDFs.I_SQL_SELECT_SCALAR("fullname", "Me") 
MsgBox ("Result is '" & result & "'.") 
' 
' Retrieve scalar value: =I_SQL_SELECT_SCALAR(fieldName;tableName;whereClause;orderByClause;postFix;valueNoValue;valueTooManyValues;process) 
' Retrieve table: =I_SQL_SELECT_TABLE(sqlStatement;errorOnMoreRows;errorOnMoreColumns;addHeaderRow;process) 
' Normally disabled: =I_SQL_SCALAR(process;sql) 
' 

Finally: 
    Exit Sub 
Catch: 
    HandleError "RunSql" 
End Sub 

:

이

다음과 같은 스칼라 값을 검색하기 위해 다음과 같은 코드를 사용

또는 결과 집합을 검색하려면 (일반적으로 행렬 수식에 사용) :

Option Explicit 

Sub RunSqlTable() 
On Error GoTo Catch 
Dim result() As Variant 
' 
' Get list of GLAccounts. 
' 
If Not I_INTEGRATION_ACTIVE() Then 
MsgBox "VBA integration not available. Please use the Tools menu to activate it." 
End If 

result = InvantiveControlUDFs.I_SQL_SELECT_TABLE("select * from exactonlinerest..glaccounts") 
Finally: 
    Exit Sub 
Catch: 
    HandleError "RunSqlTable" 
End Sub 

I_SQL_SELECT_TABLE의 사용은 2017 년 10 월 이후의 릴리스에서만 사용 가능합니다.