Ver Mensaje Individual
  #5  
Antiguo 16-08-2007
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
Por el tipo de pregunta supongo que queres saber en que campo de un TDataSet retornará ese valor, ya que la función no tiene un nombre de campo. En este caso puedes hacer dos cosas:
  1. Definir un alias para el resultado de la función, y acceder por el nombre del campo:
    Código SQL [-]
    SELECT MAX(CAMPO) AS MIRESULTADO...
  2. O acceder por el índice del campo:
    Código Delphi [-]
    { Esta es una función genérica que retorna el valor del primer campo del primer registro de una consulta}
    function TdmMain.DBValue(ASql, ADefault: string): string;
    var
      qryData: TADOQuery;
    begin
      qryData := TADOQuery.Create(Self);
      try
        qryData.Connection := ConnMain;
        qryData.SQL.Text := ASql;
        qryData.Open;
        if qryData.IsEmpty Then
          Result := ADefault
        else
          Result := qryData.Fields[0].AsString;
    
         qryData.Close;
      finally
        qryData.Free;
      end;
    end;

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita