Wiki der Access Code Library
Gemeinsam zu mehr Effizienz in der Anwendungserstellung
Insert oder Update als Parameter-Abfrage
Ansichten
Aus Access Code Library
(Unterschied zwischen Versionen)
K (→Eingesetzte Elemente) |
K |
||
| Zeile 15: | Zeile 15: | ||
# SQL-Anweisung ausführen | # SQL-Anweisung ausführen | ||
| + | === Umsetzung === | ||
<source> | <source> | ||
Public Function ExecuteParamSQL(ByVal SqlText As String, _ | Public Function ExecuteParamSQL(ByVal SqlText As String, _ | ||
Version vom 15:06, 1. Jul. 2010
| Programmier-Konzepte |
|
Der unten angeführte Code zeigt nur ein Prinzip und stellt keine fertige Lösung dar.
Inhaltsverzeichnis |
Ausgangsbasis
Eine insert- bzw. Update-Anweisung soll per VBA zusammengesetzt und mit Werten aus Variablen versorgt werden.
Eingesetzte Elemente
- DAO.QueryDef
Konzept
- QueryDef-Objekt erstellen
- Parameterwerte festlegen
- SQL-Anweisung ausführen
Umsetzung
Public Function ExecuteParamSQL(ByVal SqlText As String, _ ParamArray qdfParams() As Variant) As Long Dim qdf As DAO.QueryDef Set qdf = CurrentDb.CreateQueryDef("", SqlText) Dim i As Long For i = 0 To UBound(qdfParams) qdf.Parameters(i) = qdfParams(i) Next qdf.Execute dbFailOnError ExecuteParamSQL = qdf.RecordsAffected End Function
Verwendung
anzahlDS = ExecuteParamSQL("Parameters P1 text, P2 int, P3 date; " & _ "insert into Tabelle (T, Z, D) Values ([P1], [P2], [P3])", _ "abc", 123, Now())
