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;
Posted 25 April 2012 - 11:34 AM
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;
Posted 25 April 2012 - 11:38 AM
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;
Posted 26 April 2012 - 08:30 AM
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;
Posted 26 April 2012 - 11:44 AM
select Max(folio) + 1 as Siguiente from datos
Posted 26 April 2012 - 11:53 AM
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;
Posted 26 April 2012 - 07:24 PM
Posted 27 April 2012 - 08:23 AM
Posted 27 October 2012 - 10:03 PM