OdbcHandler Klassenreferenz

ODBC-Zugriffsmethoden. Mehr ...

Öffentliche Methoden
Event	ErrorMissingCurrentDb (ByVal Msg As String, ByRef NewCurrentDbRef As DAO.Database)
	Ereignis für fehlende CurrentDb-Referenz.
Event	ErrorEmptyConnectionString (ByVal Msg As String, ByRef NewConnectionString As String)
	Ereignis für fehlenden ODBC-Connectionstring.
Event	DbObjectRelinked (ByVal LastDbObjectName As String, ByVal lCounter As Long)
	Info über das zuletzt verknüpfte Element.
Event	DbObjectDeleted (ByVal LastDbObjectName As String, ByVal lCounter As Long)
	Info über das zuletzt gelöschte Element.
Property Get	CurrentDb () As DAO.Database
	DAO.Database-Instanz des Frontends bzw. jener Jet-DB in der die Pass-Through-Abfragen erstellt werden sollen.
Property Set	CurrentDb (ByRef NewCurrentDb As DAO.Database)
	DAO.Database-Instanz des Frontends bzw. jener Jet-DB in der die Pass-Through-Abfragen erstellt werden sollen.
Property Get	CurrentDbBE () As DAO.Database
	Database-Referenz zum Backend.
Property Set	CurrentDbBE (ByRef NewCurrentDbBE As DAO.Database)
	Database-Referenz zum Backend.
Property Get	ConnectionString () As String
	ODBC-ConnectionString.
Property Let	ConnectionString (ByVal sConnectionString As String)
	ODBC-ConnectionString.
Function	OpenRecordset (ByVal Source As String, Optional ByVal RecordsetType As DAO.RecordsetTypeEnum=dbOpenForwardOnly, Optional ByVal RecordsetOptions As DAO.RecordsetOptionEnum=DAO.RecordsetOptionEnum.dbSeeChanges, Optional ByVal LockEdit As DAO.LockTypeEnum=DAO.LockTypeEnum.dbOptimistic) As DAO.Recordset
	openRecordset
Function	OpenRecordsetPT (ByVal sSQL As String, Optional ByVal RecordsetType As DAO.RecordsetTypeEnum=dbOpenForwardOnly, Optional ByVal RecordsetOptions As DAO.RecordsetOptionEnum=DAO.RecordsetOptionEnum.dbSeeChanges Or DAO.RecordsetOptionEnum.dbSQLPassThrough, Optional ByVal LockEdit As DAO.LockTypeEnum=DAO.LockTypeEnum.dbOptimistic) As DAO.Recordset
	OpenRecordsetPT.
Sub	Execute (ByVal CommandText As String, Optional ByRef RecordsAffected As Long, Optional ByVal Options As DAO.RecordsetOptionEnum)
	DAO.Execute-Anweisung über CurrentDbBE.
Sub	ExecutePT (ByVal sSQL As String, Optional ByRef RecordsAffected As Long, Optional ByVal Options As DAO.RecordsetOptionEnum=DAO.RecordsetOptionEnum.dbSQLPassThrough)
	Execute-Anweisung über eine Pass-Through-Abfrage.
Function	DLookupSQL (ByVal sSQL As String, Optional ByVal index As Variant=0 &) As Variant
	DLookup-Recordset-Ersatzfunktion für die Übergabe einer kompletten SQL-Anweisung.
Function	DLookupSQLPT (ByVal sSQL As String, Optional ByVal index As Variant=0 &) As Variant
	DLookup-Recordset-Ersatzfunktion für die Übergabe einer kompletten SQL-Anweisung.
Function	DLookup (ByVal Expr As String, ByVal Domain As String, Optional ByVal Criteria As Variant) As Variant
	DLookup-Recordset-Ersatzfunktion.
Function	DCount (ByVal Expr As String, ByVal Domain As String, Optional ByVal Criteria As Variant) As Variant
	DCount-Recordset-Ersatzfunktion.
Function	DMax (ByVal Expr As String, ByVal Domain As String, Optional ByVal Criteria As Variant) As Variant
	DMax-Recordset-Ersatzfunktion.
Function	DMin (ByVal Expr As String, ByVal Domain As String, Optional ByVal Criteria As Variant) As Variant
	DMin-Recordset-Ersatzfunktion.
Function	DSum (ByVal Expr As String, ByVal Domain As String, Optional ByVal Criteria As Variant) As Variant
	DSum-Recordset-Ersatzfunktion.
