Office: (Office 2003) Parameterübergabe beim aufruf einer Stored Procedure auf SQL-Server

cheaptrick · 10. Februar 2011

Das Problem ist leider doch noch nicht gelöst!
Zwar bekommt die SP die Daten jetzt so wie sie benötigt werden aber es werden keine Daten an VBA zurück geliefert.

Kann mir jemand sagen, wo das Problem liegen könnte?

fraeser · 10. Februar 2011

Vielleicht entlocken wir Dir doch mal den Code der sp....das könnte helfen...:-))

Josef P. · 10. Februar 2011

Hallo!

Wie weit konntest du den Fehler einschränken?
Funktioniert die SP, wenn du die identischen Parameterwerte "im Server" eingibst?

Interessehalber: Warum übergibst du die Parameterwerte eigentlich zusammengefasst in einem einzigen String-Parameter? Ändert sich die Anzahl der möglichen Parameter im Lauf der Zeit, dass du nicht mit optionalen Parametern arbeiten kannst?

mfg
Josef

Lanz Rudolf · 10. Februar 2011

Hallo
@josef
sind optionale Parameter

das was ich unter Schlüsselwort Parameter verstehe ?
z.B. :
DoCmd.OpenForm WhereCondition:=stLinkCriteria, FormName:=stDocName, OpenArgs:="Mut"

gegenüber Positions Parameter
DoCmd.OpenForm stFormcName, , , stLinkCriteria, , , "Mut"

geht mir nur um den Begriff "optionale Parameter" *Smilie

Josef P. · 10. Februar 2011

\@Ruedi:
Ich meinte damit optionale Parameter in der gespeicherten Prozedur am MSSQL-Server. (Das Prinzip ist aber wie in VBA.)

Beispiel:
Code:

create procedure dbo.MyStoredProcedure (
@Param1 int,
@Param2 int = 123
)
AS
BEGIN
...
END
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Param1 wäre eine Parameter, der übergeben werden muss.
Param2 kann beim Aufruf der Prozedur ausgelassen werden - dann wird 123 verwendet.

Aufruf-Beispiele
Code:

exec dbo.MyStoredProcedure 1, 2
exec dbo.MyStoredProcedure @Param1 = 1, @Param2 = 2
exec dbo.MyStoredProcedure 1
exec dbo.MyStoredProcedure @Param1 = 1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

cheaptrick · 7. Januar 2021

von Josef P.

Hallo!

Wie weit konntest du den Fehler einschränken?
Funktioniert die SP, wenn du die identischen Parameterwerte "im Server" eingibst?

Interessehalber: Warum übergibst du die Parameterwerte eigentlich zusammengefasst in einem einzigen String-Parameter? Ändert sich die Anzahl der möglichen Parameter im Lauf der Zeit, dass du nicht mit optionalen Parametern arbeiten kannst?

mfg
Josef
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, die SP funktioniert, wenn ich sie mit identischen Parametern auf dem Server starte.

Ja, die Anzahl der möglichen Parameter kann sich verändern und das "Zerlegen" des Parameters in die einzelnen Parameter funktioniert ja auch einwandfrei.

Ich hab da jetzt noch ein wenig weiter gebastelt und folgendes merkwürdiges Verhalten:
Ich habe eine Kopie der SP darauf reduziert, dass sie einfach nur einen festen Wert zurück gibt, der kommt dann auch im VBA wieder an.
Die Rückgaben beider SP sehen, bis auf das was zurück gegeben wird, identisch aus.
Macht es einen Unterschied, ob ich einen fixen Wert zurück gebe oder einen einzelnen mit Select ermittelten Wert?

Das hier funktioniert:
Code:

