Curseur / DBLink

Bonjour :)

j'ai la fonction ci-dessous qui teste l'existence d'un DB_LINK.

Ma première question est : qu'est-ce qu'un DB_LINK exactement ? (De ce que j'en sais actuellement c'est plus ou moins une chaîne de connexion à une base ?)

Ma seconde est : si le DB_LINK est trouvé, la fonction sort avec TRUE mais le CURSOR n'est pas fermé. Est-ce que si je ferme le curseur après le FETCH je peux encore tester le %FOUND ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

FUNCTION FB_TST_DBLINK (P_DBLINK ZSYS.A_DBK%TYPE) RETURN BOOLEAN IS   CURSOR cur_dblink (p_dblink in zsys.a_dbk%type) IS SELECT sysdate from dual@p_dblink;   rec_dblink cur_dblink%rowtype;   BEGIN   OPEN cur_dblink(p_dblink);   FETCH cur_dblink INTO rec_dblink; IF cur_dblink%found THEN RETURN TRUE; END IF; CLOSE cur_dblink;   RETURN FALSE;   EXCEPTION WHEN OTHERS pck_g_mes.pb_cre_mes_exc ('fb_tst_dblink'); END FB_TST_DBLINK;

---

Merci.

Salut...
il me semble que tu n'as pas besoin d'un curseur pour ça...

essaye ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

create or replace function TestDBLink (pv_DBLink IN Varchar2) Return Boolean Is dTemp Date ; DBLNotExists Exception ; pragma exception_init (DBLNotExists, -2019) ; Begin Execute immediate 'Select sysdate from dual@'||pv_DBLink into dTemp ;   return True ;   Exception When DBLNotExists Then return False ; End ;

---

EDIT :
j'ai modifié mon code pour catcher l'exception ora-02019 (DBLink n'existe pas)

Merci.

Mais chez mon client les normes de dév impose le curseur :roll:

Donc mes questions restent en cours, mais je note ta solution :!:

Alors pour ta première question :
OUI un DBLink est une chaîne de connexion stockées en base qui permet de faire communiquer 2 bases de données. ATTENTION, comme la chaîne de connexion est unique pour un DBLink, tu iras TOUJOURS pointer sur le même schéma de la base distante lorsque tu te réfère au même DBLink.

Pour ta deuxième question :
NON tu ne peux plus faire appel à %Found sur un curseur fermé.
par contre comme tu fais un IF pour tester ta variable et renvoyer True, tu peux simplement mettre ensuite une clause else avec le return False.
et comme là tu as déjà fait ton test, tu peux fermer ton curseur AVANT le Return.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

... OPEN cur_dblink(p_dblink);   FETCH cur_dblink INTO rec_dblink; IF cur_dblink%found THEN CLOSE cur_dblink; RETURN TRUE; ELSE CLOSE cur_dblink; RETURN False ; END IF; ...

---

Nickel ! Merci. Bon aprem.

Ré-ouverture.

Dans mon code ci-dessus,

Code:

---

zsys.a_dbk%type

---

est VARCHAR2.

Si je laisse mon tel quel j'ai l'erreur de compile

Citation:

---

ORA-04054 : lien base de données P_DBLINK inexistant.

---

de même si je déclare explicitement p_dblink en varchar2.

Or si je met en dur :

Code:

---

SELECT sysdate from dual@"maBase";

---

dans le curseur, je n'ai plus l'erreur.

Ma requête refuse de recevoir un paramètre, après le @, est-ce normal :?:

Merci.

Re...
oui c'est normal, parce que pour intervenir au niveau de la structure du Select, ici la clause FROM, tu dois faire du SQL dynamique.

tu peux t'inspirer de ma première solution... tu verras que j'ai justement dû utiliser le SQL dynamique (Execute Immediate) pour pouvoir "jouer" avec les DB_Link.

EDIT :
voici un "mix" de ma première proposition, mais AVEC un curseur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

create or replace function TestDBLink (pv_DBLink IN Varchar2) Return Boolean Is dTemp Date ; DBLNotExists Exception ; pragma exception_init (DBLNotExists, -2019) ;   vSQL Varchar2(4000); i sys_refcursor ;   Begin   vSQL := 'Select sysdate from dual@'||pv_DBLink ;   Open i for vSQL ; Fetch i into dTemp ; Close i ;   return True ;   Exception When DBLNotExists Then Close i ; return False ; End ;

---

Code:

---

sys_refcursor

---

Je suis sur une base 8i :cry: (dsl j'avais pas précisé)

bah allez je prend ta première solution.

Merci :!: