ExecuteDirect -gt; Não estou entendendo!!

Delphi

01/02/2007

Pessoal estou usando o metodo ExecuteDirect do SqlConnection para executar SQL, de acordo com o Help do Delphi:

´ExecuteDirect retorna 0 se o comando for executado com sucesso. Se não, retorna um código de erro dos dbExpress.´


Estou executando o seguinte codigo:
function TClassePrincipal.ExecutaSql(pComando: OleVariant): OleVariant;
var
  Sql : string;
  Auxiliar : Real;
begin
  Sql := pComando;
  try
    Auxiliar := FrmPrincipal.SQLConnection.ExecuteDirect( Sql );
    Result := Auxiliar;
  except
    on e : Exception do FrmPrincipal.MensagemErroLog(e.Message);
  end;
end;


O comando é executado no banco sem problema mas como retorno da função estou tendo o valor: 1

Eu é que estou ficando doido ou o que? Alguem sabe onde esta meu erro?

Valew


Mmoreira

Mmoreira

Curtidas 0

Respostas

Mmoreira

Mmoreira

01/02/2007

Ninguem?


GOSTEI 0
POSTAR