The code in the blog post seems unusual, with a loop for a one row result, so I suggest someone verify if this code works instead:
[code]Dim db As New MySQLCommunityServer
Dim mySQLversion As String = “Error”
db.Host = “somehost”
db.port = 3307 // change it for your server port
db.DatabaseName = “somedbname”
db.UserName = “someuser”
db.Password = “somepassword”
If db.Connect Then
Dim rs As RecordSet = db.SQLSelect(“select @@Global.version AS Version”)
If rs <> Nil And not rs.Eof Then mySQLversion = rs.Field(“Version”).StringValue
End If
// Here mySQLversion contains the version or Error[/code]
Original code found at https://blog.xojo.com/2018/05/14/getting-the-mysql-server-version/ :
[code]Dim db As New MySQLCommunityServer
db.Host = “somehost”
db.port = <port # for your mysql server>
db.DatabaseName = “somedbname”
db.UserName = “someuser”
db.Password = “somepassword”
If db.Connect Then
Dim rs As RecordSet = db.SQLSelect(“select @@Global.version”)
While rs <> Nil And rs.eof <> True
// and here you get a row with the value selected
rs.MoveNext
Wend
End If[/code]