Foros Club Delphi - Ver Mensaje Individual - error al ejectuar query dentro de beforepost

[enecumene] · #8 02-01-2008

Código Delphi [-]Function nextArmario() : integer;
begin
  moduloDeDatosMdt.aux1Qry.Close;
  moduloDeDatosMdt.aux2Qry.SQL.Clear;
  moduloDedatosMdt.aux1Qry.SQL.Add('SELECT MAX(numArmario)+1 FROM armarios');
  moduloDedatosMdt.aux1Qry.Open;
  aux:=moduloDedatosMdt.aux1Qry.Fields[0].AsString;
  moduloDeDatosMdt.aux1Qry.Close;
end;

Intenta con eso a ver que resulta.

Saludos.