Paket modADO

Hilfeprozeduren um das Schreiben von Code etwas abzukürzen Außerdem ist eine einfache Umstellung der verwendeten Zugriffsbibliotheken möglich. Mehr ...

Funktionen
Property Get	CurrentConnection () As ADODB.Connection
	CurrentConnection = CurrentDbConnection.ADODB.CurrentConnection.
Function	OpenAdoRecordset (ByVal Source As String, Optional ByVal CursorType As CursorTypeEnum=adOpenForwardOnly, Optional ByVal LockType As LockTypeEnum=adLockReadOnly, Optional ByVal CursorLocation As ADODB.CursorLocationEnum=adUseServer, Optional ByVal DisconnectedRecordset As Boolean=False) As ADODB.Recordset
	OpenRecordset = CurrentDbConnection.ADODB.OpenRecordset.
Function	AdoExecute (ByVal sSQL As String, Optional ByRef lRecordsAffected As Long, Optional ByVal Options As ADODB.ExecuteOptionEnum=-1) As ADODB.Recordset
	Execute = CurrentDbConnection.ADODB.Execute.
Function	AdoLookupSQL (ByVal sSQL As String, Optional ByVal index As Variant=0 &) As Variant
	DLookup-Recordset-Ersatzfunktion für Übergabe kompletter SQL-Anweisung = CurrentDbConnection.ADODB.DLookupSQL.
Function	AdoLookup (ByVal Expr As String, ByVal Domain As String, Optional ByVal Criteria As String=vbNullString) As Variant
	DLookup-Recordset-Ersatzfunktion = CurrentDbConnection.ADODB.DLookup.
Function	AdoCount (ByVal Expr As String, ByVal Domain As String, Optional ByVal Criteria As String=vbNullString) As Long
	DCount-Recordset-Ersatzfunktion = CurrentDbConnection.ADODB.DCount.
Function	AdoInsertIdentityReturn (ByVal InsertSQL As String, Optional ByVal IdentityTable As String=vbNullString) As Variant
	Insert-SQL-Anweisung ausführen und letzten Identity-Wert (Autowert) zurückgeben = CurrentDbConnection.ADODB.InsertIdentityReturn.
Function	AdoInsertValuesIdentityReturn (ByVal sSource As String, ParamArray InsertFields() As Variant) As Variant
	Erweiterung zu AdoInsertIdentityReturn mit Übergabe der Feldnamen und Werte als ParamArray.

Ausführliche Beschreibung

Hilfeprozeduren um das Schreiben von Code etwas abzukürzen Außerdem ist eine einfache Umstellung der verwendeten Zugriffsbibliotheken möglich.

Autor:: Josef Pötzl

Dokumentation der Funktionen

Function modADO.AdoCount	(	ByVal Expr As	String,
		ByVal Domain As	String,
		Optional ByVal Criteria As	String = `vbNullString`
	)

DCount-Recordset-Ersatzfunktion = CurrentDbConnection.ADODB.DCount.

Parameter:

	Expr	Feldname oder berechneter Ausdruck (Select-Teil)
	Domain	Tabelle, Abfrage oder SQL-Ausdruck für Sub-Abfrage (FROM-Teil)
	Criteria	Filter (WHERE-Teil)

Rückgabe:: Long

gibt -1 bei Fehler zurück

Function modADO.AdoExecute	(	ByVal sSQL As	String,
		Optional ByRef lRecordsAffected As	Long,
		Optional ByVal Options As ADODB.	ExecuteOptionEnum = `-1`
	)

Execute = CurrentDbConnection.ADODB.Execute.

Parameter:

	CommandText
	RecordsAffected
	Options

Rückgabe:: ADODB.Recordset

Function modADO.AdoInsertIdentityReturn	(	ByVal InsertSQL As	String,
		Optional ByVal IdentityTable As	String = `vbNullString`
	)

Insert-SQL-Anweisung ausführen und letzten Identity-Wert (Autowert) zurückgeben = CurrentDbConnection.ADODB.InsertIdentityReturn.

Parameter:

InsertSQL

Insert-SQL-Anweisung (INSERT ...)

Rückgabe:: Identity-Wert oder NULL falls kein Datensatz angefügt wurde

Funktioniert für Jet erst ab Jet 4.0 (Access 2000)

Function modADO.AdoInsertValuesIdentityReturn	(	ByVal sSource As	String,
		ParamArray InsertFields() As	Variant
	)

Erweiterung zu AdoInsertIdentityReturn mit Übergabe der Feldnamen und Werte als ParamArray.

Parameter:

	sSource	Tabellenname
	InsertFields	Abwechselnd Feldname und Wert

Rückgabe:: Identity-Wert oder NULL falls kein Datensatz angefügt wurde

Beispiel: AdoInsertValuesIdentityReturn("Tabellenname", "Feld1", "123", "Feld2", "'abc'") daraus entsteht: AdoInsertIdentityReturn("Insert into Tabellenname (Feld1, Feld2) Values (123, 'abc')", "Tabellenname") (=> Übergabe der Parameterwerte als String erforderlich)

Function modADO.AdoLookup	(	ByVal Expr As	String,
		ByVal Domain As	String,
		Optional ByVal Criteria As	String = `vbNullString`
	)

DLookup-Recordset-Ersatzfunktion = CurrentDbConnection.ADODB.DLookup.

Parameter:

	Expr	Feldname oder berechneter Ausdruck (Select-Teil)
	Domain	Tabelle, Abfrage oder SQL-Ausdruck für Sub-Abfrage (FROM-Teil)
	Criteria	Filter (WHERE-Teil)

Rückgabe:: Variant

gibt NULL bei Fehler zurück

Function modADO.AdoLookupSQL	(	ByVal sSQL As	String,
		Optional ByVal index As	Variant = `0 &`
	)

DLookup-Recordset-Ersatzfunktion für Übergabe kompletter SQL-Anweisung = CurrentDbConnection.ADODB.DLookupSQL.

Parameter:

	sSQL	SQL-Anweisung
	Index	Feldauswahl, falls nicht das erste Feld des Recordsets zurückgeliefert werden soll

Rückgabe:: Variant

gibt NULL bei Fehler zurück

Property Get modADO.CurrentConnection ( )

CurrentConnection = CurrentDbConnection.ADODB.CurrentConnection.

Rückgabe:: ADODB.Connection

Abkürzumg für CurrentDbConnection.ADODB.CurrentConnection

Function modADO.OpenAdoRecordset	(	ByVal Source As	String,
		Optional ByVal CursorType As	CursorTypeEnum = `adOpenForwardOnly`,
		Optional ByVal LockType As	LockTypeEnum = `adLockReadOnly`,
		Optional ByVal CursorLocation As ADODB.	CursorLocationEnum = `adUseServer`,
		Optional ByVal DisconnectedRecordset As	Boolean = `False`
	)

OpenRecordset = CurrentDbConnection.ADODB.OpenRecordset.

Parameter:

	Source	Datenquelle (SQL-Anweisung)
	CursorType	ADODB.CursorTypeEnum-Wert
	LockType	ADODB.LockTypeEnum-Wert
	CursorLocation	ADODB.CursorLocationEnum-Wert
	DisconnectedRecordset	True: Verbindung nach Öffnen des Recordset kappen ... verbindungsloses Recordset

Rückgabe:: ADODB.Recordset