¿Compactar una bd tipo Firebird?

[FGarcia]

Tal vez el concepto este mal, asi que una ayudadita no esta de mas

1. Una aplicacion que posee una bd de firebird 2.0
2. Al finalizar el dia se debe de crear un respaldo de los datos que contiene la BD.
3. El respaldo se hace con IBX BackUpService (paleta Interbase Admin) y hasta ahi todo OK
4. Los datos de la base de datos se eliminan. La base de datos queda fragmentada
5. Aqui la pregunta ¿Como hago la compactacion para "reparar" esa BD? Esto seria algo asi como en Access "compactar y reparar".

Gracias por la atencion y la ayuda.

[egostar]

Tal vez el concepto este mal, asi que una ayudadita no esta de mas

1. Una aplicacion que posee una bd de firebird 2.0
2. Al finalizar el dia se debe de crear un respaldo de los datos que contiene la BD.
3. El respaldo se hace con IBX BackUpService (paleta Interbase Admin) y hasta ahi todo OK
4. Los datos de la base de datos se eliminan. La base de datos queda fragmentada
5. Aqui la pregunta ¿Como hago la compactacion para "reparar" esa BD? Esto seria algo asi como en Access "compactar y reparar".

Gracias por la atencion y la ayuda.

Hola amigo

Lo unico que te quedaría es hacer un restore de la base usando el componente IBRestoreService de la misma paleta, esto te genera de nuevo la base de datos, compactada pero sin los ultimos registros que se hayan agregado antes de borrarla.

Salud OS

Edito: Lo que tienes que hacer es volver a hacer un BackUp y hacer un Restore, de esa forma la base queda compactada. :)

[FGarcia]

ok, Entonces despues de borrar los datos hay que hacer un backup con el mismo nombre de la bd para restaurar y no llegar a sobrescribir el respaldo ( :eek: ), la intencion es que sea transparente al usuario, para el solo aparecera un boton que dice "Aceptar"

[egostar]

ok, Entonces despues de borrar los datos hay que hacer un backup con el mismo nombre de la bd para restaurar y no llegar a sobrescribir el respaldo ( :eek: ), la intencion es que sea transparente al usuario, para el solo aparecera un boton que dice "Aceptar"

Asi es amigo, hay que tener cuidado con los respaldos, puedes hacer un proceso que en el respaldo le asignes de nombre por ejemplo una fecha si es que quieres conservar algun historial de respaldos y la compactación un archivo de nombre fijo que no tenga que ver con los respaldos.

Salud OS

[FGarcia]

Simplificando parte del codigo que colocaste en tu aplicacion de respaldar y restaurar una BD firebird


with IBBkpService do
begin
DatabaseName := 'string';
BackUpFile.add('string');
Protocol := Local;
Params.Add('UserName=' + 'string');
Params.Add('Password=' + 'string');
Active := True;
Memo1.Lines.Add('********** INICIANDO RESPALDO **********');
while not eof do
begin
Memo1.Lines.Add(GetNextLine);
end;
Active:= False;
Memo1.Lines.Add('********** RESPALDO FINALIZADO **********');
end;


Si no coloco el Memo en la aplicacion ¿como se que ya termino de respaldar ?

[egostar]

Puede ser algo asi no?


with IBBkpService do
begin
DatabaseName := 'string';
BackUpFile.add('string');
Protocol := Local;
Params.Add('UserName=' + 'string');
Params.Add('Password=' + 'string');
Active := True;
while not eof do begin
GetNextLine;
end
Active:= False;
ShowMessage('Ya termino ');
end;


Salud OS

[FGarcia]

Ya en forma la ejecucion del respaldo:


with IBBkpService do
begin
DatabaseName := NombreDB;
BackUpFile.add(CrearNombreDiario(NombreDB));
Protocol := Local;
Params.Add('UserName=' + 'sysdba');
Params.Add('Password=' + 'masterkey');
Active := True;
//Memo1.Lines.Add('********** INICIANDO RESPALDO **********');
while not eof do
begin
//Memo1.Lines.Add(GetNextLine);
GetNextLine;
end;
Active:= False;
//Memo1.Lines.Add('********** RESPALDO FINALIZADO ********');
end;


sin embargo me abre la ventana de login y despues de ingresar los datos me da este Horror:


---------------------------
Debugger Exception Notification
---------------------------
Project CapDatos.exe raised exception class EIBClientError with message 'SPB Constant Unknown'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------



