Mayor Numero Paradox

[[eduarcol]]

Empezado por lKinGl

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

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

[*Caro*]

Empezado por eduarcol

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

[lKinGl]

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;

[*Caro*]

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

[lKinGl]

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

[*Caro*]

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

[lKinGl]

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

[lKinGl]

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

[lKinGl]

ya funcionó y no se que hice

¿alguien podria explicar?