Mysql + vb6 + mysqldump

[elmayo_84]

hola gente y maestros de la magia de la programacion, hoy les hago una consulta despues de estar una semana tratando de hacer un backup con vb6 + mysql. no pude hacer el bendito backup. asi q queria habrir el tema para q entre todos hagamos un codigo en comun, q a la gente le sirva ya q yo no lo pude hacer. he leido por ahi del mysqldump ta todo bien con el ejecutale este, pero como lo hago desde visual basic 6.

tengo estos codigo q lei por ahi:
backup
mysqldump --opt --password=**** --user=**** data_base>copia_base.sql
Restaurar
mysql --password=** --user=**** data_base<copia_base.sql

la duda se plantea cuando lo llamo del vb6 ya que tengo un boton en el cual al hacer le evento click deberia hacer el backup pero no lo hace.
bueno amigos el tema queda abierto y bueno haber si podes hacer un codigo para hacer el bendito backup y restaurar. Gracias

[gnzsoloyo]

Mira, el código puesto está bien escrito, por lo que el problema no está allí. En todo caso deberías consultar en el foro de Visual Basic cómo hacer para invocar un proceso DOS de este tipo, ya que no debes olvidarte que el mysqldump es en realidad un ejecutable de consola y no de entorno gráfico.
Yo lo uso sin problemas, pero lo hago desde VB.Net 2003, por lo que hay suficientes diferencias como para que no te resulte muy funcional. SI quieres, te lo paso.

Hay, si, un detalle que debes considerar: Si no está incluido en el PATH del sistema la ruta de acceso al mysqldump, entonces deberás incluirla en el comando que envías, o simplemente el sistema no lo encontrará.
Eso es algo que puede estar pasando, porque el instalador de MySQL no incluye la ruta en el PATH a menos que se lo indiques expresamente. Si esto es lo que está pasando, entonces la línea deberíacontener algo como esto:

C:\Archivos de programa\MySQL\MySQL Server 5.0\bin\mysqldump.exe --opt --password=**** --user=**** data_base>copia_base.sql

en un caso, y:

C:\Archivos de programa\MySQL\MySQL Server 5.0\bin\mysql.exe --password=** --user=**** data_base<copia_base.sql

en el otro (suponiendo que el archivo .sql esté en el mismo sitio C:\Archivos de programa\MySQL\MySQL Server 5.0\bin\. Si está en otra parte, deberás incluir la ruta al archivo también).

[elmayo_84]

hola amigo gnzsoloyo gracias por tu respuesta y si me interesa la aplicacion q tengas hecha asi la paso a vb6 gracias

[gnzsoloyo]

Código vb.net:

Imports MySql.Data.Common
Imports MySql.Data.MySqlClient
Imports System.IO
 
 
Public Class BaseDeDatos
 
    ' Genera un backup para el estado actual de la base de datos.
    Public Function GenerarBackup(ByVal directorio As String) As Boolean
        ' -----------------------------------------------------------
        Dim NombreBackup As String = "Backup_" & DateTime.Now.ToString("yyyyMMddhhmmss")
        Dim Comando As String
        Comando = """" & Application.StartupPath & "\mysqldump.exe" & """" & " -u" & UserName & " -p" & PasWord & " --host=" & IpHost & " --routines=TRUE --opt  --single-transaction fulmar > " & """" & oWorkDisk & "Backups\" & NombreBackup & ".sql"""
        Try
            Dim myProcess As New Process
            myProcess.StartInfo.FileName = "cmd.exe"
            myProcess.StartInfo.UseShellExecute = False
            myProcess.StartInfo.WorkingDirectory = oWorkDisk
            myProcess.StartInfo.RedirectStandardInput = True
            myProcess.StartInfo.RedirectStandardOutput = True
            myProcess.StartInfo.CreateNoWindow = True
            myProcess.Start()
            Dim myStreamWriter As StreamWriter = myProcess.StandardInput
            Dim mystreamreader As StreamReader = myProcess.StandardOutput
            myStreamWriter.WriteLine(Comando)
            myStreamWriter.Close()
            myProcess.Wait For Exit()
            myProcess.Close()
        Catch ex As MySqlException
            oLogWriter.Escribir("Excepción MySQL en GenerarBackup()" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace.ToString)
            Return False
        Catch ex As Exception
            SinDatos = True
            oLogWriter.Escribir("Excepción en GenerarBackup()" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace.ToString)
            Return False
        End Try
        Return True
    End Function
 
End Class
 

Variables declaradas en el Módulo:

Código vb.net:

Friend oWorkDisk As String = Environment.GetLogicalDrives(0)
Friend IpHost, UserName, PasWord As String
 

Este método requiere que en el PATH del sistema esté presente la rut aal /bin de MySQL.

Nota: Tuve que poner en una línea, por separado Wait For Exit porque aparentemente es alguna frase reservada en el funcionamiento de los posts y me la suprime. Obviamente va sin espacios.

[elmayo_84]

Gracias amigo voy haber como me las ingenio para pasarlo a vb6 :apla uso: y los aplausos para vos

[gnzsoloyo]

Me olvidé de aclararte un detalle: oLogWriter es una instancia de un objeto de una clase mía denominada Log que lo que hace es volcar a un archivo de logs todos los errores que se van capturando en las excepciones.
Además, verás que recibe un parámetro que nunca usa. Eso es porque antes tenía definido que se especificara el directorio de volcado, pero en el modelo actual de la aplicación el esquema de carpetas es fijo.