Sub Process_Globals
Type B4x_Cursor (cur As Cursor) '<- B4A
'Type B4x_Cursor (cur As ResultSet) '<- B4J
End Sub
Private Sub List2Array (a_lstArgs As List) As Object()
Dim arrArgs(a_lstArgs.Size) As Object
For i = 0 To arrArgs.Length - 1
arrArgs(i) = a_lstArgs.Get(i)
Next
Return arrArgs
End Sub
Public Sub ExecQuery2 (a_SQL As SQL, a_sStatement As String, a_lstArgs As List, a_sMsgBoxTitle As String) As B4x_Cursor
'Public Sub ExecQuery2 (a_SQL As SQL, a_sStatement As String, a_lstArgs As List, a_sMsgBoxTitle As String) As ResultSet 'ResultSet <- B4J
'Public Sub ExecQuery2 (a_SQL As SQL, a_sStatement As String, a_lstArgs As List, a_sMsgBoxTitle As String) As Cursor 'Cursor <- B4A
Try
Dim cur As B4x_Cursor
cur.cur = a_SQL.ExecQuery2(a_sStatement, List2Array(a_lstArgs)) '<-B4A
'cur.cur = a_SQL.ExecQuery2(a_sStatement, a_lstArgs) '<-B4J
Return cur
Catch
' Log(LastException.Message)
If a_sMsgBoxTitle <> "" Then
MsgBoxW.Show(LastException.Message, a_sMsgBoxTitle)
End If
Return Null
End Try
End Sub