Hente return value fra en Stored Procedure

Jeg plejer at gøre det gennem et standard record med Set RS = Conn.Execute(\"MyProc \'Param1\', \'Param2\')

Her er et par eksempler på hvordan MyProc kunne se ud for at den returnerer et record/recordset.

CREATE PROCEDURE MyProc @param1 varchar(64) AS
-- Her returneres enten indholdet af @RetNoItems eller @RetItems.
-- I eks. ASP kan retur værdien hentes med RS(\"vcRetVal\")
  DECLARE @CountItems int;
  DECLARE @RetNoItems varchar(32);
  DECLARE @RetItems varchar(32);
  SET @RetNoItems = \'Der blev ikke fundet en disse\';
  SET @RetItems = \'Der blev vidst fundet flere stk.\';
  SELECT @CountItems = COUNT(DISTINCT ID) FROM tbItems WHERE vcType = @param1;
  IF @CountItems = 0
  BEGIN
    SELECT @RetNoItems AS vcRetVal;
  END
  ELSE
  BEGIN
    SELECT @RetItems AS vcRetval;
  END
GO

CREATE PROCEDURE MyProc @param1 varchar(64) AS
-- Her returneres et reelt recordset
  SELECT * FROM tbItems WHERE vcType = @param1;
GO

Ja, nemt nok at hente et recordset, men hvis man bare skal bruge en statusværdi for om operationen er gået godt/skidt, så er return values den \"rigtige\" måde at gøre det på.

Man kunne selvfølgelig bare \"returnere\" et recordset med statusværdien, men jeg tænkte på om man ikke kan få hentet \"return value\" uden at skabe det ekstra Command/Recordset objekt?

/SørenS.

Det kan du sagtens gøre på samme måde, men det er dog kun en \"kosmetisk\" løsning.

Returnerer du eks. en værdi gennem en SELECT @retval as RetVal; i din stored proceduren, kan du hente værdien i ASP gennem:

Response.Write(Conn.Execute(\"MyProc \'param1\', \'param2\')(\"RetVal\"))

Hmmmmm, det ser interessant ud....

Men vil det ikke alligevel skabe et recordset objekt?

Hvis ja, så får man lidt problemer med at nedlægge det manuelt lidt senere, da man ikke har gemt en reference til det.

/SørenS.

Jo det er en ren kosmetisk løsning og der bliver instantieret et recordset hvilket er et problem på eks. en NT/4 hvorimod det ikke betyder det store på en NT/2000 med mindre command/connection-timeout for connection er sat til ekstraordinært højt.

Nu vi er ved det, så skulle recordset-objektet gerne slette sig selv så snart kommandoen er udført, da der jo ikke er nogen reference til det. Den gør det i hvert tilfælde på NT/2000, men jeg har ikke testet det på NT4

Eh, giver RETURN 10 ikke en returværdi som kan bruges direkte ?
Response.Write(Conn.Execute(\"MyProc \'param1\'))

CREATE PROCEDURE MyProc @param1 varchar(64) AS
-- Her returneres et reelt recordset
  IF @param1 = \'no habla espanol\'
  BEGIN
    RETURN 1
  END
  ELSE
  BEGIN
    RETURN 0
  END
GO

\"A default property was not found for the object\", er meldingen hvis man prøver ovenstående... Det ville næsten også være for nemt ;-)

En gammel kollega har nævnt at der vistnok findes en udokumenteret feature der skulle kunne bruges, som er beskrevet i en bog:

Davis Sussman\'s bog ADO 2.6 Programmeres Reference (WROX: ISBN: 186100463x - http://www.wrox.com/Books/Book_Details.asp?sub_section=1&isbn=186100463x&subject=ADO&subject_id=36)

Desværre er det IKKE en af dem der står på min reol, og jeg er ikke blevet desperat nok til at gå ud og købe den, hehe.

/SørenS

Okay, du gør følgende.

Tag en ekstre lang jakke og et fake-mustage (med briller selvfølgeligt) på. Gå så ned i den nærmeste boghandel og lad som om du leder efter en bestemt bog imens du i \"Davis Sussman\'s bog ADO 2.6 Programmeres Reference\" bladrer dig frem til løsningen.
Hvis en af ekspedienterne fatter mistanke, så binder du ham/hende med dit fake-mustage og stikker af med den side fra bogen hvor løsningen står.

Hvis det ikke er 15 point værd, så ved jeg ikke hvad der er ;o)

En anden mulighed er selvfølgeligt at spørge din kollega hvordan man gør - hvis han ellers har bogen... men man skal jo ikke altid springe over hvor gæret er lavest, så jeg holder på at du forbereder dig på den første mulighed.

Damn jeg keder mig idag ;)

ROFL!

Bare rolig, der skal nok falde point af ;-)

Venter lige til imorgen med at lukke ?, det ku\' jo være der var nogen derude der sad med GULD løsningen.

I mellemtiden vil jeg ud og lede efter et fake mustage....

/SørenS

>> det ku\' jo være der var nogen derude der sad med GULD løsningen.

Du skal blot lede efter nogen der går med deres testikler i en trillebør, pga vægten :)

ROFLer rundt på gulvet og LOLer af grin...

Nå, ingen fandt en OK løsning, så pointene går til winkill for den gode joke ;-)

/SørenS

Takker, så er det da min første \"gode joke\" ever ;o)