Buenas amigos, estoy tratando de Respaldar una base de Datos hecha bajo el Gestor Phpmyadmin, baje y trate de ajustar el codigo que aparece en este link http://foro.gambas-es.org/viewtopic.php?f=5&t=817&p=4560, y aparte que me perdi, cuando realiza la copia lo hace de manera individual tabla por tabla y guardar solo el contenido de las mismas, mas no su estructura.
Yo quisiera Guardar la Base de Datos Completa, que quede igual a cuando la exportamos desde el propio phpmyadmin en extension SQL, osea que me quede un archivo unico SQL para guardarlo, tengo instalado gambas 2.19, uso Phpmyadmin bajo Ubuntu 10.04 LTS - la versión Lucid Lynx.
Inventando logre hacer eso:
PUBLIC SUB BotonAbrir_Click()
DIM c AS String
DIM arr_cadenas AS String
Dialog.Title = "Seleccione la Base de Datos a Respaldar"
Dialog.Filter = ["*.sql", "JIREHMEDIC 1.0", "*.*", "Todos los ficheros"]
IF NOT Dialog.OpenFile() THEN
arr_cadenas = Split(File.LOAD(Dialog.Path), "\n")
ListBox1.Clear()
FOR EACH c IN arr_cadenas
ListBox1.Add(c)
NEXT
END IF
END
PUBLIC SUB BotonRespaldar_Click()
DIM lineas AS String
DIM destino AS String
DIM numArchivo AS Integer
lineas = ListBox1.List.Join("\n")
Dialog.Title = "Ubique el Destino donde se Guardará la Bases de Datos"
Dialog.Filter = ["*.sql", "JIREHMEDIC 1.0"]
IF NOT Dialog.SaveFile() THEN
IF Right$(Dialog.Path, 5) <> ".sql" THEN
destino = Dialog.Path & ".sql"
ELSE
destino = Dialog.Path
END IF
File.Save(destino, lineas)
Message.Info("La Bases de Datos fue Respaldada Exitosamente")
ListBox1.Clear
END IF
END
Este codigo guarda bien tal cual como quiero un solo archivo de Base de Datos en SQL, Pero cuando se ejecuta no logro conseguir Abrir la carpeta donde esta montado el Servidor que posee mi base de datos la cual se llama prosalud y la clave 123 con usuario root y, el cual, uso como predeterminado la direccion http://localhost/phpmyadmin, estoy utilizando un Servidor Apache2..
Alguien sabe si hay algun codigo por hay, o si sabe como hacerlo.. Lo agradeceria de antemano.. Gracias a todos por la colaboracion que me puedan prestar