Function	InsertIdentityReturn (ByVal InsertSQL As String) As Variant
	Insert-SQL-Anweisung ausführen und letzten Identity-Wert (Autowert) zurückgeben.
Sub	LinkTable (ByVal SourceTableName As String, Optional ByVal LinkedTableName As String=vbNullString, Optional ByVal bSavePWD As Boolean=False, Optional ByVal bRemoveSchemaName As Boolean=True)
	Backend-Tabelle im Access-Frontend verknüpfen.
Sub	RelinkTable (ByVal LinkedTableName As String, Optional ByVal bSavePWD As Boolean=False)
	Verküpfte Tabelle mit möglicher Änderung der Server-Daten neu verknüpfen.
Sub	RelinkPassThroughQuery (ByVal QueryName As String, Optional ByVal sConnectionString As String)
	Pass-Thorugh-Abfrage neu verknüpfen.
Function	RelinkTablesAndQueries (Optional ByVal bSavePWD As Boolean=False, Optional ByVal lEventCounter As Long=0, Optional ByVal sConnectionString As String=vbNullString) As Boolean
	Mehrere verknüpfte Tabellen und Pass-Through-Abfragen neu verknüpfen.
Function	DeleteOdbcTableDefs (Optional ByVal lEventCounter As Long=0) As Boolean
	Alle verknüpften Tabelle im Frontend löschen. (Hat keine Auswirkung auf die Backend-Tabellen.).

Ausführliche Beschreibung

ODBC-Zugriffsmethoden.

Dokumentation der Elementfunktionen

Property Let ConnectionString ( ByVal sConnectionString As String )

ODBC-ConnectionString.

Parameter:

sConnectionString

ODBC-Connectionstring für Verbidnungsaufbau

Beispiel: "ODBC;DRIVER={SQL Server};DATABASE=testdb;SERVER=(local)\SQL2005;Trusted_Connection=Yes;"

Property Get ConnectionString ( )

ODBC-ConnectionString.

Rückgabe:: String

Property Set CurrentDb ( ByRef NewCurrentDb As DAO. Database )

DAO.Database-Instanz des Frontends bzw. jener Jet-DB in der die Pass-Through-Abfragen erstellt werden sollen.

Parameter:

NewCurrentDb

DAO.Database-Referenz die für CurrentDb verwendet werden soll

Rückgabe:: DAO.Database

Property Get CurrentDb ( )

DAO.Database-Instanz des Frontends bzw. jener Jet-DB in der die Pass-Through-Abfragen erstellt werden sollen.

Rückgabe:: DAO.Database

Property Set CurrentDbBE ( ByRef NewCurrentDbBE As DAO. Database )

Database-Referenz zum Backend.

Parameter:

NewCurrentDbBE

DAO.Database-Referenz auf eine bereits geöffnete Datanbank

Rückgabe:: DAO.Database

Diese Set-Property-Prozedur ist normalerweise nicht erforderlich, da die Datanbank überlicherweise mittels angegebenen ODBC-Connectionstring geöffnet wird.

Property Get CurrentDbBE ( )

Database-Referenz zum Backend.

Rückgabe:: DAO.Database

DAO.Database wird über DBEngine.OpenDatabase("", dbDriverComplete, False, ConnectionString) geöffnet.

Event DbObjectDeleted	(	ByVal LastDbObjectName As	String,
		ByVal lCounter As	Long
	)

Info über das zuletzt gelöschte Element.

Parameter:

	LastDbObjectName	Name des zuletzt gelöschten Elements
	lCounter	Anzahl der gelöschten Elemente seit Aufruf der Methode

Wird in der Methode DeleteOdbcTableDefs genutzt.

Event DbObjectRelinked	(	ByVal LastDbObjectName As	String,
		ByVal lCounter As	Long
	)

Info über das zuletzt verknüpfte Element.

Parameter:

	LastDbObjectName	Meldung über Ursache der Ereignisauslösung. (Wird noch nicht genutzt)
	lCounter	Anzahl der verknüpften Elemente seit Aufruf der Methode

Wird in der Methode RelinkTablesAndQueries genutzt.

Function DCount	(	ByVal Expr As	String,
		ByVal Domain As	String,
		Optional ByVal Criteria As	Variant
	)

DCount-Recordset-Ersatzfunktion.

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

Function DeleteOdbcTableDefs ( Optional ByVal lEventCounter As Long = 0 )

Alle verknüpften Tabelle im Frontend löschen. (Hat keine Auswirkung auf die Backend-Tabellen.).

Parameter:

lEventCounter

Hilfsparamter für Wertübergabe: Anzahl der gelöschen Elemente für DbObjectDeleted-Ereignisaufruf

