Sub ConnectToMariaDB(jdbcURL As String, username As String, password As String) As JavaObject
Dim driver As JavaObject
driver.InitializeNewInstance("org.mariadb.jdbc.Driver", Null)
Dim connection As JavaObject = driver.RunMethod("connect", Array(jdbcURL, CreateCredentials(username, password)))
Return connection
End Sub
Sub CreateCredentials(username As String, password As String) As JavaObject
Dim properties As JavaObject
properties.InitializeNewInstance("java.util.Properties", Null)
properties.RunMethod("setProperty", Array("user", username))
properties.RunMethod("setProperty", Array("password", password))
Return properties
End Sub