Sub Process_Globals
Public pool As ConnectionPool
Public pool2 As ConnectionPool
End Sub
Public Sub init
Dim JdbcUrl As String = Main.settings.Get("JdbcUrl")
Dim driverClass As String = Main.settings.Get("DriverClass")
Dim dbuser As String = Main.settings.Get("DBUser")
Dim dbpassword As String = Main.settings.Get("DBPassword")
pool.Initialize(driverClass, JdbcUrl, dbuser, dbpassword)
' pool 2 with diff user and password...
Dim dbuser2 As String = Main.settings.Get("DBUser2")
Dim dbpassword2 As String = Main.settings.Get("DBPassword2")
pool2.Initialize(driverClass, JdbcUrl, dbuser2, dbpassword2)
End Sub