#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#AdditionalJar: mssql-jdbc-7.4.1.jre8.jar
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private DBDriver As String = "com.microsoft.sqlserver.jdbc.SQLServerDriver"
Private DBLocation As String = "jdbc:sqlserver://DomainName||IPAddress:PortNumber[/OptionalDBName][;Optional1stParameter][;Optional2ndParamter][;OptionalNthParameter]"
Private DBUsername As String = "DBUsername"
Private DBPassword As String = "DBPassword"
Private Conn As SQL
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
Conn.InitializeAsync("conn1",DBDriver,DBLocation,DBUsername,DBPassword)
Wait For conn1_Ready(Success As Boolean)
If Not(Success) Then
Log("Failed to connect to database. Bye!")
ExitApplication
End If
Log("Successfully connected!")
Wait For (Conn.ExecQueryAsync("sql","SELECT * FROM SYS.TABLES", Null)) sql_QueryComplete(Success As Boolean, rs As ResultSet)
If (Success) Then
Do While rs.NextRow
Log(rs.GetString2(0))
Loop
rs.Close
Else
Log("Query was not successful!")
End If
Conn.Close
End Sub
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub