#Region Project Attributes
#MainFormWidth: 1024
#MainFormHeight: 768
#AdditionalJar: mysql-connector-java-5.1.41-bin
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Sql1 As SQL
Private ListView1 As ListView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
Sql1.Initialize2("com.mysql.jdbc.Driver", "jdbc:mysql://162.215.252.76:3306/himelcoz_diamonds", "himelcoz_testing", "ZXNb^iVIP1_=")
Dim rs As ResultSet = Sql1.ExecQuery("SELECT CustNo FROM Customer")
Do While rs.NextRow
ListView1.Items.Add(rs)
Loop
rs.Close
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