Bejuma - Carabobo
Ubuntu 10.10 - Maverick Meerkat
Escritorio: GNOME
¡Buenas tardes comunidad!
Tengo el siguiente codigo que me respalda la base de datos en la misma carpeta donde tengo el proyecto pero quisiera saber como modificarlo para hacer que se guarde mi Base de Datos donde el usuario elija guardarla con el nombre que el desee colocarle:
' gambas class file
PRIVATE proceso AS Process
PRIVATE ruta AS String
PUBLIC SUB Form_Open()
ME.Center
Infdrespaldo.Text = "<h2><center>Respaldar la Base de Datos :</center></h2><br><font size=4><center>Para respaldar la Base de Datos presione el botón<br> '' Respaldar '' esto creará un Archivo en la carpeta<br> que usted desee con el nombre que le asigne.<br><br> Para restaurar la Base de Datos presione el botón<br>''Restaurar'' y seleccione el Archivo sql</center></font>"
END
PUBLIC SUB btnsalir_Click()
ME.Close
END
PUBLIC SUB btnrespaldar_Click()
Dialog.Title = "Guardar archivo"
Dialog.Path = "."
Dialog.Filter = ["*.sql", "Ficheros sql"] 'Filtro para tomar solamente extensiones sql"
IF NOT Dialog.SaveFile() THEN
ruta = File.Name(Dialog.Path)
ENDIF
proceso = SHELL "gksu -- mysqldump --user=root --password='12345' liceo > ~/gambas2/liceopiotamayo/" & ruta FOR READ
Message.Info("Por favor use un dispositivo portatil para respaldar la base de datos fuera del equipo")
END
PUBLIC SUB btnrestaurar_Click()
Dialog.Title = "Elija una ubicacion"
Dialog.Path = "."
Dialog.Filter = ["*.sql", "Ficheros sql"]
IF NOT Dialog.OpenFile() THEN
ruta = File.Name(Dialog.Path)
ENDIF
proceso = SHELL "mysql - -user=root --password='12345' liceo < ~/gambas2/liceopiotamayo/" & ruta
Message.Info("La base de datos ya ha sido restaurada")
END
PRIVATE proceso AS Process
PRIVATE ruta AS String
PUBLIC SUB Form_Open()
ME.Center
Infdrespaldo.Text = "<h2><center>Respaldar la Base de Datos :</center></h2><br><font size=4><center>Para respaldar la Base de Datos presione el botón<br> '' Respaldar '' esto creará un Archivo en la carpeta<br> que usted desee con el nombre que le asigne.<br><br> Para restaurar la Base de Datos presione el botón<br>''Restaurar'' y seleccione el Archivo sql</center></font>"
END
PUBLIC SUB btnsalir_Click()
ME.Close
END
PUBLIC SUB btnrespaldar_Click()
Dialog.Title = "Guardar archivo"
Dialog.Path = "."
Dialog.Filter = ["*.sql", "Ficheros sql"] 'Filtro para tomar solamente extensiones sql"
IF NOT Dialog.SaveFile() THEN
ruta = File.Name(Dialog.Path)
ENDIF
proceso = SHELL "gksu -- mysqldump --user=root --password='12345' liceo > ~/gambas2/liceopiotamayo/" & ruta FOR READ
Message.Info("Por favor use un dispositivo portatil para respaldar la base de datos fuera del equipo")
END
PUBLIC SUB btnrestaurar_Click()
Dialog.Title = "Elija una ubicacion"
Dialog.Path = "."
Dialog.Filter = ["*.sql", "Ficheros sql"]
IF NOT Dialog.OpenFile() THEN
ruta = File.Name(Dialog.Path)
ENDIF
proceso = SHELL "mysql - -user=root --password='12345' liceo < ~/gambas2/liceopiotamayo/" & ruta
Message.Info("La base de datos ya ha sido restaurada")
END
Gracias por los aportes o ideas que proporcionen a mi pregunta
Granada
