Sub createdatabase
Dim sql As SQL
Try
sql.Initialize2("com.mysql.jdbc.Driver","jdbc:mysql://localhost:"&dpPort&"/?characterEncoding=utf8","root", "123")
Dim SQLQuery As String = "CREATE DATABASE anyname;"
sql.ExecNonQuery(SQLQuery)
sql.Close
Catch
Log(LastException)
End Try
End Sub