#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#AdditionalJar: h2-1.3.176.jar
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private sql2 As SQL
Private rs As ResultSet
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
sql2.Initialize("org.h2.Driver", "jdbc:h2:file:C:\TEST\MyH2db;IFEXISTS=TRUE;MODE=PostgreSQL;USER=sa")
rs= sql2.ExecQuery("SELECT * FROM CUSTOMER")
Do While RS.NextRow
Log(rs.GetString("CUS_ID") & "," & rs.GetString("CUS_NAME"))
Loop
rs.Close
End Sub