Ver Mensaje Individual
  #2  
Antiguo 14-03-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
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
Responder Con Cita