Guardar variariable reeemplazando en el mismo registro

[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

[[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

[Petolansa]

Gracias egostar, realmente funciona de 10, yo le tenia miedo a sql pero realmente la logica no es tan complicada, al contrario es mas facil de lo que parece.

desde ya muchas gracias.

[[egostar]]

Empezado por Petolansa

Gracias egostar, realmente funciona de 10, yo le tenia miedo a sql pero realmente la logica no es tan complicada, al contrario es mas facil de lo que parece.

desde ya muchas gracias.

Que bueno que te sirvio, de hecho te recomiendo que trates de usar al máximo SQL y si puedes cambia a otra base de datos mas potente, puedes intentar con Firebird. Paradox es una base muy buena pero es de escritorio, Firebird te da mucho mas poder al hacer tus desarrollos.

Salud OS.

[[Caral]]

Hola
Bueno para que te sirva solo como un ejemplo mas.

Código Delphi [-]
 QTemp.SQL.Text := 'Select Max(CodOrden) From OrdenProd';
 QTemp.Open;
 Edit2.Text  := IntToStr(QTemp.Fields[0].AsInteger+1);

Busca el máximo numero y le suma uno, en este caso lo presento en un edit.
Saludos

[Petolansa]

La verdad es que observo que permamnente mente se recomienda migrar de base de datos y lo tengo en cuenta para el proximo proyectito, este es una tesis que es para presentar ahora en diciembre, pero luego me dedicare de lleno a firebird con d7.

muchas gracias y hasta mi proxima consulta jeje