B4J Question jrdc2 server: How to log sql string

[yfleury]

I have in config.properties a sql string like

sql.select_mytable= select * from table where item1 = ? and item2 = ? order by item3

I want to log the sql string with parameters on jrdc2 server like

select * from table where item1 = 33 and item2 = "old" order by item3

Is it possible?

 

[OliverA]

This article from Oracle may help you achieve your desired result: https://docs.oracle.com/cd/B28359_01/java.111/b31224/diagnose.htm. Note: Besides enabling logging for JDBC, you also need to configure the logging itself (both are shown in the article).

 

[yfleury]

I run jrdc 2 server in debug mode I just want to show parameters on log tab

 

[OliverA]

Note: Untested
You could add the following code to both ExecuteQuery2 and ExecuteBatch2 of the RDCHandler class module of the jRDC2 source code:

#If Debug
   Dim sb As StringBuilder
   sb.Initialize
   sb.Append($"Query: ${Main.rdcConnector1.GetCommand(cmd.Name)}"$)
   Dim first As Boolean = True
   For Each parameter As Object In cmd.Parameters
       If first Then
           sb.Append($" Parameter(s): ${parameter}"$)
           first = False
       Else
           sb.Append($", ${parameter}"$)
       End If
   Next
   Log(sb.ToString)
#End If

In ExecuteQuery2, place it after

Dim cmd As DBCommand = m.Get("command")

In ExecuteBatch2, place it in the loop that execute the commands, after

For Each cmd As DBCommand In commands

 

[yfleury]

Note: Untested
You could add the following code to both ExecuteQuery2 and ExecuteBatch2 of the RDCHandler class module of the jRDC2 source code:

#If Debug
   Dim sb As StringBuilder
   sb.Initialize
   sb.Append($"Query: ${Main.rdcConnector1.GetCommand(cmd.Name)}"$)
   Dim first As Boolean = True
   For Each parameter As Object In cmd.Parameters
       If first Then
           sb.Append($" Parameter(s): ${parameter}"$)
           first = False
       Else
           sb.Append($", ${parameter}"$)
       End If
   Next
   Log(sb.ToString)
#End If

In ExecuteQuery2, place it after

Dim cmd As DBCommand = m.Get("command")

In ExecuteBatch2, place it in the loop that execute the commands, after

For Each cmd As DBCommand In commands

You are the king Thanks
I test your code and it work well

 

[josejad]

You are the king

OliverA is the master of jRDC2!! He knows jRDC2 perfectly and he's always ready to help