public Sub re_Inizializza(JDBC_URL As String)
pool.ClosePool()
Dim config As Map = LoadConfigMap
pool.Initialize(config.Get("DriverClass"), JDBC_URL, config.Get("User"), _
config.Get("Password"))
#if DEBUG
DebugQueries = True
#else
DebugQueries = False
#end if
serverPort = config.Get("ServerPort")
LoadSQLCommands(config)
End SubIt is exactly the previous one .... is there a way to close it and reopen it in a planned way with the new pool?
2017-03-15 14:55:10.443:INFOejs.Server:main: Started @789ms
Emulated network latency: 100ms
Error occurred on line: 31
java.lang.IllegalStateException: Multiple servlets map to path: /: org.eclipse.jetty.servlet.DefaultServlet-7593da36,org.eclipse.jetty.servlet.DefaultServlet-454b70a9
at org.eclipse.jetty.servlet.ServletHandler.updateMappings(ServletHandler.java:1466)
at org.eclipse.jetty.servlet.ServletHandler.setServletMappings(ServletHandler.java:1563)
at org.eclipse.jetty.servlet.ServletHandler.addServletWithMapping(ServletHandler.java:972)
at org.eclipse.jetty.servlet.ServletHandler.addServletWithMapping(ServletHandler.java:937)
at org.eclipse.jetty.servlet.ServletContextHandler.addServlet(ServletContextHandler.java:353)
at anywheresoftware.b4j.object.ServerWrapper.Start(ServerWrapper.java:131)
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:57)
at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)
at java.lang.reflect.Method.invoke(Method.java:601)
at anywheresoftware.b4a.shell.Shell.runVoidMethod(Shell.java:637)
at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:231)
at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:158)
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:57)
con = Main.rdcConnector1.GetConnection
If method = "query2" Then
q = ExecuteQuery2(con, in, resp)
Else if method = "cambiadb" Then
q = cambiadbAG(con, in, resp)
'cmd.Parameters
Main.rdcConnector1.DB = qPrivate Sub ExecuteQuery2 (con As SQL, in As InputStream, resp As ServletResponse) As String
Dim ser As B4XSerializator
Dim m As Map = ser.ConvertBytesToObject(Bit.InputStreamToBytes(in))
Dim cmd As DBCommand = m.Get("command")
Dim limit As Int = m.Get("limit")
'*********************MOD****************************************
Dim querMod As String = Main.rdcConnector1.GetCommand(cmd.Name)
Log(querMod)
If Main.rdcConnector1.DB.Length > 0 Then
querMod = querMod.Replace("$",Main.rdcConnector1.DB & ".dbo.")
End If
Log(querMod)
'*********************MOD****************************************
Dim rs As ResultSet = con.ExecQuery2(querMod, cmd.Parameters)
If limit <= 0 Then limit = 0x7fffffff 'max int
Dim jrs As JavaObject = rs
Dim rsmd As JavaObject = jrs.RunMethod("getMetaData", Null)
Dim cols As Int = rs.ColumnCount
Dim res As DBResult
res.Initialize
res.columns.Initialize
res.Tag = Null 'without this the Tag properly will not be serializable.
For i = 0 To cols - 1
res.columns.Put(rs.GetColumnName(i), i)
Next
res.Rows.Initialize
Do While rs.NextRow And limit > 0
Dim row(cols) As Object
For i = 0 To cols - 1
Dim ct As Int = rsmd.RunMethod("getColumnType", Array(i + 1))
'check whether it is a blob field
If ct = -2 Or ct = 2004 Or ct = -3 Or ct = -4 Then
row(i) = rs.GetBlob2(i)
Else if ct = 2 Or ct = 3 Then
row(i) = rs.GetDouble2(i)
Else
row(i) = jrs.RunMethod("getObject", Array(i + 1))
End If
Next
res.Rows.Add(row)
Loop
rs.Close
Dim data() As Byte = ser.ConvertObjectToBytes(res)
' Dim data() As Byte = bc.StringToBytes(js.ToString,"utf-8" )
resp.OutputStream.WriteBytes(data, 0, data.Length)
Return "query: " & cmd.Name
End Sub
