Crear un numero Autoincremental

[georgejg]

hola a todos.

la inquietud q tengo es la siguiente.

estoy utilizando una base de datos Oracle la cual esta conectada por medio de un Database, igual un Query unida al database.

ahora la tabla "Configuracion" tiene un campo llamaremos "Campo1" el cual debe ser autoincremental, "campo2", "campo3".

hasta el momento e insertado datos pero ingresandolos directamente en cada campo de la tabla.

lo que quiero es q no toque digitar el "campo1" si no q al momento de querer ingresar uno nuevo digiten solo los datos correspondientes para los compos 2 y 3.

me e enterado q es necesario crear un Generador, un tigger y no se q mas.

pero la cuestion es q no se como ni en q parte hacerlo.

En resumen que el numero se cree y se autoincremente en delphi a medida q se van ingresando datos.

si me pueden explicar como o un tutorial donde hacerlo se les agradeceria.

saludos.

[[Caral]]

Hola
Bueno en realidad no se en Oracle, en las base de datos buenas hay tigers y esas cosas, pero siempre digo, si no tienes tigres pues hay que usar los gatitos como en access.
Bueno empecemos para que veas que con gatitos se puede hacer sin problemas, lo que haremos sera una sentencia sql que nos indique cual es el ultimo numero insertado y que nos cree el siguiente automáticamente.
Primero se supone que tenemos 3 edits:
Edit1-Campo1 (el que va a ser autoincremental).
Edit2-Campo2
Edit3-Campo3
Bueno, entonces hagamos la faena.
Te aconsejo que pongas un query en el form, lo enlazas con la base de datos y lo dejas asi, supongamos que se llama query1.

Código Delphi [-]
      query1.SQL.Text := 'Select Max(Campo1) From Configuracion';
      query1.Open;
      Edit1.Text  := IntToStr(query1.Fields[0].AsInteger+1);
      query1.Close;

Esto lo puedes poner en cualquier evento, por ejemplo en el evento OnCreate del form o en un botón etc.
Como ves el edit obtendrá el valor del registro mas alto y le sumara uno.
Luego solo tendrás que tomar ese valor y colocarlo en la bd.
Facil, sencillo y con un solo gatito
Saludos

[[Lepe]]

Creo en oracle se llama campos "identity", vale al googlear un poco sale esto.

Saludos

[georgejg]

Gracias por responder

e probado lo q me dijiste caral y el campo autoincremental sirve generosamente..

ahora tengo el siguiente incomveniente. En mi Base de datos el "Campo2" es de tipo Fecha y dabe ser Unico.

hasta el mometo solo se validar campos de tipo Entero.

para capturar el "Campo2" utilizo un DatetimePicker, lo que me gustaria saber es como podria validar que la fecha q fue ingresa o seleccionada este repetida y si es asi que mande un mensage de error o de advertencia y si no pues q guarde la informacion.

se les agradece de antemano una pronta respuesta.

Saludos.

[[Caral]]

Hola
Pues de igual forma que el otro, pero se hace una comparacion:

Código Delphi [-]
      query1.SQL.Text := 'Select Campo2 From Configuracion';
      query1.Open;
     if query1.Fields[0].Value = DateToStr(DateTimePicker.Date) then
     begin
     ShowMessage('la fecha esta repetida');
     end
     else
     // lo que quieras que haga
    query1.Close;

saludos

[[eduarcol]]

Una pequeña modificacion si carlos me lo permite:

Código Delphi [-]
      query1.SQL.Text := 'Select Count(Campo2) as cuantos From Configuracion where Campo2 = ' + QuotedStr(DateToStr(DateTimePicker.Date));
      query1.Open;
     if query1.FieldbyName(cuantos).AsInteger >0 then
     begin
     ShowMessage('la fecha esta repetida');
     end
     else
     // lo que quieras que haga
    query1.Close;

[[Caral]]

Hola
Desconocía que se puede hacer un conteo de campos date, esta bueno saberlo.
Gracias por el dato.
Saludos

[keyboy]

Un par de comentarios:

1. Si usan el método del select max(..) deben asegurarse de bloquear la tabla: dos clientes pueden acceder simultáneamente y ver el mismo valor de max. El último en grabar el registro tendrá problemas.

2. Si el campo fecha debe ser único, aun cuando puede pre validarse la existencia de una fecha, es imperativo tene un índice único sobre ese campo para que sea la misma base de datos la que se asegure de que no haya repeticiones.

Bye

[[poliburro]]

Empezado por georgejg

hola a todos.

ahora la tabla "Configuracion" tiene un campo llamaremos "Campo1" el cual debe ser autoincremental, "campo2", "campo3".

En oracle los autoincementales no existen, pero tienes a tu disposición las secuencias, que combinadas con un triger, te permiten obtener un Id único para cada registro. Suerte