mercredi 30 juin 2010

Changer le navigateur dans Forms 10g.

Parfois, il va y avoir des problèmes au niveau de navigateur internet pour afficher un formulaire compilé avec Oracle Forms 10g (cause de Jinitiator ou les applets java). Donc, il est préférable de changer le navigateur pour faire des tests (de Firefox vers Internet Explorer ou vice-versa). Pour se faire, on va suivre les étapes suivantes:

  • Lancer Oracle Forms Builder.
  • Aller dans le menu Edition - Préférences. La fenêtre suivante s'affiche à l'écran.

  • Cliquer sur l'onglet Runtime. Dans Emplacement navigateur Web, on va choisir le navigateur approprié.
Testé sous Windows 7, Oracle Forms 10g R2.

lundi 28 juin 2010

Récupérer une table supprimée.

Il est possible qu'on peut récupérer une table effacée par la commande Drop (DROP TABLE NOMTABLE) à moins qu'on active la corbeille d'Oracle.

Pour activer, on va vérifier un paramètre dans la corbeille:
  • Connectez-vous avec sys as sysdba avec PL/SQL Developer, TOAD ou bien tout simplement l'interface texte de SQL PLUS.
  • Tapez cette commande: SHOW PARAMETER RECYCLEBIN, ce qui nous donne le résultat suivant:
NAME TYPE VALUE
--------- -------- -------
recyclebin string on

On voit bien que la corbeille est ON (ça veut dire que les objets effacés sont stockés dans cette corbeille pour les récupérer). Si le paramètre est OFF, on va faire un ALTER SYSTEM indiqué comme suit:
ALTER SYSTEM SET RECYCLEBIN = ON SCOPE=SPFILE;

Ensuite, on va faire un drop de la table employe (DROP TABLE EMPLOYE). À ce moment là, l'objet employe n'existe pas et pour récupérer cette table, on va utiliser un FLASHBACK:
FLASHBACK TABLE EMPLOYE TO BEFORE DROP;

Si on fait maintenant DESC EMPLOYE, le système va afficher la structure de la table effacée.

Afficher le code source d'un objet de la BD.

Pour afficher le code source d'un objet stocké dans la BD (procédure ou fonction), j'ai crée une procédure paramétrable qui permet de faire ce travail, mais avant ça, on doit créer une autre pour la stocker sur le schéma de la BD.

SET SERVEROUTPUT ON (important pour afficher les messages en PL/SQL)
create or replace procedure TestMessage(mes varchar2)
is
begin
dbms_output.put_line(mes);
end;

Cette procédure affiche n'importe quel message sur l'écran. On va compiler cette procédure pour créer l'objet. Ensuite, la voici la procédure aff_code_source:

CREATE OR REPLACE PROCEDURE AFF_CODE_SOURCE(NOM_OBJET IN VARCHAR2)
IS

CURSOR CUR_OBJET
IS
SELECT TEXT FROM USER_SOURCE -- SELECT POUR AFFICHER
WHERE NAME=NOM_OBJET -- LE CODE SOURCE
ORDER BY LINE;

LIG_OBJ CUR_OBJET%ROWTYPE;
INDICE NUMBER:=0;
BEGIN
OPEN CUR_OBJET;
LOOP
FETCH CUR_OBJET INTO LIG_OBJ; --RÉCUPÈRE LA LIGNE
EXIT WHEN CUR_OBJET%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(LIG_OBJ.TEXT); --AFFICHER LE CONTENU DE CHAQUE LIGNE

INDICE := INDICE+1;
END LOOP;

CLOSE CUR_OBJET;
IF INDICE=0 THEN
TestMessage(' ERREUR... LA PROCÉDURE OU LA FONCTION '||NOM_OBJET||' N''A PAS ÉTÉ CRÉE');
END IF;

END AFF_CODE_SOURCE;

Compilez cette procédure et vous verrez les résultats en exécutant la commande suivante:
EXEC AFF_CODE_SOURCE('TESTMESSAGE');

jeudi 17 juin 2010