Corrupcion en una tabla

[Casimiro Notevi]

Claro, una tabla es muy complicado que se rompa, sería mucha casualidad que se estropeara un disco justo por el lugar donde hay datos de sólo una tabla.
Es por lo que al principio contesté que nunca había visto un caso así. Y suena más a fallo de software.

[cointec]

Empezado por Casimiro Notevi

Claro, una tabla es muy complicado que se rompa, sería mucha casualidad que se estropeara un disco justo por el lugar donde hay datos de sólo una tabla.
Es por lo que al principio contesté que nunca había visto un caso así. Y suena más a fallo de software.

Creo que quedaría mal Firebird si pon un fallo de software se corrompiera una tabla.

¿Qué tipo de corrupción tiene? Qué aparece en Firebird.log? Has comprobado si en Firebird.log se ha producido algún reinicio?

Yo tuve algún problema de corrupción con la versión 2.5.0 por unos fallos en el motor, pero se solventó en un parche y actualmente la versión 2.5.2 es bastante estable.

[Casimiro Notevi]

Empezado por cointec

Creo que quedaría mal Firebird si pon un fallo de software se corrompiera una tabla.

Un fallo de su (cesarsoftware) software

[cointec]

Empezado por Casimiro Notevi

Un fallo de su (cesarsoftware) software

Ya, lo he entendido, y por eso lo he comentado. Un fallo en una aplicación cliente puede producir muchos problemas, debido a un mal control de transacciones, etc. pero nunca debería deber poder corromper una tabla o base de datos, a no ser que se ataqué directamente a las tablas del sistema.

[Casimiro Notevi]

Empezado por cointec

a no ser que se ataqué directamente a las tablas del sistema.

Pues eso, también creación/edición de campos/dominios/triggers/stores procedures/etc. en tiempo de ejecución y que no estén debidamente probadas.

[cointec]

Empezado por Casimiro Notevi

Pues eso, también creación/edición de campos/dominios/triggers/stores procedures/etc. en tiempo de ejecución y que no estén debidamente probadas.

Entonces el motor no debería permitir ejecutar ddl en una base de datos en uso. Sigue siendo un problema del motor. El motor no debería permitir que se ejecute ddl en una base de datos en uso si va a corromperla, o si lo permite debería emitir un aviso indicando de la acción, pero no he leído por ninguna parte en la documentación de Firebird ese tipo de advertencias, aunque por supuesto, cuando ejecuto scripts de actualización, los lanzo sin ningún usuario conectado, excepto el sysdba. Lo hago para evitar errores del tipo "objeto en uso", que es un mensaje que entiendo que lanza el propio motor para evitar modificaciones sobre objetos que están en uso por usuarios, y es como creo que debe actuar, ya que lo principal es que garantice una consistencia e integridad en la información contenida en la bd.

[Casimiro Notevi]

Si quieres iniciar un debate sobre ese tema entonces crea un nuevo hilo, gracias

[cesarsoftware]

Empezado por Casimiro Notevi

Un fallo de su (cesarsoftware) software

Je,je,je, muy gracioso

El cliente me llamo ayer informado que "mi software" informaba de que no podia leer el identificador (el soft continua, quizas no debiera, porque lee el resultado de un ensayo de amortiguadores y luego indica a los distintos robots lo que tiene que hacer en funcion al resultado del ensayo) y que al leer la bbdd con un software de terceros solo decia (segun el cliente) "table corrupted" o algo asi, me lo dijo por telefono, pero que otras tablas si podia leer.
Como me dijo que tiraria de copia, la verdad es que no se me ocurrio pedirle que me leyera el firebirl.log.

Uso la version 2.5.1 de 64 bits.

La funcion para leer el identificador es la siguiente

Código Delphi [-]
function TFormMain.LeeIdentificadorBBDD(): integer;
var
  identificador: integer;
  DataSet: TSQLDataset;
  msg: string;
begin
  Result := -1;
  if conectadoBase = False then
    Exit;
  try
    FormBBDD.SQLConnection.Execute('SELECT MAX(IDENTIFICADOR) FROM ENSAYOS', nil, @DataSet);
    identificador := Dataset.Fields[0].AsInteger;
    FreeAndNil(DataSet);
    Inc(identificador);
    Result := identificador;
  except
    FreeAndNil(DataSet);
    Exit;
  end;
  msg := 'Identificador de ensayo ' + IntToStrMil(identificador);
  ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(msg);
  FreeAndNil(DataSet);
