Trucos 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