Rückgabe:: Boolean

Je nach Einstellung von lEventCounter wird das Ereignis DbObjectDeleted ausgelöst (0 = kein Ereignisaufruf, 1 = nach jedem Element Ereignis auslösen, 5 nach jedem 5. Element Ereignis auslösen,...).

Function DLookup	(	ByVal Expr As	String,
		ByVal Domain As	String,
		Optional ByVal Criteria As	Variant
	)

DLookup-Recordset-Ersatzfunktion.

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

Function DLookupSQL	(	ByVal sSQL As	String,
		Optional ByVal index As	Variant = `0 &`
	)

DLookup-Recordset-Ersatzfunktion für die Übergabe einer kompletten SQL-Anweisung.

Parameter:

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

Rückgabe:: Variant

Function DLookupSQLPT	(	ByVal sSQL As	String,
		Optional ByVal index As	Variant = `0 &`
	)

DLookup-Recordset-Ersatzfunktion für die Übergabe einer kompletten SQL-Anweisung.

Parameter:

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

Rückgabe:: Variant

Function DMax	(	ByVal Expr As	String,
		ByVal Domain As	String,
		Optional ByVal Criteria As	Variant
	)

DMax-Recordset-Ersatzfunktion.

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

Function DMin	(	ByVal Expr As	String,
		ByVal Domain As	String,
		Optional ByVal Criteria As	Variant
	)

DMin-Recordset-Ersatzfunktion.

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

Function DSum	(	ByVal Expr As	String,
		ByVal Domain As	String,
		Optional ByVal Criteria As	Variant
	)

DSum-Recordset-Ersatzfunktion.

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

Event ErrorEmptyConnectionString	(	ByVal Msg As	String,
		ByRef NewConnectionString As	String
	)

Ereignis für fehlenden ODBC-Connectionstring.

Parameter:

	Msg	Meldung über Ursache der Ereignisauslösung. (Wird noch nicht genutzt)
	NewConnectionString	ODBC-Connectionstring

Über den ByRef-Parameter NewConnectionString kann der passende ODBC-Connectionstring weitergegeben werden.

Event ErrorMissingCurrentDb	(	ByVal Msg As	String,
		ByRef NewCurrentDbRef As DAO.	Database
	)

Ereignis für fehlende CurrentDb-Referenz.

Parameter:

	Msg	Meldung über Ursache der Ereignisauslösung. (Wird noch nicht genutzt)
	NewCurrentDbRef	DAO.Database-Referenz, die für CurrentDb verwendet werden soll

über den ByRef-Parameter NewCurrentDbRef kann die passende DAO.Database-Referenz weitergegeben werden.

Sub Execute	(	ByVal CommandText As	String,
		Optional ByRef RecordsAffected As	Long,
		Optional ByVal Options As DAO.	RecordsetOptionEnum
	)

DAO.Execute-Anweisung über CurrentDbBE.

Parameter:

	CommandText	SQL-Anweisung im Jet-SQL-Dialekt
	RecordsAffected	Anzahl der betroffenen Datensätze
	Options	Werte von RecordsetOptionEnum analog DAO.Database.Execute

Achtung: Execute-Parameter weichen von DAO-Execute ab, da RecordsAffected ergänzt wurde

Sub ExecutePT	(	ByVal sSQL As	String,
		Optional ByRef RecordsAffected As	Long,
		Optional ByVal Options As DAO.	RecordsetOptionEnum = `DAO.RecordsetOptionEnum.dbSQLPassThrough`
	)

Execute-Anweisung über eine Pass-Through-Abfrage.

Parameter:

	sSQL	SQL-Anweisung im SQL-Dialekt des DBMS
	RecordsAffected	Anzahl der betroffenen Datensätze
	Options	Werte von RecordsetOptionEnum analog DAO.CreateQueryDef.Execute

Achtung: Execute-Parameter weichen von DAO-Execute ab, da RecordsAffected ergänzt wurde

Function InsertIdentityReturn ( ByVal InsertSQL As String )

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

Parameter:

InsertSQL

Insert-SQL-Anweisung (INSERT ...)

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

Funktioniert erst ab Jet 4.0 (Access 2000) und ist vom DBMS abhängig. Bei MySQL-Tabellen wird z. B. 0 zurückgegeben

Sub LinkTable	(	ByVal SourceTableName As	String,
		Optional ByVal LinkedTableName As	String = `vbNullString`,
		Optional ByVal bSavePWD As	Boolean = `False`,
		Optional ByVal bRemoveSchemaName As	Boolean = `True`
	)

