PDA

Ver la Versión Completa : Registro siguiente


agustin173
05-10-2010, 00:24:35
Hola como estan todos

Quiero poner en un edit el registro siguiente me explico

estoy usando delphi 7, usando SQL Server y usando un adoquery

Tengo una Tabla llamada = Suplidor
un ADOQuery llamado = Adosuplidor
un Edit llamado = EDCodigo
Dentro de la Tabla tengo varios campos uno no ellos en (Codigo)

Lo que necesito es que en el edit me diga cual es el siguiente registro que se ra el codigo

Ejemplo: si digite el codigo 3 cuando grave me ponga que el proximo es el 4 y asi sucesivamente

yo se que es es con un recorcount pero no se como hacerlo prodrian ayudarme por favor.

Caral
05-10-2010, 00:34:38
Hola
Agrega un ADOQuery adicional al form y llamalo QTemp, asi sabras que lo usas temporalmente.
Coloca este codigo donde necesites:

QTemp.SQL.Text := 'Select Max(Codigo) From Suplidor';
QTemp.Open;
EDCodigo.Text := IntToStr(QTemp.Fields[0].AsInteger+1);
QTemp.Close;
Saludos

Caral
05-10-2010, 00:47:08
Hola
Un recordCount te traera el dato de la suma de la cantidad de los registros, no necesariamente el numero del ultimo, pero:

EDCodigo.Text:= IntToStr(Adosuplidor.RecordCount);
Saludos

agustin173
05-10-2010, 00:48:57
como estas amigo caral

voy aprobar te comento en unos intantes

agustin173
05-10-2010, 00:54:29
Hermano Caral

Muchas Gracias me funciono bien gracias por la ayuda.

Graciaaaaaaaaaaaaaaaassssssssss