Microsoft Access Programmierrezepte

R7.35 Stored Procedure mit Return-Value

Aufgabe

Eine Stored Procedure kann über die Return-Anweisung einfache Integer-Werte an das aufrufende Programm zurückgeben. Wie kann dieser Wert bestimmt werden?

Lösung

Definieren Sie in Ihrem VBA-Programm einen Parameter mit dem Namen Return, dem Datentyp adInteger und der Option adParamReturnValue.

Quelltext

Ausgehend von der Stored Procedure

Alter Procedure Test @Nachname VARCHAR(50)
As
DECLARE @anzahl int

SELECT
    @anzahl = Count(*)
 FROM personen
 WHERE nachname LIKE @nachname
return @anzahl

können Sie in Access den Wert wie folgt ermitteln:

Dim cmd As New ADODB.Command Dim param1 As ADODB.Parameter cmd.CommandType = adCmdStoredProc cmd.CommandText = "Test" cmd.ActiveConnection = CurrentProject.Connection cmd.Parameters.Append ...