NPI de ese SPB Constant!

[egostar]

Bueno lo del login necesitas cambiar en tus componentes IBX la propiedad LoginPrompt a False, los del "SPB Constant Unknown" pues igual NPI.

Salud OS

[FGarcia]

:D:D:D:D el loginprompt ya esta cambiado (de hecho desde origen) lo otro parece ser que es un bug ando en busca de informacion, de hecho encontre que se recomienda bajar los IBX mas actuales de cc.borland.com en la pagina de Jeff Overcash. Ando tras de eso.

[duilioisola]

Si agregando el GetNextLine a las lineas del Memo funciona, quizás debas agregar GetNextLine a un TStrings.
El error puede ser que GetNextLine esté creando un string en memoria y luego no se asigna a nada y se pierde.

Prueba algo como esto:

with IBBkpService do
begin
DatabaseName := NombreDB;
BackUpFile.add(CrearNombreDiario(NombreDB));
Protocol := Local;
Params.Add('UserName=' + 'sysdba');
Params.Add('Password=' + 'masterkey');
Active := True;
//Memo1.Lines.Add('********** INICIANDO RESPALDO **********');
s := TStringList.Create; // Crear TStrings
while not eof do
begin
s.Lines.Add(GetNextLine); // rellenar s con GetNextLine
end;
Active:= False;
s.free; // liberar el TStrings
end;


Además, deberías ver que es lo que contiene s, para ver si terminó correctamente o ha habido algún error.

[FGarcia]

Pues sigo en esto, no se me ha olvidado ni lo he resuelto.

Despues de revisar un error en la sintaxis y colocando el memo para visualizar el error se mantiene.


with IBBkpService do
begin DatabaseName := NombreDB;
BackUpFile.add(CrearNombreDiario(NombreDB));
Protocol := Local;
Params.Add('User_Name=' + 'sysdba'); //Faltaba el guion bajo
Params.Add('Password=' + 'masterkey');
Active := True;
ServiceStart; //No iniciaba el servicio
Memo1.Lines.Add('********** INICIANDO RESPALDO **********');
while not eof do
begin
Memo1.Lines.Add(GetNextLine);
end;
Active:= False;
Memo1.Lines.Add('*******RESPALDO TERMINADO*********');
end;

EL mensaje de horror: 'SPB Constant Unknown'

Lo curioso del asunto es que en la aplicacion original de sensei egostar todo funciona correctamente.:mad:

[FGarcia]

¡¡Que alguien me lo explique!!

Bueno, actualize los IBX a la version 7.11, probe sin modificar el codigo y el error se mantiene.

¿Que paso? no lo se, simplemente empezo a funcionar. Asi quedo:


function TdmDatos.CrearRespaldoDiario(NombreDB: string): boolean;
var
s: TStrings;
begin
result := false;
with IBBkpService do
begin
DatabaseName := NombreDB;
BackUpFile.add(CrearNombreDiario(NombreDB));
Protocol := Local;
ServerName := '';
Params.Add('User_Name=' + 'SYSDBA');
Params.Add('Password=' + 'masterkey');
Active := True;
ServiceStart;
s := TStringList.Create;
while not eof do
begin
s.add(GetNextLine);
end;
Active:= False;
s.Free ;
end;
result := True;
end;


y lo llamo asi:


procedure TfrmMantenimiento.Button1Click(Sender: TObject);
begin
if dmDatos.CrearRespaldoDiario(ExtractFilepath(Paramstr(0)) + 'MiBase.fdb') then
Showmessage('Respaldo efectuado correctamente') ;
end;


Entiendo que la asignacion del resultado de la funcion es arbitraria pues si hay un error no se donde leerlo, asi que si alguien puede aportar algo mas se agradece.

[duilioisola]

Entiendo que la asignacion del resultado de la funcion es arbitraria pues si hay un error no se donde leerlo, asi que si alguien puede aportar algo mas se agradece.

En la variable "s", vas guardando el resultado del backup. Por lo tanto, CREO, que es lo mismo que devuelve:
gbak -t NombreBase.FDB NombreBase.FBK
Si el resultado es vacío, todo ha ido bien. Si hay algo, ha habido un error.

Si no es así, pon nuevamente el Memo y mira qué pone. Supongo que habrá un mensaje cuando termina.
Puedes guardarte eso y lo comparas con el resultado de tus Backups. Si es distinto Result := False!