Recordsets sind zentrale Bestandteile beim Zugriff auf Daten mit ADODB. Sie bieten umfangreiche Funktionen zur Navigation, Bearbeitung, Filterung und Analyse von Daten. In diesem Artikel zeigen wir eine vollständige Übersicht aller Eigenschaften und Methoden des Recordset-Objekts und erläutern diese jeweils ausführlich mit praktischen Beispielen. Besonderes Augenmerk legen wir auf die Ereignisse eines Recordsetes. Im Gegensatz zum DAO-Recordset bietet das ADODB-Recordset nämlich die Möglichkeit, auf verschiedene Ereignisse zu reagieren – beispielsweise auf Änderungen im Datensatz.<\/b><\/p>\n
Beispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels findest Du in der Beispieldatenbank ADODB_GespeicherteProzedurenAusfuehren.accdb<\/b>.<\/p>\nAnwendungszweck für die vorgestellten Beispiele<\/h2>\n
Die einfachste Möglichkeit, Daten aus Tabellen einer SQL Server-Datenbank in Access anzuzeigen und zu bearbeiten ist die Verwendung von Tabellenverknüpfungen per ODBC.<\/p>\n
Diese kann man einfach als Datensatzquelle von Formularen, Berichten oder Steuerelementen angeben – genau wie bei herkömmlichen Access-Tabellen.<\/p>\n
Manchmal ist jedoch eine ungebundene Darstellung gewünscht, beispielsweise weil man aus Sicherheitsgründen keine Tabellenverknüpfungen im Frontend verfügbar machen möchte, weil diese einfach ausgelesen werden können.<\/p>\n
Für diesen Fall bietet es sich an, die Daten auf SQL Server-Seite per gespeicherter Prozedur bereitzustellen und diese per ADODB-Recordset in Formularen und Steuerelementen anzuzeigen.<\/p>\n
Für die Anzeige etwa der Daten eines Mitarbeiters könnte man ein solches Recordset mit ADODB per Zugriff auf eine entsprechende gespeicherte Prozedur füllen und die Daten der einzelnen Felder in ungebundenen Steuerelementen anzeigen.<\/p>\n
Möchte man diese wieder speichern, verwendet man eine entsprechende gespeicherte Prozedur, welche die per Parameter übergebenen Daten über eine UPDATE<\/b>-Anweisung in der Tabelle im SQL Server speichert.<\/p>\n
Das Gleiche gilt für neu angelegte Datensätze, wobei man hier eine INSERT INTO<\/b>-Anweisung nutzt. Und mit DELETE <\/b>können wir einen angegebenen Datensatz auch wieder löschen.<\/p>\n
Die nachfolgenden Beispiele zeigen, wie die gespeicherten Prozeduren aufgebaut sein müssen und wie wir diese per VBA und ADODB nutzen können.<\/p>\n
Um die Beispiele dieses Artikels auszuprobieren, benötigst Du eine SQL-Server-Datenbank mit einigen Tabellen und den entsprechenden gespeicherten Prozeduren. Im Modul mdlSQLServerDB<\/b> findest Du den Code, den Du im SQL Server Management Studio ausführen kannst, um die Tabellen mit Beispieldaten und die gespeicherten Prozeduren anlegen kannst.<\/p>\n
Dazu gehst Du wie folgt vor:<\/p>\n
![\"Die](\"..\/fileadmin\/_temp_\/2026_03\/pic_503_001.png\")
<\/p>\n
Bild 1: Die SQL Server-Datenbank mit den angelegten Objekten<\/span><\/b><\/p>\n<\/ul>\n Das Datenmodell ist schnell erklärt: Die Tabelle tblMitarbeiter <\/b>ist die Haupttabelle.<\/p>\n Sie ist über das Feld AbteilungID <\/b>mit der Tabelle tblAbteilungen <\/b>verknüpft.<\/p>\n Da wir in allen VBA-Prozeduren auf den gleichen Server und die gleiche Datenbank zugreifen wollen, definieren wir diese als Konstanten:<\/p>\n Diese müssen an die jeweiligen Gegebenheiten angepasst werden.<\/p>\n Es gibt vier verschiedene Arten von gespeicherten Prozeduren:<\/p>\n In diesem Beispiel wollen wir direkt mit einer gespeicherten Prozedur einsteigen, mit der wir einen oder alle Einträge der Tabelle tblMitarbeiter <\/b>ermitteln. Die gespeicherte Prozedur heißt spMitarbeiterSelectNachMitarbeiterID<\/b> und ist in Listing 1 abgebildet.<\/p>\n Listing 1: Gespeicherte Prozedur zum Ermitteln von Mitarbeitern<\/span><\/b><\/p>\n Sie nimmt den Parameter @MitarbeiterID <\/b>entgegen und wertet diesen in der WHERE<\/b>-Klausel aus.<\/p>\n Hier verwenden wir einen Trick, um sicherzustellen, dass die gespeicherte Prozedur auf zwei Arten arbeitet:<\/p>\n Wie können wir das in einer gespeicherten Prozedur berücksichtigen? Indem wir den Parameter @MitarbeiterID <\/b>als optionalen Parameter definieren, der als Standardwert NULL <\/b>erhält.<\/p>\n Diesen werten wir in der WHERE<\/b>-Klausel so aus, dass wir prüfen, ob entweder @MitarbeiterID <\/b>gleich NULL <\/b>ist oder der Wert des Feldes MitarbeiterID <\/b>gleich @MitarbeiterID <\/b>ist.<\/p>\n Wird kein Parameter übergeben, trifft für jeden Datensatz die Bedingung @MitarbeiterID IS NULL <\/b>zu und alle Datensätze zurückgegeben. Ist @MitarbeiterID <\/b>nicht NULL<\/b>, wird nur der Datensatz zurückgegeben, dessen Wert im Feld MitarbeiterID <\/b>dem Wert aus @MitarbeiterID <\/b>entspricht.<\/p>\n Um die gespeicherte Prozedur spMitarbeiterSelectNachMitarbeiterID<\/b> per ADODB aufzurufen, sieht der Code wie in Listing 2 aus. Zunächst wird eine Verbindung zur SQL-Server-Datenbank aufgebaut, indem ein neues ADODB.Connection<\/b>-Objekt erstellt und mit dem Verbindungsstring geöffnet wird.<\/p>\n Listing 2: Aufruf der gespeicherten Prozedur zum Ermitteln aller Mitarbeiter<\/span><\/b><\/p>\n Anschließend wird ein ADODB.Command<\/b>-Objekt erstellt, dem die Verbindung, der Name der gespeicherten Prozedur sowie der Befehlstyp adCmdStoredProc<\/b> zugewiesen werden. Der Befehlstyp teilt ADODB mit, dass es sich um eine gespeicherte Prozedur handelt und nicht etwa um eine direkte SQL-Anweisung.<\/p>\n Danach wird ein ADODB.Recordset<\/b>-Objekt erstellt. Die Eigenschaft CursorLocation<\/b> wird auf adUseClient<\/b> gesetzt, was bedeutet, dass die Daten vollständig auf den Client übertragen werden – dies ist notwendig, damit die Eigenschaft RecordCount<\/b> die korrekte Anzahl der Datensätze liefert. Mit adOpenStatic<\/b> und adLockOptimistic<\/b> wird das Recordset schließlich geöffnet.<\/p>\n Anschließend kann die Anzahl der zurückgegebenen Datensätze über RecordCount<\/b> ausgegeben und die Datensätze in einer Schleife durchlaufen werden.<\/p>\n Am Ende werden Recordset und Verbindung sauber geschlossen und die Objektvariablen auf Nothing<\/b> gesetzt, um den Speicher freizugeben.<\/p>\n Die Prozedur Beispiel_Select_NachMitarbeiterID<\/b> in Listing 3 zeigt, wie der Aufruf mit einem konkreten Parameter funktioniert.<\/p>\n Listing 3: Aufruf der gespeicherten Prozedur zum Ermitteln eines Mitarbeiters<\/span><\/b><\/p>\n Der Aufbau ist identisch mit dem vorherigen Beispiel – Verbindung öffnen, Command<\/b>-Objekt konfigurieren – mit einem wesentlichen Unterschied:<\/p>\n Vor dem Öffnen des Recordsets wird der Parameter @MitarbeiterID<\/b> mit dem gewünschten Wert übergeben, um nach diesem zu filtern.<\/p>\n In diesem Beispiel ist das der Wert 1<\/b>, der in der Variablen lngMitarbeiterID<\/b> gespeichert ist.<\/p>\n Um einen Parameter zu übergeben, deklarieren wir zuvor eine Variable namens prm <\/b>mit dem Datentyp Parameter<\/b>. Den Parameter erstellen wir mit der Funktion CreateParameter<\/b>. Dieser übergeben wir die folgenden Parameter:<\/p>\n Da die gespeicherte Prozedur den Parameter als optional mit dem Standardwert NULL <\/b>definiert hat, liefert sie ohne Parameter alle Datensätze der Tabelle zurück. Wird hingegen ein konkreter Wert übergeben, schränkt die WHERE<\/b>-Klausel das Ergebnis auf genau den Datensatz mit der entsprechenden MitarbeiterID<\/b> ein. Das Recordset enthält in diesem Fall also genau einen Datensatz, sofern ein Mitarbeiter mit dieser ID existiert.<\/p>\n Wie im vorherigen Beispiel wird wieder die Anzahl der zurückgelieferten Datensätze ausgegeben. Außerdem geben wir den Nachnamen aller Datensätze aus.<\/p>\n Die hier statisch gehaltene Prozedur Beispiel_Select_NachMitarbeiterID <\/b>können wir nun beispielsweise in eine Funktion umwandeln, der wir die Mitarbeiter-ID des zu ermittelnden Datensatzes übergeben und die das Recordset mit dem Ergebnis als Funktionswert zurückliefert.<\/p>\n Damit kommen wir zu den gespeicherten Prozeduren zum Manipulieren der vorhandenen Daten und wir starten mit dem Hinzufügen eines Datensatzes.<\/p>\n Die gespeicherte Prozedur spMitarbeiterInsert <\/b>legt einen neuen Mitarbeiter in der Tabelle tblMitarbeiter <\/b>an. In der Anweisung zum Erstellen dieser Prozedur aus Listing 4 definieren wir zunächst alle Parameter, mit denen wir die Daten für den neuen Datensatz übergeben wollen.<\/p>\n Listing 4: Gespeicherte Prozedur zum Hinzufügen eines Mitarbeiters<\/span><\/b><\/p>\n Die Parameter werden jeweils nach dem Namen des Zielfeldes mit führendem @-Zeichen benannt, also etwa @AbteilungID<\/b>, @Vorname <\/b>oder @Nachname<\/b>.<\/p>\n Außerdem geben wir jeweils den Datentyp so an, wie er auch in der Definition der Tabelle für die jeweiligen Felder angegeben ist.<\/p>\n Für Felder, die den Wert NULL <\/b>enthalten dürfen, definieren wir optionale Parameter. Das geschieht wieder durch Angabe eines Standardwertes für diese Parameter, in diesem Fall NULL<\/b>.<\/p>\n Neben den Eingangsparametern definieren wir noch einen Ausgangsparameter, den wir explizit mit dem Schlüsselwort OUTPUT <\/b>versehen. Dieser soll die ID des neu angelegten Datensatzes zurückliefern und heißt @IDNEW<\/b>.<\/p>\n Wichtig ist, dass wir vor der INSERT INTO<\/b>-Anweisung die Anweisung SET NOCOUNT ON <\/b>setzen.<\/p>\n SET NOCOUNT ON <\/b>unterdrückt die Statusmeldungen, die SQL Server nach jedem INSERT<\/b>, UPDATE <\/b>oder DELETE <\/b>zurückgibt – also Meldungen wie X Zeilen betroffen<\/b>.<\/p>\n Ohne SET NOCOUNT ON <\/b>wird diese Meldung nach dem INSERT <\/b>zuerst an den Client gesendet, noch bevor der OUTPUT<\/b>-Parameter zurückgegeben wird. ADODB interpretiert diese Statusmeldung als zusätzliches Resultset, wodurch der OUTPUT<\/b>-Parameter @IDNEW <\/b>eventuell nicht mehr korrekt ausgelesen wird und beispielsweise auf seinem Standardwert (hier -1<\/b>) verbleibt.<\/p>\n Mit SET NOCOUNT ON <\/b>entfällt diese zusätzliche Meldung. Es wird nur noch das eigentliche Ergebnis zurückgegeben, sodass ADODB den OUTPUT<\/b>-Parameter zuverlässig und korrekt auslesen kann.<\/p>\n Danach folgt die eigentliche INSERT INTO<\/b>-Anweisung zum Hinzufügen des Datensatzes. Diese kann im Gegensatz beispielsweise zu einer mit CurrentDb.Execute <\/b>in Access aufgerufenen Anweisung im VALUES<\/b>-Abschnitt einfach mit den Parametern bestückt werden – wir brauche uns keine Gedanken um Anführungszeichen für Zeichenketten et cetera zu machen:<\/p>\n Schließlich ermitteln wir mit SCOPE_IDENTITY <\/b>den Wert des zuletzt hinzugefügten IDENTITY<\/b>-Wertes, also den Wert des Primärschlüsselfeldes des hinzugefügten Datensatzes, und weisen diesen dem Rückgabeparameter @IDNEW <\/b>zu:<\/p>\n Die Prozedur Beispiel_Insert_Mitarbeiter <\/b>aus Listing 5 zeigt, wie wir die gespeicherte Prozedur spMitarbeiterInsert <\/b>von Access aus aufrufen können. Hier bauen wir wie in den vorherigen Beispielen die Verbindung auf und erstellen ein Command<\/b>-Objekt, dem wir als CommandText <\/b>den Namen der gespeicherten Prozedur und als CommandType <\/b>wieder adCmdStoredProc <\/b>zuweisen.<\/p>\n Listing 5: Anlegen eines neuen Datensatzes per VBA und ADODB<\/span><\/b><\/p>\n Dann folgen einige Parameter, mit denen wir die Werte für den neu zu erstellenden Datensatz übergeben. Die ersten sind Eingabeparameter für die Felder AbteilungID<\/b>, Vorname<\/b>, Nachname<\/b>, Email<\/b>, Eintrittsdatum <\/b>und Gehalt<\/b>.<\/p>\n Diese sind weitgehend ähnlich aufgebaut und enthalten den Parameternamen, den Datentyp, die Angabe, dass es sich um einen Eingabeparameter handelt sowie die Feldgröße und den anzulegenden Wert.<\/p>\n Etwas anders gehen wir beim Parameter @Gehalt <\/b>vor. Hier wird der Parameter zunächst nur mit Name, Typ und Richtung erstellt.<\/p>\n Die Größenangabe entfällt, da sie bei adDecimal <\/b>keine Rolle spielt und stattdessen durch Precision <\/b>und NumericScale <\/b>ersetzt wird.<\/p>\n Schließlich definieren wir den Parameter für den Rückgabewert der gespeicherten Prozedur und rufen diese mit der Execute<\/b>-Methode des Command<\/b>-Objekts auf – im Gegensatz zu den vorherigen Beispielen, wo wir das Command<\/b>-Objekt als Parameter der Open<\/b>-Methode eines Recordset<\/b>-Objekts verwendet haben.<\/p>\n Nach der Ausführung können wir den Wert des Parameters @IDNEW <\/b>über die Value<\/b>-Eigenschaft auslesen und in die Variable lngNewID <\/b>schreiben, den wir anschließend im Direktbereich ausgeben.<\/p>\n Auch diese Prozedur können wir je nach Anwendungszweck in eine Funktion überführen, der wir die Werte für den neuen Datensatz per Parameter übergeben und die den Wert des Primärschlüsselfeldes des neuen Datensatzes zurückgibt.<\/p>\n Die gespeicherte Prozedur zum Aktualisieren eines Datensatzes namens spMitarbeiterUpdate<\/b> sehen wir in Listing 6.<\/p>\n Listing 6: Gespeicherte Prozedur zum Aktualisieren eines Mitarbeiters<\/span><\/b><\/p>\n Sie enthält jeweils einen Parameter für jedes Feld der zu aktualisierenden Tabelle, wobei die gleichen Felder wie beim Anlegen eines neuen Datensatzes als optionale Parameter festgelegt werden.<\/p>\n Zusätzlich übergeben wir mit @MitarbeiterID <\/b>auch den Wert des Primärschlüsselfeldes des zu aktualisierenden Datensatzes.<\/p>\n Und schließlich definieren wir mit @RowsAffected <\/b>einen Parameter, mit dem wir die Anzahl der geänderten Datensätze zurückgeben, damit wir in der aufrufenden Prozedur prüfen können, ob der Vorgang erfolgreich war.<\/p>\n In der UPDATE<\/b>-Anweisung aktualisieren wir alle Felder außer MitarbeiterID <\/b>mit den in den Parametern angegebenen Werten. Den Parameter @MitarbeiterID <\/b>verwenden wir als Vergleichswert im Kriterium in der WHERE<\/b>-Bedingung.<\/p>\n Am Ende stellen wir den Rückgabewert auf die Anzahl der von der UPDATE<\/b>-Abfrage betroffenen Datensätze ein:<\/p>\n Die Prozedur Beispiel_Update_Mitarbeiter<\/b> aus Listing 7 zeigt, wie wir die gespeicherte Prozedur spMitarbeiterUpdate<\/b> aufrufen können.<\/p>\n Listing 7: Aktualisieren eines neuen Datensatzes per VBA und ADODB<\/span><\/b><\/p>\n Die Prozedur ist ähnlich aufgebaut wie die zum Anlegen eines neuen Datensatzes. Allerdings übergibt sie den Wert für das Feld MitarbeiterID<\/b>, anstatt diesen für den neu angelegten Datensatz zurückgeben zu lassen. Außerdem übergibt sie einen Rückgabeparameter namens @RowsAffected<\/b>, mit dem wir die Anzahl der betroffenen Datensätze ermitteln.<\/p>\n Nach dem Ausführen des Command<\/b>-Objekts mit Execute ermittelt sie den Wert des Rückgabeparameters @RowsAffected <\/b>und gibt den Wert im Direktbereich aus.<\/p>\n Die gespeicherte Prozedur namens spMitarbeiterDelete<\/b> finden wir in Listing 8. Diese verwendet lediglich zwei Parameter:<\/p>\n Listing 8: Gespeicherte Prozedur zum Löschen eines Mitarbeiters<\/span><\/b><\/p>\n Sie löscht mit der DELETE<\/b>-Anweisung den Datensatz, der im Feld MitarbeiterID <\/b>den Wert aus @MitarbeiterID <\/b>enthält. Anschließend stellt sie den Rückgabeparameter @RowsAffected <\/b>auf die Anzahl der von der Abfrage betroffenen Datensätze ein.<\/p>\n Die entsprechende VBA-Prozedur namens Beispiel_Delete_Mitarbeiter <\/b>sehen wir in Listing 9. Sie erstellt die beiden in der gespeicherten Prozedur definierten Parameter und weist dem Parameter @MitarbeiterID <\/b>die ID des zu löschenden Mitarbeiters zu.<\/p>\n Listing 9: Löschen eines neuen Datensatzes per VBA und ADODB<\/span><\/b><\/p>\n Dann führt sie das Definieren von Konstanten für Server und Datenbank<\/h2>\n
Public <\/span>Const cStrServer As String<\/span> = \"amvDesktop2023\"\r\nPublic <\/span>Const cStrDatabase As String<\/span> = \"Test_GespeicherteProzeduren\"<\/pre>\nAufbau der gespeicherten Prozeduren<\/h2>\n
\n
Gespeicherte Prozedur zum Ermitteln der Daten einer Tabelle<\/h2>\n
CREATE PROCEDURE [dbo].[spMitarbeiterSelectNachMitarbeiterID]\r\n @MitarbeiterID INT = NULL\r\nAS\r\nSET NOCOUNT ON\r\nSELECT MitarbeiterID,\r\n Vorname,\r\n Nachname,\r\n Email,\r\n Eintrittsdatum,\r\n Gehalt,\r\n ErstelltVon,\r\n ErstelltAm\r\nFROM tblMitarbeiter \r\nWHERE (@MitarbeiterID IS NULL OR MitarbeiterID = @MitarbeiterID)\r\nORDER BY Nachname, Vorname<\/pre>\n
\n
Aufruf der SELECT-Prozedur per VBA<\/h2>\n
Public Sub <\/span>Beispiel_Select()\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>cmd As <\/span>ADODB.Command\r\n Dim <\/span>rst As <\/span>ADODB.Recordset\r\n Dim <\/span>strConnection As String<\/span>\r\n Set<\/span> cnn = New<\/span> ADODB.Connection\r\n strConnection = \"Provider=SQLOLEDB;Data Source=\" & cStrServer _\r\n & \";Initial Catalog=\" & cStrDatabase & \";Integrated Security=SSPI;\"\r\n cnn.Open strConnection\r\n Set<\/span> cmd = New<\/span> ADODB.Command\r\n cmd.ActiveConnection = cnn\r\n cmd.CommandText = \"spMitarbeiterSelectNachMitarbeiterID\"\r\n cmd.CommandType = adCmdStoredProc\r\n Set<\/span> rst = New<\/span> ADODB.Recordset\r\n rst.CursorLocation = adUseClient\r\n rst.Open cmd, , adOpenStatic, adLockOptimistic\r\n Debug.Print<\/span> \"Datensätze: \" & rst.RecordCount\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Debug.Print<\/span> rst!Nachname\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n cnn.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> cmd = Nothing\r\n Set<\/span> cnn = Nothing\r\nEnd Sub<\/span><\/pre>\nAufruf der SELECT-Prozedur mit Parameter<\/h2>\n
Public Sub <\/span>Beispiel_Select_NachMitarbeiterID()\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>cmd As <\/span>ADODB.Command\r\n Dim <\/span>rst As <\/span>ADODB.Recordset\r\n Dim <\/span>prm As <\/span>ADODB.Parameter\r\n Dim <\/span>strConnection As String<\/span>\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n lngMitarbeiterID = 1\r\n Set<\/span> cnn = New<\/span> ADODB.Connection\r\n strConnection = \"Provider=SQLOLEDB;Data Source=\" & cStrServer & \";Initial Catalog=\" & cStrDatabase _\r\n & \";Integrated Security=SSPI;\" \r\n cnn.Open strConnection\r\n Set<\/span> cmd = New<\/span> ADODB.Command\r\n cmd.ActiveConnection = cnn\r\n cmd.CommandText = \"spMitarbeiterSelectNachMitarbeiterID\"\r\n cmd.CommandType = adCmdStoredProc\r\n Set<\/span> prm = cmd.CreateParameter(\"@MitarbeiterID\", adInteger, adParamInput, _\r\n 4, lngMitarbeiterID)\r\n cmd.Parameters.Append prm\r\n Set<\/span> rst = New<\/span> ADODB.Recordset\r\n rst.CursorLocation = adUseClient\r\n rst.Open cmd, , adOpenStatic, adLockOptimistic\r\n Debug.Print<\/span> \"Datensätze: \" & rst.RecordCount\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Debug.Print<\/span> rst!Nachname\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n cnn.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> cmd = Nothing\r\n Set<\/span> cnn = Nothing\r\nEnd Sub<\/span><\/pre>\n\n
Gespeicherte Prozedur zum Hinzufügen eines Mitarbeiters<\/h2>\n
CREATE PROCEDURE [dbo].[spMitarbeiterInsert]\r\n @AbteilungID INT,\r\n @Vorname NVARCHAR(100),\r\n @Nachname NVARCHAR(100),\r\n @Email NVARCHAR(255) = NULL,\r\n @Eintrittsdatum DATE = NULL,\r\n @Gehalt DECIMAL(10,2) = NULL,\r\n @IDNEW INT = -1 OUTPUT\r\nAS\r\nSET NOCOUNT ON\r\nINSERT INTO tblMitarbeiter (AbteilungID, Vorname, Nachname, Email, \r\n Eintrittsdatum, Gehalt)\r\nVALUES (@AbteilungID, @Vorname, @Nachname, @Email, @Eintrittsdatum, @Gehalt)\r\nSET @IDNEW = SCOPE_IDENTITY()<\/pre>\n
INSERT INTO tblMitarbeiter (AbteilungID, Vorname, Nachname, Email, Eintrittsdatum, Gehalt)\r\nVALUES (@AbteilungID, @Vorname, @Nachname, @Email, @Eintrittsdatum, @Gehalt)<\/pre>\n
SET @IDNEW = SCOPE_IDENTITY()<\/pre>\n
VBA-Prozedur zum Anlegen eines neuen Datensatzes<\/h2>\n
Public Sub <\/span>Beispiel_Insert_Mitarbeiter()\r\n Dim <\/span>cnn As <\/span>ADODB.Connection, cmd As <\/span>ADODB.Command, prm As <\/span>ADODB.Parameter\r\n Dim <\/span>strConnection As String<\/span>, lngNewID As Long<\/span>\r\n Set<\/span> cnn = New<\/span> ADODB.Connection\r\n strConnection = \"Provider=SQLOLEDB;Data Source=\" & cStrServer & \";Initial Catalog=\" & cStrDatabase _\r\n & \";Integrated Security=SSPI;\"\r\n cnn.Open strConnection\r\n Set<\/span> cmd = New<\/span> ADODB.Command\r\n cmd.ActiveConnection = cnn\r\n cmd.CommandText = \"spMitarbeiterInsert\"\r\n cmd.CommandType = adCmdStoredProc\r\n Set<\/span> prm = cmd.CreateParameter(\"@AbteilungID\", adInteger, adParamInput, 4, 1)\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Vorname\", adVarWChar, adParamInput, 100, \"Max\")\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Nachname\", adVarWChar, adParamInput, 100, \"Mustermann\")\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Email\", adVarWChar, adParamInput, 255, \"m.mustermann@firma.de\")\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Eintrittsdatum\", adDate, adParamInput, 8, #1\/1\/2025#)\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Gehalt\", adDecimal, adParamInput)\r\n prm.Precision = 18\r\n prm.NumericScale = 2\r\n prm.Value = 4500\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@IDNEW\", adInteger, adParamOutput, 4)\r\n cmd.Parameters.Append prm\r\n cmd.Execute\r\n lngNewID = CLng(cmd.Parameters(\"@IDNEW\").Value)\r\n Debug.Print<\/span> \"Neue MitarbeiterID: \" & lngNewID\r\n cnn.Close\r\n Set<\/span> cmd = Nothing\r\n Set<\/span> cnn = Nothing\r\nEnd Sub<\/span><\/pre>\n\n
Gespeicherte Prozedur zum Aktualisieren eines Datensatzes<\/h2>\n
ALTER PROCEDURE [dbo].[spMitarbeiterUpdate]\r\n @MitarbeiterID INT,\r\n @AbteilungID INT,\r\n @Vorname NVARCHAR(100),\r\n @Nachname NVARCHAR(100),\r\n @Email NVARCHAR(255) = NULL,\r\n @Eintrittsdatum DATE = NULL,\r\n @Gehalt DECIMAL(10,2) = NULL,\r\n @RowsAffected INT = 0 OUTPUT\r\nAS\r\nSET NOCOUNT ON\r\nUPDATE tblMitarbeiter\r\nSET AbteilungID = @AbteilungID,\r\n Vorname = @Vorname,\r\n Nachname = @Nachname,\r\n Email = @Email,\r\n Eintrittsdatum = @Eintrittsdatum,\r\n Gehalt = @Gehalt\r\nWHERE MitarbeiterID = @MitarbeiterID\r\nSET @RowsAffected = @@ROWCOUNT<\/pre>\n
SET @RowsAffected = @@ROWCOUNT<\/pre>\n
VBA-Prozedur zum Aktualisieren eines Datensatzes<\/h2>\n
Public Sub <\/span>Beispiel_Update_Mitarbeiter()\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>cmd As <\/span>ADODB.Command\r\n Dim <\/span>prm As <\/span>ADODB.Parameter\r\n Dim <\/span>strConnection As String<\/span>\r\n Set<\/span> cnn = New<\/span> ADODB.Connection\r\n strConnection = \"Provider=SQLOLEDB;Data Source=\" & cStrServer & \";Initial Catalog=\" & cStrDatabase _\r\n & \";Integrated Security=SSPI;\"\r\n cnn.Open strConnection\r\n Set<\/span> cmd = New<\/span> ADODB.Command\r\n cmd.ActiveConnection = cnn\r\n cmd.CommandText = \"spMitarbeiterUpdate\"\r\n cmd.CommandType = adCmdStoredProc\r\n Set<\/span> prm = cmd.CreateParameter(\"@MitarbeiterID\", adInteger, adParamInput, 4, 1)\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@AbteilungID\", adInteger, adParamInput, 4, 2)\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Vorname\", adVarWChar, adParamInput, 100, \"Maximilian\")\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Nachname\", adVarWChar, adParamInput, 100, \"Mustermann\")\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Email\", adVarWChar, adParamInput, 255, \"max.mustermann@firma.de\")\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Eintrittsdatum\", adDate, adParamInput, 8, #1\/1\/2025#)\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@Gehalt\", adDecimal, adParamInput)\r\n prm.Value = 5000\r\n prm.Precision = 18\r\n prm.NumericScale = 2\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@RowsAffected\", adInteger, adParamOutput, 4)\r\n cmd.Parameters.Append prm\r\n cmd.Execute\r\n Debug.Print<\/span> \"Aktualisierte Datensaetze: \" & cmd.Parameters(\"@RowsAffected\").Value\r\n cnn.Close\r\n Set<\/span> cmd = Nothing\r\n Set<\/span> cnn = Nothing\r\nEnd Sub<\/span><\/pre>\nGespeicherte Prozedur zum Löschen eines Datensatzes<\/h2>\n
CREATE PROCEDURE [dbo].[spMitarbeiterDelete]\r\n @MitarbeiterID INT,\r\n @RowsAffected INT = 0 OUTPUT\r\nAS\r\nSET NOCOUNT ON\r\nDELETE FROM tblMitarbeiter\r\nWHERE MitarbeiterID = @MitarbeiterID\r\nSET @RowsAffected = @@ROWCOUNT<\/pre>\n
\n
VBA-Prozedur zum Löschen eines Datensatzes<\/h2>\n
Public Sub <\/span>Beispiel_Delete_Mitarbeiter()\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>cmd As <\/span>ADODB.Command\r\n Dim <\/span>prm As <\/span>ADODB.Parameter\r\n Dim <\/span>strConnection As String<\/span>\r\n Set<\/span> cnn = New<\/span> ADODB.Connection\r\n strConnection = \"Provider=SQLOLEDB;Data Source=\" & cStrServer & \";Initial Catalog=\" & cStrDatabase _\r\n & \";Integrated Security=SSPI;\"\r\n cnn.Open strConnection\r\n Set<\/span> cmd = New<\/span> ADODB.Command\r\n cmd.ActiveConnection = cnn\r\n cmd.CommandText = \"spMitarbeiterDelete\"\r\n cmd.CommandType = adCmdStoredProc\r\n Set<\/span> prm = cmd.CreateParameter(\"@MitarbeiterID\", adInteger, adParamInput, 4, 18)\r\n cmd.Parameters.Append prm\r\n Set<\/span> prm = cmd.CreateParameter(\"@RowsAffected\", adInteger, adParamOutput, 4)\r\n cmd.Parameters.Append prm\r\n cmd.Execute\r\n Debug.Print<\/span> \"Geloeschte Datensaetze: \" & cmd.Parameters(\"@RowsAffected\").Value\r\n cnn.Close\r\n Set<\/span> cmd = Nothing\r\n Set<\/span> cnn = Nothing\r\nEnd Sub<\/span><\/pre>\n