Sub Class_Globals
Dim MYSQL As SD_SQL
Private MyLocation As String = "127.0.0.1:3306"
Private MyScheme As String = "xxxxxxx"
Private MyUsername As String = "xxxxxxxxxxx"
Private MyPassword As String = "xxxxxxxxxxxxxxxxxxxxxxxx"
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
Private Sub InitializeMySql
MYSQL.Initialize(Me,"MYSQL", "com.mysql.jdbc.Driver", $"jdbc:mysql://${MyLocation}/${MyScheme}?useSSL=false"$, MyUsername, MyPassword)
End Sub
public Sub ExecNonQuery(query As String)
If MYSQL.IsInitialized = False Then
InitializeMySql
End If
Try
If MYSQL.ExecNonQuery(query) = False Then
MYSQL.Close
End If
Catch
Log(LastException)
End Try
End Sub
public Sub ExecQuery(Query As String) As SD_ResultSet
If MYSQL.IsInitialized = False Then
InitializeMySql
End If
Return MYSQL.ExecQuery(Query)
End Sub
Sub Close
MYSQL.Close
End Sub
