Ahh, tambien he creado una funcion, que et sirve para saber si existe, y cual es el ultimo numero de un campo numerico en la DB.
Código Delphi
[-]
Function BancaNext(X:Integer):Integer;
begin
With Datamodule1 DO
Begin
ADOQueryGeneral.Close;
ADOQueryGeneral.SQL.Clear;
ADOQueryGeneral.SQL.Add('SELECT BANCA FROM empleados_Datos');
ADOQueryGeneral.Open;
ADOQueryGeneral.First;
X:=ADOQueryGeneral.Fields[0].AsInteger;
WHILE X=ADOQueryGeneral.Fields[0].AsInteger do
begin
X:=X+1;
ADOQuerygeneral.Next;
End;
Result:=X;
end;
end;
espero te sirva, un salu2.