Insert oder Update als Parameter-Abfrage - Versionsgeschichte

Andreas Vogt: /* Variante für gespeicherter Abfrage */

2020-01-06T09:31:17Z

Variante für gespeicherter Abfrage

← Nächstältere Version		Version vom 09:31, 6. Jan. 2020
Zeile 74:		Zeile 74:
	Verwendung mit Hilfsprozedur:		Verwendung mit Hilfsprozedur:
	<source>		<source>
-	anzahlDS = ExecuteParamQdf("GespeicherteAbfrage" & _	+	anzahlDS = ExecuteParamQdf("GespeicherteAbfrage", _
	"P1", "abc", _		"P1", "abc", _
	"P2", 123, _		"P2", 123, _

2010-11-13T13:42:59Z

2010-08-02T13:11:48Z

Verwendung

← Nächstältere Version		Version vom 13:11, 2. Aug. 2010
Zeile 44:		Zeile 44:
	{{note\|text=		{{note\|text=
	Bei Memofeldern kann es unter Jet/ACE zu Problemen kommen, wenn der Parameter-Text länger als 255 Zeichen ist.		Bei Memofeldern kann es unter Jet/ACE zu Problemen kommen, wenn der Parameter-Text länger als 255 Zeichen ist.
-	~~Damit das auch kein~~ Problem ~~darstellt~~, könnte statt DAO.QueryDef die ADODB-Variante mit ADODB.Command verwendet werden.	+	Um dieses Problem zu umgehen, könnte statt DAO.QueryDef die ADODB-Variante mit ADODB.Command verwendet werden.
	}}		}}

2010-08-02T13:10:53Z

Verwendung

← Nächstältere Version		Version vom 13:10, 2. Aug. 2010
Zeile 43:		Zeile 43:

	{{note\|text=		{{note\|text=
-	Bei Memofeldern kann es unter Jet/ACE zu Problemen kommen, wenn der Parameter-Text ~~länter~~ als 255 Zeichen ist.	+	Bei Memofeldern kann es unter Jet/ACE zu Problemen kommen, wenn der Parameter-Text länger als 255 Zeichen ist.
-	Damit das auch kein Problem darstellt, könnte ~~man~~ statt ~~einem~~ DAO.QueryDef ~~eine~~ ADODB.Command ~~verwenden~~.	+	Damit das auch kein Problem darstellt, könnte statt DAO.QueryDef die ADODB-Variante mit ADODB.Command verwendet werden.
	}}		}}

2010-08-02T13:10:00Z

Verwendung

← Nächstältere Version		Version vom 13:10, 2. Aug. 2010
Zeile 43:		Zeile 43:

	{{note\|text=		{{note\|text=
-	Bei Memofeldern kann es unter Jet/ACE zu Problemen kommen, wenn der Parameter-Text ~~größer~~ als 255 Zeichen ist.	+	Bei Memofeldern kann es unter Jet/ACE zu Problemen kommen, wenn der Parameter-Text länter als 255 Zeichen ist.
		+	Damit das auch kein Problem darstellt, könnte man statt einem DAO.QueryDef eine ADODB.Command verwenden.
	}}		}}

2010-08-02T13:08:56Z

← Nächstältere Version		Version vom 13:08, 2. Aug. 2010
Zeile 42:		Zeile 42:
	</source>		</source>

		+	{{note\|text=
		+	Bei Memofeldern kann es unter Jet/ACE zu Problemen kommen, wenn der Parameter-Text größer als 255 Zeichen ist.
		+	}}

	=== Variante für gespeicherter Abfrage ===		=== Variante für gespeicherter Abfrage ===

2010-07-11T10:32:58Z

← Nächstältere Version		Version vom 10:32, 11. Jul. 2010
Zeile 64:		Zeile 64:

	==== Verwendung ====		==== Verwendung ====
-	SQL der gespeicherten Abfrage: <~~code~~>insert into Tabelle (T, Z, D) Values ([P1], [P2], [P3])</~~code~~>	+	SQL der gespeicherten Abfrage: <source lang="sql">Parameters P1 Text(255), P2 int, P3 date;
		+	insert into Tabelle (T, Z, D) Values ([P1], [P2], [P3])</source>

		+	Verwendung mit Hilfsprozedur:
	<source>		<source>
	anzahlDS = ExecuteParamQdf("GespeicherteAbfrage" & _		anzahlDS = ExecuteParamQdf("GespeicherteAbfrage" & _

2010-07-11T07:44:44Z

Variante für gespeicherter Abfrage

← Nächstältere Version		Version vom 07:44, 11. Jul. 2010
Zeile 53:		Zeile 53:

	Dim i As Long		Dim i As Long
-	For i = 0 To UBound(QueryParams) Step 2	+	For i = 0 To UBound(QueryParams)-1 Step 2
	qdf.Parameters(QueryParams(i)) = QueryParams(i + 1)		qdf.Parameters(QueryParams(i)) = QueryParams(i + 1)
	Next		Next

2010-07-11T07:43:15Z

Verwendung

← Nächstältere Version		Version vom 07:43, 11. Jul. 2010
Zeile 67:		Zeile 67:

	<source>		<source>
-	anzahlDS = ~~ExecuteParamSQL~~("GespeicherteAbfrage" & _	+	anzahlDS = ExecuteParamQdf("GespeicherteAbfrage" & _
	"P1", "abc", _		"P1", "abc", _
	"P2", 123, _		"P2", 123, _

2010-07-11T07:40:28Z

← Nächstältere Version		Version vom 07:40, 11. Jul. 2010
Zeile 41:		Zeile 41:
	"abc", 123, Now())		"abc", 123, Now())
	</source>		</source>
		+
		+
		+	=== Variante für gespeicherter Abfrage ===
		+	<source>
		+	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
		+	</source>
		+
		+	==== Verwendung ====
		+	SQL der gespeicherten Abfrage: <code>insert into Tabelle (T, Z, D) Values ([P1], [P2], [P3])</code>
		+
		+	<source>
		+	anzahlDS = ExecuteParamSQL("GespeicherteAbfrage" & _
		+	"P1", "abc", _
		+	"P2", 123, _
		+	"P3", Now())
		+	</source>
		+

	{{Hierarchy footer}}		{{Hierarchy footer}}