Corrupcion en una tabla

[Gallosuarez]

cesarsoftware:

¿Lo que no me queda muy claro es como se daño solo una tabla? Vamos, es la primer vez que oigo de un caso así. ¿Porqué dices que está dañada esa tabla? ¿Que error te sale? etc, etc. Entre más detalles nos des, más es la probabilidad que alguien en el foro te pueda ayudar.

Por otro lado, te comento un caso que me sucedió a mi, y que al principio se podría interpretar que se había dañado solo una tabla. Modifiqué un dominio un VARCHAR (lo puse un valor menor al que tenía). Despues de esto, al tratar de hacer un sentencia SELECT sobre esta tabla me mandaba un error de "overflow". Y obvio, solo sucedía en un sola tabla. Lo que hice fue, hacer un respaldo de dicha Base de datos y posteriormente la volví a restaurar (sobre-escriendo la misma Base de datos). Con esto se reparó dicho error. ¿Ves, eso es precisamente a lo que me refería: al principio pareció ser lo que no era?

En fin, necesitamos más información sobre tu problema.

Saludos,
Gerardo Suárez Trejo

[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.

[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?