USE [My_DB]
GO
/****** Object: StoredProcedure [dbo].[my_SP1] Script Date: 02/11/2011 09:47:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:
-- Create date:
-- Description:
-- =============================================
ALTER PROCEDURE [dbo].[my_SP1] @@Params char(800), @@AusgabeWert char(10) = '' OUTPUT
AS
BEGIN

SET @@AusgabeWert = 'Nix gefunden'
SELECT @@AusgabeWert

END
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und das hier nicht (abgespeckt):
Code:

USE [My_DB]
GO
/****** Object: StoredProcedure [dbo].[MY_SP] Script Date: 02/11/2011 09:40:46 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:
-- Create date:
-- Description:
-- =============================================
ALTER PROCEDURE [dbo].[MY_SP] @@Params char(800), @@AusgabeWert char(10) = '' OUTPUT
AS
BEGIN
DECLARE ...

SET @AusgabeWert = 'Nix gefunden'
--SELECT @@AusgabeWert
:
:

WHILE ... > 0
BEGIN
:
:
END
:
:
:
If ... = 1
BEGIN
:
:
WHILE ... >= 0
BEGIN
:
:

IF @SFields ''
BEGIN
:
:
WHILE ... > ...
BEGIN
:
:
IF ... is not NULL
BEGIN
SET @@AusgabeWert = @AusgabeWert
SELECT @@AusgabeWert AS N'@@AusgabeWert1'
BREAK
END
IF ... 0
CONTINUE
ELSE
BREAK
END
ELSE
BREAK
END
END
END
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wobei der @@Ausgabewert in der problematischen Variante das Ergebnis eine SQL-Abfrage ist, die immer nur einen Wert zurück liefert.

Josef P. · 10. Februar 2011

Hallo!

Greifst du per VBA auf das Select-Ergebnis zu oder verwendest du den Rückgabeparameter?
Es kommt auch ausschließlich nur zu einer einzigen Select-Rückgabe in der SP?

Würde die SP mit den vielen IFs funktionieren, wenn du im letzten IF
statt
Code:

SET @@AusgabeWert = @AusgabeWert
SELECT @@AusgabeWert AS N'@@AusgabeWert1'
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

eine Konstante verwenden würdest?
Code:

SET @@AusgabeWert = 'abc'
SELECT @@AusgabeWert AS N'@@AusgabeWert1'
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

BTW: Ich schreibe bei SPs, deren "Select-Rückgabe" ich in VBA verwende, gerne ein "SET NOCOUNT ON".

mfg
Josef

cheaptrick · 11. Februar 2011

Hallo Josef,

Ich hab die Ursache des Problems wohl gefunden.
In der SP standen noch einige PRINT-Anweisungen und es wurde ein INSERT INTO-SQL-Befehl ausgeführt. Beide Befehle sorgen wohl dafür dass die SP nix zurück liefert.

.... jedenfalls wenn da kein

Code:

SET NOCOUNT ON;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

drin steht.

Gracias!

Josef P. · 11. Februar 2011

Hallo!

Ich hab die Ursache des Problems wohl gefunden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... die besonders viel mit dem Thema "Parameterübergabe" dieses Threads zu tun hat. *wink.gif* *Smilie

mfg
Josef

cheaptrick · 11. Februar 2011

Erst wenn man die Ursache kennt, weiß man womit es was zu tun hat *cool.gif*

Wobei mir jetzt noch nicht klar ist, weshalb das Ergebnis nicht in VBA angekommen ist.
Im Grunde kenne ich die Ursache dann doch nicht so recht.

Josef P. · 11. Februar 2011

Hallo!

Ohne NOCOUNT werden mehrere Recordsets zurückgegeben.

Beispiel:
MSSQL:
Code:

create procedure dbo.spTestInsertSelect
AS
BEGIN

declare @T table (id int identity(1,1), Z int)
insert into @T (Z) values (5), (6)

declare @rueckgabe int
SET @rueckgabe = SCOPE_IDENTITY()

select @rueckgabe

END
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA:
Code:

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset, rst2 As ADODB.Recordset
Dim RecordsAffected As Long

Set cnn = CurrentConnection 'passende ADODB.Connection einstellen
Set rst = cnn.Execute("exec dbo.spTestInsertSelect", RecordsAffected)
Debug.Print rst.State, RecordsAffected

Set rst2 = rst.NextRecordset(RecordsAffected)
Debug.Print rst2.State, RecordsAffected

Debug.Print "Rückgabe:", rst2.Fields(0).value
rst2.Close
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

cheaptrick · 11. Februar 2011

Muchisimas gracias!

Josef P. · 11. Februar 2011

Das könnte sogar praktisch sein, wenn du z. B. nur eine SP aufrufen willst, aber mehrere Recordsets daraus haben willst.

Code:

ALTER procedure [dbo].[spTestInsertSelect]
AS
BEGIN

declare @T table (id int identity(1,1), Z int)
insert into @T (Z) values (5), (6)

declare @rueckgabe int
SET @rueckgabe = SCOPE_IDENTITY()

select @rueckgabe

select Max(Z) from @T

END
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim RecordsAffected As Long

Set cnn = CurrentConnection 'passende ADODB.Connection einstellen
Set rst = cnn.Execute("exec dbo.spTestInsertSelect", RecordsAffected)
Debug.Print rst.State, RecordsAffected
' = Insert-Anweisung

Set rst = rst.NextRecordset(RecordsAffected)
Debug.Print rst.State, RecordsAffected
' = 1. Select
Debug.Print "Rückgabe 1:", rst.Fields(0).value

Set rst = rst.NextRecordset(RecordsAffected)
Debug.Print rst.State, RecordsAffected
' = 2. Select
Debug.Print "Rückgabe 2:", rst.Fields(0).value
rst.Close
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

Office: (Office 2003) Parameterübergabe beim aufruf einer Stored Procedure auf SQL-Server

Parameterübergabe beim aufruf einer Stored Procedure auf SQL-Server

Parameterübergabe beim aufruf einer Stored Procedure auf SQL-Server

Parameterübergabe beim aufruf einer Stored Procedure auf SQL-Server

Parameterübergabe beim aufruf einer Stored Procedure auf SQL-Server

Parameterübergabe beim aufruf einer Stored Procedure auf SQL-Server

Parameterübergabe beim aufruf einer Stored Procedure auf SQL-Server - Similar Threads - Parameterübergabe aufruf Stored

Aufrufen Datei aus SharePoint per VBA

Spalte "Antworten" und "Aufrufe" im Forum vertauscht!

speichern unter per vba aufrufen

Automatisches Starten von Video oder Audio

aus Access Word-Makro mit Parameterübergabe starten

Von einem Register ein Formular im zweiten Register aufrufen

MS Project - API Aufrufe