Posts tagged: Prozedur

Gespeicherte Prozeduren in Access aufrufen

By , 8. April 2011

Im ersten Teil der Serie „Gespeicherte Prozeduren“ ging es darum wie im SQL Management Studio von Microsoft gespeicherte Prozeduren angelegt werden können. Es wurden zwei verschiedene Möglichkeiten einen SQL-String auszuführen erörtert, sowie zwischen „Getter“ und „Setter“ Prozeduren unterschieden. In diesem zweiten Teil geht es nun darum wie man diese Gespeicherten Prozeduren (SP für Stored Procedures) in Access nutzen kann um ausgewählte Daten zu erhalten bzw. um Daten in der SQL Server Datenbank zu speichern.

Ich erstelle zu diesem Zweck immer ein separates Modul mdlStoredProcedures worin ich verschiedene Prozeduren erstelle, je nach Anwendungszweck.
Ich unterscheide dabei zwischen Universellen Prozeduren und Speziellen Prozeduren.

Universelle Prozeduren bedienen immer mehrere gleichartige Gespeicherte Prozeduren im SQL Server. Beispiel dazu sind z.B. Prozeduren wo ein Status geändert wird. Nachfolgend als Generelles Beispiel für eine Setter-Prozedur in Access:

Deklarationsteil:

Dim cmdObj As ADODB.Command
Dim cnn As ADODB.Connection
Dim ConnectionString As String

Prozedur:

Public Function setStatus1(idWert As String, Prozedurname As String, Status As Long) As Boolean
    ConnectionString = "Driver={SQL Server};Server=?;Database=?;Uid=?????;Pwd=?;"
    Set cnn = OpenConnection(ConnectionString)
    Set cmdObj = New ADODB.Command
    With cmdObj
        .ActiveConnection = cnn
        .CommandType = adCmdStoredProc
        .Parameters.Append .CreateParameter("@indent", adVarChar, adParamInput, 10, idWert)
        .Parameters.Append .CreateParameter("@status", adVarChar, adParamInput, 2, CStr(Status))
        .CommandText = Prozedurname
        .Execute
    End With
    Set cmdObj = Nothing
    Set cnn = Nothing
End Function

Der Prozedurname wird als Parameter übergeben und der Eigenschaft CommandText des ADODB Objektes zugewiesen.
An dieser Stelle sei erwähnt, dass wir mit ADO arbeiten, und daher den Verweis „Microsoft ActiveX Data Objects 2.1 Library“ benötigen.
Die Übergabeparameter müssen in der richtigen Reihenfolge stehen wie in der SP definiert. Die Parameter der Funktion CreateParameter() sind folgende:
Parametername, Datentyp, Input/Output-Typ, Zeichenlänge, Wert
Read more »

OfficeFolders theme by Themocracy