#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#AdditionalJar: mysql-connector-java-5.1.35-bin
' #AdditionalJar: mysql-connector-java-8.0.11
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Public Sql1 As SQL
Private RS As ResultSet
Public settings As Map
Private btnGetRk1 As Button
End Sub
Sub AppStart (Form1 As Form, Args() As String)
settings = File.ReadMap(File.DirApp, "settings.txt")
Dim JdbcUrl As String = settings.Get("JdbcUrl")
Dim driverClass As String = settings.Get("DriverClass")
Dim dbuser As String = settings.Get("DBUser")
Dim dbpassword As String = settings.Get("DBPassword")
Try
Sql1.Initialize2(driverClass, JdbcUrl, dbuser, dbpassword)
Catch
Log("errore connessione DB")
End Try
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub btnGetRk1_Click
Dim lstMap As List
Dim cur As ResultSet
cur = Sql1.ExecQuery("select * from timefields")
Do While cur.nextrow
Dim wMap As Map
wMap.Initialize
For i = 0 To cur.ColumnCount - 1
Dim wColName As String = cur.GetColumnName(i)
Dim wValue As String = cur.GetString2(i)
wMap.Put(cur.GetColumnName(i).ToLowerCase, wValue)
Next
lstMap.Add(wMap)
Loop
cur.Close
End Sub