Excepcion con ADO

[Neftali [Germán.Estévez]]

Empezado por SidedTermita

Entoncs para que sirve esta lista ?

Por ejemplo para generar un código como este:

Código Delphi [-]
  // Si existe o no la tabla...
  function _ExistTable:Boolean;
  const
    ERROR_TABLE_NOT_EXIST = -2147217865;  // no existe el objeto
  var
    ADOQ:TADOQuery;
  begin

    Result := True;
    ADOQ := TADOQuery.Create(nil);

    // Bloque de proteccion
    try
      ADOQ.ConnectionString := ExceptionHook.ADODBConnectionString;
      ADOQ.SQL.Add('SELECT Id FROM ' + EXCEPTIONS_TABLENAME +
                   ' WHERE Id=0');

      // Proteccion de la ejecución
      try
        ADOQ.ExecSQL;
      // error de BD
      except on E:EOleException do
        if (E.ErrorCode = ERROR_TABLE_NOT_EXIST) then begin
          Result := False;
        end;
      end;
    finally
      ADOQ.Free;
    end; // try.. finally
  end;