Pregunta :Compactar BBDD MySQL desde vb.net Respuesta:
Tenemos que meter en la base de datos una tabla con todos los nombres de las tablas de nuestra base de datos y luego atraves de un MySqlDataReader tendremos que capturar dichos nombres para formar la cadena de OPTIMIZACION la cual se la pasaremos mediante un Comando.Aqui les dejo un codigo de prueba,espero que les sea util.
Cita: 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