Backend-Tabelle im Access-Frontend verknüpfen.

Parameter:

	SourceTableName	Tabelle im Backend
	LinkedTableName	Tabelle im Frontend
	bSavePWD	ODBC-Passwort in Tabellenverknüpfung speichern
	bRemoveSchemaName	Schema-Kennung entfernen

Sollten eine 2-geteilte Tabellenkennung wie "dbo.Tabelle123" im BE vorliegen und bRemoveSchemaName auf false gesetzt sein, wird der Punkt durch "_" ersetzt.

Function OpenRecordset	(	ByVal Source As	String,
		Optional ByVal RecordsetType As DAO.	RecordsetTypeEnum = `dbOpenForwardOnly`,
		Optional ByVal RecordsetOptions As DAO.	RecordsetOptionEnum = `DAO.RecordsetOptionEnum.dbSeeChanges`,
		Optional ByVal LockEdit As DAO.	LockTypeEnum = `DAO.LockTypeEnum.dbOptimistic`
	)

openRecordset

Parameter:

	Quelle	SQL-Anweisung
	RecordsetType	DAO.RecordsetTypeEnum (Standard: dbOpenForwardOnly)
	RecordsetOptions	DAO.RecordsetOptionEnum (Standard: dbSeeChanges)
	LockEdit	DAO.LockTypeEnum (Standard: dbOptimistic)

Rückgabe:: DAO.Recordset

Function OpenRecordsetPT	(	ByVal sSQL As	String,
		Optional ByVal RecordsetType As DAO.	RecordsetTypeEnum = `dbOpenForwardOnly`,
		Optional ByVal RecordsetOptions As DAO.	RecordsetOptionEnum = `DAO.RecordsetOptionEnum.dbSeeChanges Or DAO.RecordsetOptionEnum.dbSQLPassThrough`,
		Optional ByVal LockEdit As DAO.	LockTypeEnum = `DAO.LockTypeEnum.dbOptimistic`
	)

OpenRecordsetPT.

Parameter:

	Quelle	SQL-Anweisung
	RecordsetType	DAO.RecordsetTypeEnum (Standard: dbOpenForwardOnly)
	RecordsetOptions	DAO.RecordsetOptionEnum (Standard: dbSeeChanges+dbSQLPassThrough)
	LockEdit	DAO.LockTypeEnum (Standard: dbOptimistic)

Rückgabe:: DAO.Recordset

Sub RelinkPassThroughQuery	(	ByVal QueryName As	String,
		Optional ByVal sConnectionString As	String
	)

Pass-Thorugh-Abfrage neu verknüpfen.

Parameter:

	QueryName	Abfrage im Frontend
	sConnectionString	Optionaler ODBC-Connectionstring

Mit sConnectionString kann vermieden werden, dass Benutzer u. Passwort gespeichert werden.

Sub RelinkTable	(	ByVal LinkedTableName As	String,
		Optional ByVal bSavePWD As	Boolean = `False`
	)

Verküpfte Tabelle mit möglicher Änderung der Server-Daten neu verknüpfen.

Parameter:

	LinkedTableName	Tabelle im Frontend
	bSavePWD	ODBC-Passwort in Tabellenverknüpfung speichern

Die TableDef-Eigenschaften SourceTableName wird nicht geändert

Function RelinkTablesAndQueries	(	Optional ByVal bSavePWD As	Boolean = `False`,
		Optional ByVal lEventCounter As	Long = `0`,
		Optional ByVal sConnectionString As	String = `vbNullString`
	)

Mehrere verknüpfte Tabellen und Pass-Through-Abfragen neu verknüpfen.

Parameter:

	bSavePWD	ODBC-Passwort in Tabellenverknüpfung speichern
	lEventCounter	Hilfsparamter für Wertübergabe: Anzahl der Verknüpften Elemente für DbObjectRelinked-Ereignisaufruf
	sConnectionString	Optionaler ODBC-Connectionstring

Je nach Einstellung von lEventCounter wird das Ereignis DbObjectRelinked ausgelöst (0 = kein Ereignisaufruf, 1 = nach jedem Element Ereignis auslösen, 5 nach jedem 5. Element Ereignis auslösen,...). Mit sConnectionString kann vermieden werden, dass Benutzer u. Passwort gespeichert werden.

Die Dokumentation für diese Klasse wurde erzeugt aufgrund der Datei:

OdbcHandler.bas

OdbcHandler Klassenreferenz

Öffentliche Methoden

Ausführliche Beschreibung

Dokumentation der Elementfunktionen