Startseite > Tipps & Tricks > Wizhook-Objekt > AnalyzeQuery
Team-Moeller.de - Datenbankentwicklung und mehr ...

AnalyzeQuery

AnalyzeQuery
Access-Versionen

Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010

Funktion

Mit dieser Funktion untersucht der "Assistent zur Leistungsanalyse" Abfragen.

Deklaration

Function AnalyzeQuery(Workspace As Workspace, Database As Database, Query As String, Results As String) As Long

Argumente
Workspace   DAO.Workspace-Objekt, in dem sich die Datenbank befindet
Database   DAO.Datenbank-Objekt, das die zu untersuchende Abfrage enthält
Query   Name der Abfrage
Results   Hier werden die Ergebnisse der Analyse zurückgegeben.
Die einzelnen Teile des Strings sind durch Chr$(1) voneinander getrennt.
Rückgabewert

Scheinbar ist der Rückgabewert immer "0".

Code-Beispiel
Dim pdbe As DAO.PrivDBEngine
Dim db As DAO.Database
Dim wrk As DAO.Workspace
Dim strQuery As String
Dim strResults As String
Dim lngErgebnis As Long
Dim astrErgebnis() As String
Dim intI As Integer

'Initialisieren
Set pdbe = New DAO.PrivDBEngine
Set wrk = pdbe.CreateWorkspace("MyWorkSpace", "Admin", "", dbUseJet)
Set db = wrk.OpenDatabase(Me!txtPfad & Me!txtNameDB)
strQuery = Me!txtAbfrage

'Ergebnis ermitteln
WizHook.Key = 51488399
lngErgebnis = WizHook.AnalyzeQuery(wrk, db, strQuery, strResults)

'Ausgabe der Ergebnisse
If Len(strResults) > 0 Then
  astrErgebnis() = Split(strResults, Chr$(1))
  For intI = 0 To UBound(astrErgebnis())
    MsgBox astrErgebnis(intI), vbInformation, "Ergebnis: " & lngErgebnis
  Next intI
Else
  MsgBox "Der Analyzer liefert keine Ergebnisse", vbExclamation
End If

db.Close
Set db = Nothing
wrk.Close
Set wrk= Nothing
Set pdbe = Nothing 
Hinweise

- - -

Microsoft MVP - Thomas Möller


02.10.2020:
TM-AbhängigeObjekte
Version 4.03 bereitgestellt.


06.11.2019:
TM VBA-Inspector:
Lösung für Installationsproblem dokumentiert.


06.05.2017:
TM-VBALineNumbers
Version 1.29.01 bereitgestellt.


27.03.2016:
TM VBA-Inspector:
Installationsroutine überarbeitet.


23.05.2014:
TM-RebuildDatabase
Version 1.75 bereitgestellt.


Powered by CMSimple - Template by CMSimple-Styles.com - Autor:Thomas Möller