Wiki der Access Code Library

Gemeinsam zu mehr Effizienz in der Anwendungserstellung

Insert oder Update als Parameter-Abfrage

Aus Access Code Library
Wechseln zu: Navigation, Suche
Programmier-Konzepte

Inhalt

Der unten angeführte Code zeigt nur ein Prinzip und stellt keine fertige Lösung dar.

Ausgangssituation

Eine Insert- oder Update-Anweisung soll per VBA zusammengesetzt und mit Werten aus Variablen versorgt werden.

Eingesetzte Elemente

  • DAO.QueryDef

Konzept

  1. QueryDef-Objekt erstellen
  2. Parameterwerte festlegen
  3. SQL-Anweisung ausführen

Umsetzung 

Public Function ExecuteParamSQL(ByVal SqlText As String, _
                           ParamArray QueryParams() As Variant) As Long
 
   Dim qdf As DAO.QueryDef
 
   Set qdf = CurrentDb.CreateQueryDef("", SqlText)
 
   Dim i As Long
   For i = 0 To UBound(QueryParams)
      qdf.Parameters(i) = QueryParams(i)
   Next
   qdf.Execute dbFailOnError
   ExecuteParamSQL = qdf.RecordsAffected
   qdf.Close
 
End Function

Verwendung 

anzahlDS = ExecuteParamSQL("Parameters P1 Text(255), P2 int, P3 date; " & _
                           "insert into Tabelle (T, Z, D) Values ([P1], [P2], [P3])", _
                           "abc", 123, Now())


Variante für gespeicherter Abfrage 

Public Function ExecuteParamQdf(ByVal QueryDefName As String, _
                           ParamArray QueryParams() As Variant) As Long
 
   Dim qdf As DAO.QueryDef
 
   Set qdf = CurrentDb.QueryDefs(QueryDefName)
 
   Dim i As Long
   For i = 0 To UBound(QueryParams) Step 2
      qdf.Parameters(QueryParams(i)) = QueryParams(i + 1)
   Next
   qdf.Execute dbFailOnError
   ExecuteParamQdf = qdf.RecordsAffected
   qdf.Close
 
End Function

Verwendung

SQL der gespeicherten Abfrage: insert into Tabelle (T, Z, D) Values ([P1], [P2], [P3]) 

anzahlDS = ExecuteParamSQL("GespeicherteAbfrage" & _
                           "P1", "abc", _
                           "P2", 123, _
                           "P3", Now())


Arr_l.png SQL-Anweisungen | Benutzerverwaltung und Login Arr_r.png

Von „https://wiki.access-codelib.net/Insert_oder_Update_als_Parameter-Abfrage“