delphi
procedure TForm1.FormActivate(Sender: TObject); begin query.Close; query.SQL.Text:='SELECT folio FROM datos ORDER BY folio desc LIMIT 1'; query.Open; folio.text := query.FieldByName('folio').asString ; end;
Escrito 25 abril 2012 - 11:34
procedure TForm1.FormActivate(Sender: TObject); begin query.Close; query.SQL.Text:='SELECT folio FROM datos ORDER BY folio desc LIMIT 1'; query.Open; folio.text := query.FieldByName('folio').asString ; end;
Escrito 25 abril 2012 - 11:38
procedure TForm1.FormActivate(Sender: TObject); begin query.Close; query.SQL.Text:='SELECT folio FROM datos ORDER BY folio desc LIMIT 1'; query.Open; folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ; end;
Escrito 26 abril 2012 - 08:30
procedure TForm1.FormActivate(Sender: TObject); begin query.Close; query.SQL.Text:='SELECT Max(folio) as maximo FROM datos '; query.Open; folio.text := IntToStr(query.FieldByName('maximo').asInteger +1) ; end;
Escrito 26 abril 2012 - 11:44
select Max(folio) + 1 as Siguiente from datos
Escrito 26 abril 2012 - 11:53
procedure TForm1.FormActivate(Sender: TObject); begin query.Close; query.SQL.Text:='SELECT Max(folio) + 1 as siguiente FROM datos '; query.Open; folio.text := query.FieldByName('siguiente').AsString ; end;
Escrito 26 abril 2012 - 07:24
Escrito 27 abril 2012 - 08:23
Escrito 27 octubre 2012 - 10:03