Discussion :

[rophi]

Tout d'abord bonjour!

voici ma procédure stockée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
ALTER PROCEDURE [dbo].[Fplusieursfournisseurs] (@lib varchar(50), 
										 @id int output, 
										 @ville varchar(50) output, 
									     @telephone varchar(50) output)
as
begin
declare C1 cursor for
select FOURNISSEUR_ID, FOURNISSEUR_VILLE, FOURNISSEUR_TELEPHONE
from fournisseur
where FOURNISSEUR_LIBELLE = @lib
 
open C1;
 
FETCH C1 INTO @id, @ville, @telephone
 
WHILE @@FETCH_STATUS = 0
BEGIN
	FETCH next from C1 INTO @id, @ville, @telephone
END
 
close C1
deallocate C1;
 
end

J'essai sous Delphi grâce à une ADOStoredProc et à une Datasource, de récupérer les différents tuples sortant de ma procédure stockée dans un DBCtrlGrid mais cela ne fonctionne pas!

Voila pourtant le code sous Delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Fplusieursfournisseurs.Parameters[1].Value:=label_nom.Caption;
Fplusieursfournisseurs.ExecProc;

La Datasource est bien reliée à la procédure, ainsi que le CDCtrlGrid est bien relié à la Datasource. Mais impossible de trouver des Datafield pour un DBText!
L'erreur produite lorsque je cherche un Datafield :

Fplusieursfournisseurs: CommandText ne renvoie pas un ensemble de résultats

Je pense que cette erreur est logique venant d'une procédure stockée mais je ne connais pas d'alternative (étant débutant en Delphi/SQL)

J'ai pensé à utilisé une table temporaire, mais c'est du bidouillage pour moi, j'aurai bien aimé trouver une solution...

Merci!

[Cl@udius]

Tout d'abord bonjour!

Bonjour à toi et bienvenue sur DVP

Ceci devrait t'intéresser:

Conseil :
Si une application ne s'intéresse qu'à l'ensemble de résultats renvoyé par une procédure stockée,appelez la méthode Open du composant TADOStoredProc ou affectez la valeur true à sa propriété Active.

Bref fais un Open et non ExecProc.

@+ Claudius

[rophi]

Merci de ta réponse Cl@udius mais j'ai toujours le même message d'erreur qui s'affiche:

Fplusieursfournisseurs: CommandText ne renvoie pas un ensemble de résultats

Apparement rien ne ressort de la requête...
J'ai bien mis Open à la place d'ExecProc et ce message d'erreur s'affiche au lancement de la requête lorsque je lance l'application

[SergioMaster]

il ne faudrait pas plutôt faire quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM LAPROCEDURE

et avoir un SUSPEND dans cette même procedure

j'avoue ne pas avoir lu la dite procedure et ne pas avoir du temps pour la lire serieusement mais c'est le truc classique d'une procedure renvoyant un ensemble d'enregistrement

[rophi]

SergioMaster bonjour!

Je ne veut faire que des procédures stockées.

J'ai beau me creuser la tête je ne trouve pas de solution

[edam]

avoir un SUSPEND dans cette même procedure

[rophi]

Salut Edam!

J'ai essayé d'en mettre un de SUSPEND! mais le résultat est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Msg 102, Level 15, State 1, Procedure Fplusieursfournisseurs, Line 21
Incorrect syntax near 'SUSPEND'.

[phoenix38]

Bonjour,
Effectivement, un suspend cela ne marche que en Interbase. En SQL Server (apparement vu ton code), créer une vue serait une bonne solution.
Sinon, as-tu essayé de faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM Fplusieursfournisseurs @lib

[rophi]

Bonjour phoenix38 et merci de ta réponse!

Je vais essayer ce que tu me proposes!

Je ne sais pas trop ce qu'est une vue, je pensais aussi à faire une table temporaire afin d'y accéder ensuite sous delphi mais comme je l'ai dit je ne suis qu'un débutant.
Et les tuto. sur les procédures stockées ne sont pas nombreux ni trés complets surtout pour les récupérer sous Delphi...

Merci à tous de votre aide

[edam]

à voir