end;

La funcion para grabar datos (unos 3000 por ensayo (1 ensayo cada 24 segundos)) en la siguiente (se graban 2 tablas y solo ha fallado la tabla LECTURAS.

Código Delphi [-]
function TFormMain.GuardaEnsayoBBDD(identificador, resultado: integer): boolean;
var
  i: longword;
  tag: longword;
  Transaccion: TDBXTransaction;
  sFecha, msg, sql: string;
  tIni, tFin, tSegIni, tSegFin, tiempo: int64;
  r: boolean;
begin
  Result := False;
  if conectadoBase = False then
    Exit;
  if identificador = -1 then
  begin
    ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(
     'Nº de identificador erroneo ' + IntToStr(BBDDidentificador));
    Exit;
  end;
  if RxLecturas = 0 then
  begin
    ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(
     'No hay lecturas que grabar');
    Exit;
  end;
  // Grabar los datos
  r := True;
  tag := ListBoxMonitor.Items.Count + 1;
  tIni := GetTickCount();
  msg := 'Comenzando transacción';
  ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(msg);
  Transaccion := FormBBDD.SQLConnection.BeginTransaction;
  if Transaccion = nil then
  begin
    ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(
     'No se creo la trasacción');
    Exit;
  end;
  tSegIni := GetTickCount();
  // Grabar el ensayo
  sql := DateToStr(Now());
  sFecha := Copy(sql, 7, 4) + '/' +
            Copy(sql, 4, 2) + '/' +
            Copy(sql, 1, 2);
  sql := 'INSERT INTO ENSAYOS (';
  sql := sql + 'LINEA,IDENTIFICADOR,FECHA,HORA,ORDEN,MODELO,RESULTADO,';
  sql := sql + 'V1_MAX_EXT,V1_MAX_COM,V2_MAX_EXT,V2_MAX_COM,';
  sql := sql + 'V3_MAX_EXT,V3_MAX_COM,V4_MAX_EXT,V4_MAX_COM,';
  sql := sql + 'V5_MAX_EXT,V5_MAX_COM,V1_AREA_0,V1_AREA_1,V1_AREA_2,';
  sql := sql + 'V1_AREA_3,V2_AREA_0,V2_AREA_1,V2_AREA_2,V2_AREA_3,V3_AREA_0,';
  sql := sql + 'V3_AREA_1,V3_AREA_2,V3_AREA_3,V4_AREA_0,V4_AREA_1,V4_AREA_2,';
  sql := sql + 'V4_AREA_3,V5_AREA_0,V5_AREA_1,V5_AREA_2,V5_AREA_3';
  sql := sql + ') VALUES (';
  sql := sql + IntToStr(NombreLinea) + ',';
  sql := sql + IntToStr(identificador) + ',''';
  sql := sql + sFecha + ''',''';
  sql := sql + TimeToStr(Now()) + ''',''';
  sql := sql + Trim(EditOF.Text) + ''',''';
  sql := sql + Trim(EditModelo.Text) + ''',';
  sql := sql + IntToStr(resultado) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxExt[0])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxCom[0])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxExt[1])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxCom[1])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxExt[2])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxCom[2])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxExt[3])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxCom[3])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxExt[4])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(VmaxCom[4])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[0, 0])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[0, 1])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[0, 2])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[0, 3])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[1, 0])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[1, 1])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[1, 2])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[1, 3])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[2, 0])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[2, 1])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[2, 2])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[2, 3])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[3, 0])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[3, 1])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[3, 2])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[3, 3])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[4, 0])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[4, 1])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[4, 2])) + ',';
  sql := sql + FloatStrComaToPunto(FloatToStr(EnsayoGrafica.areaTotal[4, 3]));
  sql := sql + ')';
  try
    FormBBDD.SQLConnection.ExecuteDirect(sql);
  except
    on E: Exception do
    begin
      ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(
       'No se ha guardado el ensayo');
      Result := False;
      FormBBDD.SQLConnection.RollbackFreeAndNil(Transaccion);
      Exit;
    end;
  end;
  // Grabar los datos
  for i := 0 to RxLecturas - 1 do
  begin
    sql := 'INSERT INTO LECTURAS (';
    sql := sql + 'LINEA,IDENTIFICADOR,V,CICLO,LECTURA,POSICION,ESFUERZO,VELOCIDAD)';
    sql := sql + ' VALUES (';
    sql := sql + IntToStr(NombreLinea) + ',';
    sql := sql + IntToStr(identificador) + ',';
    sql := sql + IntToStr(aSpeed[i]) + ',';
    sql := sql + IntToStr(aCiclo[i]) + ',';
    sql := sql + IntToStr(i + 1) + ',';
    sql := sql + IntToStr(aPosicion[i]) + ',';
    sql := sql + IntToStr(aFuerza[i]) + ',';
    sql := sql + IntToStr(aVelocidad[i]);
    sql := sql + ')';
    try
      FormBBDD.SQLConnection.ExecuteDirect(sql);
    except
      on E: Exception do
      begin
        ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(
         'No se ha guardado la lectura nº ' + IntToStr(i));
        r := False;
        Break;
      end;
    end;
    tSegFin := GetTickCount();
    if (tSegFin - tSegIni) >= 1000 then
    begin
      tSegIni := GetTickCount();
      msg := 'Grabados ' + IntToStrMil(i) + ' de ' + IntToStrMil(RxLecturas - 1);
      ListBoxMonitor.Items[tag - 1] := msg;
      Application.ProcessMessages;
    end;
  end;
  msg := 'Grabados ' + IntToStrMil(i) + ' de ' + IntToStrMil(RxLecturas - 1);
  ListBoxMonitor.Items[tag - 1] := msg;
  if r = True then
  begin
    try
      FormBBDD.SQLConnection.CommitFreeAndNil(Transaccion);
    except
      on E: Exception do
      begin
        ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(
         'No se ha guardado la trasacción');
        FormBBDD.SQLConnection.RollbackFreeAndNil(Transaccion);
        Exit;
      end;
    end;
  end
  else
  begin
    ListBoxMonitor.ItemIndex := ListBoxMonitor.Items.Add(
     'Se han registrado errores');
    FormBBDD.SQLConnection.RollbackFreeAndNil(Transaccion);
    Exit;
  end;
  tFin := GetTickCount();
  tiempo := (tFin - tIni);
  msg:= DateTimeToStr(Now()) + ' - ' + IntToStrMil(RxLecturas - 1) +
        Format(' - %.2f', [tiempo / 1000]) + ' Seg.';
    ListBoxMonitor.Items[tag - 1] := msg;
  Result := True;
end;

Quizas no hago bien las cosas, ¿como veis las funciones? ¿Os parecen que pueden corronper? Hasta la fecha a registrado correctamente mas de 100.000 ensayos (unos 17 gigabytes)

Saludos.

[Casimiro Notevi]

Empezado por cesarsoftware

El cliente me llamo ayer informado que "mi software" informaba de que no podia leer el identificador [..] y que al leer la bbdd con un software de terceros solo decia (segun el cliente) "table corrupted" o algo asi, me lo dijo por telefono,

O sea, resumiendo, que casi seguro que no pasa nada, no tienes información. A mí me llama un cliente y me dice eso y como si me dice que llueve

[cesarsoftware]

Empezado por Casimiro Notevi

O sea, resumiendo, que casi seguro que no pasa nada, no tienes información. A mí me llama un cliente y me dice eso y como si me dice que llueve

Ya, pero habra que hacer caso al cliente, ¿no te parece? El cliente siempre tiene razon

¿Que os parecen las funciones? ¿Esta bien escritas o son una chapucilla?

[cesarsoftware]

Empezado por Casimiro Notevi

O sea, resumiendo, que casi seguro que no pasa nada, no tienes información. A mí me llama un cliente y me dice eso y como si me dice que llueve

Ya, pero habra que hacer caso al cliente, ¿no te parece? El cliente siempre tiene razon

¿Que os parecen las funciones? ¿Esta bien escritas o son una chapucilla?

PD: firebird graba 3000 registros en 1 segundo mas o menos ¿esta bien no?

[Casimiro Notevi]

El cliente puede puede tener toda la razón que quiera, pero en cosas así, no.
A mí me llama un cliente y me dice que ha probado un software de terceros y le dice "tabla corrupta" y lo mando a... comprar fanta.
Lo que tienes que hacer es verlo con tus ojos y probarlo. Y nada de software de terceros, ¡¡¡qué sabrá ese software sobre tu base de datos!!!

En cuanto a tu código, bueno, si funciona no lo toques

Ya en serio, yo haría las cosas de otra manera, pero por indicar sólo una cosa: el insert sería un 'stored procedure' al que le pasaría parámetros.
Y, bueno, no se parecería mucho a tu código, pero ya digo, si funciona no lo toques