Mostrar las Base de Datos MySql en un ComboBox

Para poder obtener las "Base de Datos" del servidor MySql en un control ComboBox es necesario tener
una conexión establecida.

Una ves realizada la conexión podemos utilizar el siguiente procedimiento:

   
Private Sub ObtenerBaseDeDatos(ByVal Combo As ComboBox)

        
Dim reader As MySqlDataReader

       
reader = Nothing

        
Dim Comando As New MySqlCommand("SHOW DATABASES", Conexion)

       
Try

           
reader = Comando.ExecuteReader()

           
Combo.Items.Clear()

            
While
(reader.Read())

               
Combo.Items.Add(reader.GetString(0))

           
End
While

        
Catch ex As MySqlException

           
MessageBox.Show("Error al listar las bases de datos: " + ex.Message)

       
Finally

           
If
Not reader
Is
Nothing
Then
reader.Close()

       
End
Try

    
End
Sub

En este procedimiento solo hay que indicar el nombre del ComboBox en el que se mostraran las base de
datos.