Mayor Numero Paradox
 

Salu2

tengo un campo en una tabla paradox que contiene un campo "num_veh" en este campo van registrada x cantidad

¿Quisierea saber como hago para buscar el número mas alto?
para sumarle 1 y no se repita

gracias adelantadas...

Hola lKing, puedes hacer una consulta ordenando de mayor a menor y obtener el primer registro.

Código SQL [-]
 select First 1 * from tabla order by num_veh desc

Nose si en paradox habra First o Top, que te devuelve el primer registro de tu consulta.

Saluditos

tambien se puede hacer (creo recordar que si) un MAX

Código SQL [-]
Select Max(num_veh) from latabla

si pero ese código es mucho para lo que necesito, mira lo que necesito es que el campo "num_veh", se incremente... mas nada no necesito consulta sql ni nada tan complejo

lo que quiero es hacer un algoritmo asi

Código Delphi [-]
var
numv:integer;
begin
  tabla.insert;
  numv:=mayornumero de la tabla+1;
  tabla.post;
end;

:eek: y cual es la parte compleja :confused:, lanzas el query obtienes el valor le sumas uno y listo... no veo otra manera

Eso mismo, solo que en vez de usar lo que te he puesto, utiliza Max como te indica Eduardo.

Saluditos

estoy haciendo asi pero no me corre :S disculpen mi ignorancia

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
var
buscar:string;
begin
buscar:='Select Max(num_veh) from vehiculos.db';
edit1.Text:=IntToStr(StrToInt(buscar)+1);
end;

Pues si no necesitas consulta ni nada tan complejo, entonces busca otro camino y cuando lo encuentres, te diré los fallos que tiene.

Necesitas una consulta como bien han expuesto. Aquí una variante que ya te da el siguiente número:

Código SQL [-]
Select Max(num_veh)+1 from latabla

Aunque si quieres puedes usar table1.recordcount para averiguar la cantidad de registros que tiene una tabla, pero eso te dará duplicados en cuanto alguien borre un albaran, factura, cliente o lo que sea y quiera añadir uno nuevo. El BDE lanzará una excepción keyviol ... tú mismo.

saludos

será que tengo que agregar un componente query?

:(:(:(:(:(:(

Hola lking, entonces tienes problemas en obtener el resultado de tu consulta.

Código Delphi [-]
Query1.Active := False;
Query1.SQL.Text := 'Select Max(num_veh) +1 AS numero from vehiculos.db';
Query1.Active :=True;
NuevoNumero := Query1.FieldByName('numero').AsString;

Saluditos

Si lking, necesitas un query para ejecutar tu consulta, revisa lo que te puse en mi anterior mensaje.

Saluditos

hola caro

ya lo revise y para probar el codigo que me facilitaste le puse la salida asi y nada no me muestra nada...

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
var
nuevonumero:string;
begin
Query1.Active := False;
Query1.SQL.Text := 'Select Max(num_veh) +1 AS num_veh from vehiculos.db';
Query1.Active :=True;
NuevoNumero := Query1.FieldByName('num_veh').AsString;
edit1.Text:=nuevonumero;
end;

gracias por tu paciencia :(

Hola de nuevo, tu campo num_veh es de tipo entero verdad si es así no deberías tener problemas al sumarle 1, has la prueba cambiando el nombre del alias y has la prueba también solo con el max sin sumarle el 1.

Código Delphi [-]
Query1.Active := False;
Query1.SQL.Text := 'Select Max(num_veh) +1 AS numero from vehiculos.db';
Query1.Active :=True;
NuevoNumero := Query1.FieldByName('numero').AsString;

Saluditos

antes habia hecho algunas consultas sql y pude notar que en la actual no tengo este codigo

Código Delphi [-]
Query1.DatabaseName:=ExtractFilePath(Application.ExeName)+'Data';

estemmmm le puse +'Data' por que la tabla vehiculos.db esta dentro de una carpeta llamada data

otra cosita...

y si...el campo num_veh es entero y hay un registro que tiene 0 para que cuando el codigo me funcione me arroje 1

:eek: ya funcionó y no se que hice :(

¿alguien podria explicar?

muchas gracias caro por tu ayuda tu siempre tan oportuna :)

Hola, usar querys es lo mas (mucho mas) recomendable. Solo añado esto para mostrar que tambien se puede hacer mediante unicamente tablas.

Código Delphi [-]
 
 Tabla.IndexFieldNames := 'num_veh';
 Tabla.Last;
 num_veh := Tabla.FieldByName('num_veg').Asinteger;
 inc(num_veh);
 ...

¿Y no se puede usar un campo autoinc y dejar que paradox haga todo?

// Saludos

El riesgo de los campos autoinc es que si por un casual se nos ocurre que sean índice para establecer una relación maestro-detalle, por ejemplo una factura y sus líneas. Si por algún motivo falla, tiene efectos desastrosos pues nos borraría facturas.

Me explico, tengo una tabla de facturas y otra líneas, por el motivo que sea decido importar la tabla de facturas completa a una nueva tabla, por ejemplo por alguna corrupción que ha sufrido, a partir de aquí la nueva tabla es posible que no coincida el autoincremento que llevabamos y por lo tanto la relación maestro-detalle se vuelve azarosa.

Si además el autoincremento por el motivo que fuere cambia irá machacando todas las facturas que sea superiores, hablo por experiencia, pues en una ocasión un sistema perdía recibos por suerte descubrí pronto que por un trasvase a otra tabla el autoincremento se había vuelto inferior al que llevaba la tabla antigua.

Un Saludo.

Hola te paso una funcion para hacer lo que tu quieres.

Código Delphi [-]
function GenerarId(KeyField, TableName, Condicion: string): Integer;
var
  NewValue: Integer;
begin
  NewValue := -1;
  Query1.Close;
  Query1.SQL.Clear;
  if Condicion <> '' then
    Query1.SQL.Add('SELECT Max( '+KeyField+' ) AS MAXIMO FROM '+TableName+ ' WHERE '+Condicion)
  else
    Query1.SQL.Add('SELECT Max('+KeyField+') AS MAXIMO FROM '+TableName);
  Query1.Open;
  // Si no hay registros en la tabla la consulta devuelve null
  if VarIsNull( Query1.FieldValues[ 'MAXIMO' ] ) then
    NewValue := 1 // valor para el primer registro de la tabla
  else
    NewValue := Integer( Query1.FieldValues[ 'MAXIMO' ] ) + 1;
  Query1.Close;
  Result := NewValue;
end;

Para usarla es asín.

Código Delphi [-]
NuevoNumero := GenerarId('num_veh','vehiculos.db', '');

O si lo quieres con alguna condicion.

Código Delphi [-]
NuevoNumero := GenerarId('num_veh','vehiculos.db', 'Fecha > ''01/06/2008''');

Saludos