Trucos de Visual Basic.NET Compactar BBDD MySQL desde vb.net

Dim cadena As String

Me.mysqlconnection1.ConnectionString = "Definimos nuestra cadena Conexion"

mysqlconnection1.Open()
Dim miComando1 As New MySqlCommand("SELECT tabla FROM tablas_bd", mysqlconnection1)

Try
mysqlconnection1.Open()
Dim miReader As MySqlDataReader = miComando1.ExecuteReader()

While miReader.Read()

If cadena = "" Then
cadena = miReader.GetString(0).ToString
Else
cadena = cadena & "," & miReader.GetString(0).ToString
End If

End While

Dim miComando2 As New MySqlCommand("OPTIMIZE TABLE " & cadena, mysqlconnection1)
miComando2.ExecuteReader()
MsgBox("La Optimización ha concluido con éxito.", MsgBoxStyle.Information, "e-Traza")

Catch ex As Exception
MsgBox("La Optimización no ha podido llevarse acabo." & Chr(13) & "Ha habido un error de conexión.", MsgBoxStyle.Exclamation, "e-Traza")

Finally

mysqlconnection1.Close()

End Try