[[egostar]]

Empezado por Petolansa

Disculpa mi ignorancia egostar, pero nunca use sql, como haria para poner este query, osea agregue un query, le di la dire de la bd, hasta ahi vamos, el tema es que yo quiero que en un formulario tengo un boton en el que quiero buscar el campo y plasmarlo en un caption y en otro boton guardar y ahi sumarle 1. tendria que dividir el codigo que me pasaste en dos partes?
O como se hace creo ese codigo como un procedimiento y lo llamo una vez?

Disculpas

Gracias

Ok, si en ese caso si debes separar las instrucciones

Código Delphi [-]
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select folio from TUTABLA');
  Query1.Open;
  Folio := Query1.Fields[0].AsInteger;
  Query1.Close;
  Folio := Folio + 1;
  Label1.Caption := InttoStr(Folio);
end;

Procedure TForm1.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.sql.clear;
  Query1.sql.add('UPDATE TUTABLA');
  Query1.sql.add('SET FOLIO = '+InttoStr(Folio));
  Query1.ExecSQL;
End;

Folio debe ser una variable general, ya no debe estar dentro de ningún procedimiento.

Salud OS