Problema al insertar un registro a una tabla

[[egostar]]

Hola

Antes que nada sabia donde colocar esta pregunta, no hay un foro de expedientes X,

Bien, pues trataré de ser objetivo y claro "al decir lo que voy a decir"

Resulta que tengo una tabla de nombre Proyectos, éste es su DDL....

Código SQL [-]
/******************************************************************************/
/***               Generated by IBExpert 08/08/2008 11:12:33                ***/
/******************************************************************************/
SET SQL DIALECT 3;

SET NAMES NONE;
/******************************************************************************/
/***                                 Tables                                 ***/
/******************************************************************************/
CREATE TABLE PROYECTOS (
    INDICE       INTEGER NOT NULL,
    PROYECTO_ID  VARCHAR(15),
    RESPONSABLE  VARCHAR(100)
);

/******************************************************************************/
/***                              Primary Keys                              ***/
/******************************************************************************/
ALTER TABLE PROYECTOS ADD CONSTRAINT PK_PROYECTOS PRIMARY KEY (INDICE);

/******************************************************************************/
/***                               Privileges                               ***/
/******************************************************************************/

Como ven, nada del otro mundo.

Bien, pues hice una pequeña aplicación "ABM" y todo funciona correctamente hasta llegar al registro 117, resulta que después de ese registro número 117 no puedo agregar mas registros.

Trataré de ejemplificar este asunto

Tengo la siguiente serie:
....
115
116
117

Aquí no puedo agregar mas registros.

Borro el registro 117 y si puedo volver a agregarlo, sin embargo ya no puedo agregar mas registros

Bueno, me voy por la libre, agrego directamente a la base (sin el programa) el registro 118 y todo regresa a la normalidad

....
115
116
117
118

Ahora, pensando que la direccion del registro 117 tuviese problemas, borre el registro 117 y deje la base así

....
115
116
118

Y funciona sin problemas, puedo agregar mas registros

Alguien me puede decir que está pasando ?????

El número 117 es cabalistico ?????

Será que debo hablar a Mulder y a Scully ????

Changos, ya me esta dando miedo

Salud OS

[[poliburro]]

De que manera realizas la inserción de nuevos registros?

una consulta?
un TTable?

[[egostar]]

Empezado por poliburro

De que manera realizas la inserción de nuevos registros?

una consulta?
un TTable?

Lo hago con un TTable y un DBNavigator.

El valor lo incremento leyendo el último registro y sumandole uno.

Ya hice otra prueba, pensando en tu pregunta, borre varios registros, vuelvo a dar de alta los registros y en el 117 ya no puedo agregar mas.

Voy a cambiarlo por un Query a ver que hace......

Salud OS

[[felipe88]]

Eso es mas raro que un perro a cuadros... ¿pero solo te pasa si lo intentas insertar desde tu aplicacion o tambien desde el ibexpert ?... de igual modo ya encontre al agente Mulder

[[egostar]]

Empezado por felipe88

Eso es mas raro que un perro a cuadros... ¿pero solo te pasa si lo intentas insertar desde tu aplicacion o tambien desde el ibexpert ?... de igual modo ya encontre al agente Mulder

Solo desde la aplicación, es obvio que donde tengo el problema es en la aplicación, el punto es donde carajos..........

De cualquier forma estoy cambiando el IBTable por un IBDataSet, no se donde carajos tenia la mente que estoy usando una tabla

Salud OS

[[Delphius]]

¿TTable? ¿DBE?
¿Es Firebird o Interbase?

Me parece raro amigo que haga eso.

Saludos,

[[felipe88]]

Empezado por egostar

Solo desde la aplicación, es obvio que donde tengo el problema es en la aplicación, el punto es donde carajos..........

Jejeje... claro ... entonces porque no lo creas de nuevo sin necesidad de cambiarlo...

[[egostar]]

Empezado por felipe88

Jejeje... claro ... entonces porque no lo creas de nuevo sin necesidad de cambiarlo...

Pues aunque lo dudes, lo mejor es hacer algo nuevo y pues lo hice todo nuevo

Use un IBDataSet para realizar todas las funciones del ABM.

En el evento OnNewRecord obtuve el valor del consecutivo y en un botón hice esto:

Código Delphi [-]
  IBDataSet1.Append;
  IBDataSet1.FieldByName('INDICE').Value := Indice;
  DBEdit2.SetFocus;

Y bueno pues asunto terminado.

Gracias a todos por hacerme ver lo tonto que soy y muy buen consejo amigo [poliburro] todo por usar lo que normalmente no uso, además de que seguramente habia algo que provocaba este fallo tan latoso.

Salud OS y gracias nuevamente

[[felipe88]]

Empezado por egostar

Pues aunque lo dudes, lo mejor es hacer algo nuevo y pues lo hice todo nuevo

Bueno no lo dudaba , creo que era lo mas correcto teniendo en cuenta lo de la tabla, pero bueno que lo solucionaste ...