procédure stockée Oracle depuis VB.net

Version imprimable

Bonjour,
j'ai un problème lorsque j'appelle une procédure stockée depuis mon code VB.
Ma procédure stockée est la suivante :
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 create or replace PROCEDURE SELECTABONNES ( nom XABO.NOMABO%type, prenom XABO.PNOMABO%type, telephone XABO.TELABO%type, libelleService XSCE.LBLSCE%type ) As abo XABO.NUMABO%type; service XABO.SCEABO%type := TAX.SELECTSERVICE(libelleService); BEGIN SELECT NUMABO INTO abo FROM XABO WHERE NOMABO = nom AND PNOMABO = prenom AND SCEABO = service; EXCEPTION WHEN no_data_found THEN BEGIN INSERT INTO XABO (NUMABO, NOMABO, PNOMABO, TELABO, SCEABO) VALUES (sequenceabo.nextval, nom, prenom, telephone, service ); END; END SELECTABONNES;
Elle fait appel à une fonction que j'ai créé qui se nomme SELECTSERVICE.

Lorsque je suis sous Oracle, elle fonctionne (la compilation ne sort pas d'erreur :yaisse2:

Mais lorsque je lance la procédure stockée depuis mon programme VB, il me sort l'erreur suivante

Citation:

ORA-06550: line 1, column 7:
PLS-00221: 'SELECTSITE' is not a procedure or is undefined
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored

Je ne sais pas pourquoi il ne veut pas la prendre. Je pense que certains ont déjà dû avoir l'erreur, aidez moi siouplè

merci

09/03/2007, 11h21
Yorglaa

Salut,
il semble que ta fonction SELECTSERVICE se trouve dans le package TAX

est-ce que ce package est dans le même schéma ?

si oui, est-ce le schéma que tu utilises pour te connecter depuis ton appli VB ?
09/03/2007, 11h27
marcusien

oui, tax en fait c'est la connexion donc.
Tout est dans la meme base, c'est ca que je ne comprends pas.
c'est quoi que tu appelles schéma? pas de schéma sous oracle 8O . J'ai mes tables, mes séquences, mes fonctions, procédures...mais pas de schéma

est-ce qu'il est nécessaire, quand je créé mes procédures et fonctions, que je mettes "TAX." avant le nom de chaque procédure?
09/03/2007, 11h39
Yorglaa

ok, alors essayes d'enlexer TAX avant SelectService.

En fait un schéma = un user.
dans une base Oracle, chaque user peut posséder ses propres tables, séquences, index, procédures, etc...

en général on a un (ou plusieurs) schémas "maîtres" ou "applicatifs" qui contiennent les objets et les données relatives à une application, puis des users qui n'ont pas d'objets à eux, mais des droits sur les objets du schéma applicatifs (droit de Select sur certaines tables, droit d'exécution certaines procédures, etc...)...

comme ça, chacun se connecte avec son propre username/password, mais accède aux objets centralisés dans le schéma applicatif...

bien sûr tu peux avoir plusieurs schémas applicatifs dans une base, et ainsi gérer les objets et les données de plusieurs applications distinctes dans une seule base de donnée.
09/03/2007, 11h56
marcusien

Merci bien pour tes explications sur le fonctionnement des users ^^. J'en sais un peu plus sur le fonctionnement

J'ai essayer d'enlever TAX avant l'appel de la fonction, j'obtiens exactement la même erreur.
J'ai éxécuteéla procédure depuis Oracle SQL Developper (l'outil que j'utilise), et ça fonctionne, mais depuis le programme VB, toujours pareil comme je viens de le dire :aie: :aie: :aie:
09/03/2007, 12h25
Yorglaa

je viens de me rendre compte d'une chose :

tu as une erreur qui te parles d'une procédure SELECTSITE

Citation:

PLS-00221: 'SELECTSITE' is not a procedure or is undefined

alors que nous on regarde la procédure SELECTABONNES, qui appelle SELECTSERVICE...

y a pas quelque chose qui coince ? tu appelles bien la bonne procédure dans ton code VB ?

bien, pour que tu aies une bonne partie de mon code, je te donne les parties concernant cette procédure
le VB :

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
28
29
30
31
32
33
34
Private Sub selectAbonnesProcStock(ByVal nom As String, ByVal prenom As _
String, ByVal telephone As String, ByVal libelleService As String)
 
'-------------------------------------------------------------------------
'-----Connexion à la base de données Oracle des statistiques
'-------------------------------------------------------------------------
    Dim cnx As New OracleConnection()
    cnx.ConnectionString = cnxTaxProcStock
    cnx.Open()
 
'-------------------------------------------------------------------------
'-----Appel de la procédure stockée avec passage des paramètres
'-------------------------------------------------------------------------
    Dim command As New OracleCommand()
    command.Connection = cnx
    command.CommandType = CommandType.StoredProcedure
    command.CommandText = "SELECTABONNES"
    command.Parameters.Add(New OracleParameter("nom", OracleType.VarChar))
    command.Parameters("nom").Value = nom
    command.Parameters.Add(New OracleParameter("prenom", OracleType.VarChar))
    command.Parameters("prenom").Value = prenom
    command.Parameters.Add(New OracleParameter("libelleService", OracleType.VarChar))
    command.Parameters("libelleService").Value = libelleService
    command.Parameters.Add(New OracleParameter("telephone", OracleType.VarChar))
    command.Parameters("telephone").Value = telephone
 
'-------------------------------------------------------------------------
'-----Execution de la procédure stockée
'-------------------------------------------------------------------------
    command.ExecuteNonQuery()
 
    'fermeture de la connexion
    cnx.Close()
End Sub

la procédure:

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
28
29
30
31
32
create or replace PROCEDURE SELECTABONNES
/*vérification de l'existence/insertion d'un abonné GIP dans la base*/
(
 nom XABO.NOMABO%type,
 prenom XABO.PNOMABO%type,
 telephone XABO.TELABO%type,
 libelleService XSCE.LBLSCE%type
)
As
abo XABO.NUMABO%type;
/*recherche/création du service auquel appartient l'abonné*/
service XABO.SCEABO%type := TAX.SELECTSERVICE(libelleService);
 
BEGIN
  /*recherche de l'abonné passé en parametre dans la base*/
  /*si il existe on ne fait rien*/
  SELECT NUMABO
  INTO abo
  FROM XABO 
  WHERE NOMABO = nom 
  AND PNOMABO = NVL(prenom,PNOMABO )
  AND SCEABO  = service;
EXCEPTION
  /*abonné non trouvé, on le créé*/
  WHEN no_data_found THEN
        BEGIN
        /*Insertion de l'abonné*/
          INSERT INTO XABO (NUMABO, NOMABO, PNOMABO, TELABO, SCEABO)
          VALUES (sequenceabo.nextval, nom, prenom, telephone, service );
        END; 
 
END SELECTABONNES;

et la fonction :

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
CREATE OR REPLACE
FUNCTION SELECTSERVICE (libelleService XSCE.LBLSCE%type)
RETURN XABO.SCEABO%type
AS
service XABO.SCEABO%type;
 
  BEGIN
  SELECT NUMSCE
  INTO service
  FROM XSCE 
  WHERE LBLSCE = libelleService;
  return service;
EXCEPTION
    WHEN NO_DATA_FOUND THEN
      BEGIN
 
      SELECT sequenceserv.NEXTVAL
      INTO service
      FROM DUAL;
 
      INSERT INTO XSCE (NUMSCE, LBLSCE)
      VALUES (service, libelleService);
      return service;
      /*return SELECTSERVICE(libelleService);*/
      END;
END SELECTSERVICE;

j'appelle donc ma procédure stockée SELECTABONNES avec mes parametres, et dans cette procédure stockée, j'ai besoin de récupérer l'identifiant du service auquel est affecté mon abonné. Et cet identifiant je le récupère grace à la fonction SELECTSERVICE.
EN VB, il arrive donc bien a rentrer dans ma procédure stockée, mais dès qu'il veut appeler ma fonction, eh bien l'erreur cité dans le topic apparait :aie: :cry:

09/03/2007, 13h38
davy.g

Qui est le propriétaire de ta proc et ta fonction ?

Avec quel compte Oracle te connectes-tu via ton applicatif ?
09/03/2007, 13h45
Yorglaa

Clairement je pense que nous sommes face à un problème de droit...
le username que tu utilises pour te connecter depuis ton appli VB ne connait pas tous les composants, notament la fonction SELECTSERVICE.

Qui est propriétaire de SELECTSERVICE ?
09/03/2007, 13h52
marcusien

eh bien c'est moi le propriétaire de ma fonction et de ma procédure, et également des tables car c'est avec ma connexion à moi que j'ai tout créé.

Et dans mon application VB, je me connecte avec le meme identifiant+mot de passe qu'avec Oracle SQL Developper.

en gros, si on dit que mon identifiant :marcusien et mot de passe : marcusien
avec Oracle SQL Developper, je me connecte avec Marcusien/Marcusien
j'ai créé les fonctions et procédures avec ce logiciel et cette meme connexion
dans mon VB, la connexion se fait en Marcusien/Marcusien

Après, je sais pas si il y a des droits attribués pour que je ne puisse pas lire ma fonction depuis ma procédure stockée, mais ca me parait bizarre étant donné que j'arrive à l'executer depuis Oracle SQL Developper. :cry:
09/03/2007, 13h59
davy.g

Il n'y aurait pas une déclaration de tes procs et fonctions à faire dans ton outil de développement ?
09/03/2007, 14h08
marcusien

....ben je crois pas, et de toute façon ca n'est pas lié, car moi je l'appelle en VB, il ne tient donc pas compte de l'outil qui a été utilisé.

J'ai encore retesté, la procédure et fonction fonctionne correctement, quand je fais un RUN de ma procédure stockée, elle n'a aucun mal a appelé la fonction par la suite.

je comprends rien :cry: :cry: :cry: :cry: :cry:
09/03/2007, 14h11
davy.g

Citation:

Envoyé par marcusien

....ben je crois pas, et de toute façon ca n'est pas lié, car moi je l'appelle en VB, il ne tient donc pas compte de l'outil qui a été utilisé.

Justement, ce que je te demande : n'as tu pas besoin de déclarer ta proc et ta fonction dans VB ?

Essaye peut-être une chose :
dans ta procédure SELECTABONNES, essaye de délocaliser l'affectation de "service" après le Begin...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CREATE OR REPLACE PROCEDURE SELECTABONNES
/*vérification de l'existence/insertion d'un abonné GIP dans la base*/
(
 nom XABO.NOMABO%type,
 prenom XABO.PNOMABO%type,
 telephone XABO.TELABO%type,
 libelleService XSCE.LBLSCE%type
)
AS
abo XABO.NUMABO%type;
/*recherche/création du service auquel appartient l'abonné*/
service XABO.SCEABO%type ;
 
BEGIN
    service := SELECTSERVICE(libelleService);
...

Je vous remercie de m'aider :)

j'ai trouvé une solution...apparemment c'est le commandtype de ma commande en VB qui n'aime pas être à "StoredProcedure". Je l'ai passé à "Text".
En gros voici mon VB maintenant et il marche. Alors pour le problème, il est super bizarre malgré tout

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
28
    Private Sub selectAbonnesProcStock(ByVal nom As String, ByVal prenom As String, ByVal telephone As String, ByVal libelleService As String)
 
'-----------------------------------------------------------------------------------
'-----Connexion à la base de données Oracle des statistiques
'-----------------------------------------------------------------------------------
    Dim cnx As New OracleConnection()
    cnx.ConnectionString = cnxTaxProcStock
    cnx.Open()
 
'-----------------------------------------------------------------------------------
'-----Appel de la procédure stockée
'-----------------------------------------------------------------------------------
    Dim command As New OracleCommand()
    command.Connection = cnx
    command.CommandType = CommandType.Text
    command.CommandText = "call(SELECTABONNES('" + nom + "','" + prenom + _
                            "','" + telephone + "','" + libelleService + "'))"
 
''-----------------------------------------------------------------------------------
''-----Execution de la procédure stockée
''-----------------------------------------------------------------------------------
 
    command.ExecuteNonQuery()
 
    'fermeture de la connexion
    cnx.Close()
 
End Sub

09/03/2007, 15h21
marcusien

Citation:

Envoyé par davy.g

Justement, ce que je te demande : n'as tu pas besoin de déclarer ta proc et ta fonction dans VB ?

ben...il faut juste l'appeler dans une command c'est tout
09/03/2007, 15h52
Yorglaa

Dans le mesure du possible, évite d'utiliser le system.data.Oracleclient de Microsoft !

utilise plutôt le Oracle.DataAccess de Oracle

pour ça tu peux télécharger ODT.Net chez Oracle... tu t'évitera bien des problèmes de ce type ! seul Oracle sait vraiment gérer du Oracle !
09/03/2007, 17h21
marcusien

d'accord, merci pour l'info. Le framework est bon, mais apparemment, le coup d'oracle ^^.
En meme temps c'est normal qu'il y ait plus de bug avec oracle que SQL Server dans le framework ^^

encore merci :)
09/03/2007, 20h53
tostinni

Perso pour pas me compliquer la vie j'utilise http://www.codeproject.com/vb/net/OracleSPWrapper.asp