AnalyzeTable
AnalyzeTable
Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010
Mit dieser Funktion untersucht der "Assistent zur Leistungsanalyse" Tabellen.
Function AnalyzeTable(Workspace As Workspace, Database As Database, Table As String, ReturnDebugInfo As Boolean, Results As String) As Long
Workspace |
|
DAO.Workspace-Objekt, in dem sich die Datenbank befindet |
Database |
|
DAO.Datenbank-Objekt, das die zu untersuchende Tabelle enthält |
Table |
|
Name der Tabelle |
ReturnDebugInfo |
|
??? |
Results |
|
Hier werden die Ergebnisse der Analyse zurückgegeben.
Die einzelnen Teile des Strings sind durch Chr$(1) voneinander getrennt. |
Scheinbar ist der Rückgabewert immer "0".
Dim pdbe As DAO.PrivDBEngine
Dim db As DAO.Database
Dim wrk As DAO.Workspace
Dim strTable As String
Dim fInfo As Boolean
Dim strResults As String
Dim astrErgebnis() As String
Dim lngErgebnis As Long
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)
strTable = "Me!txtTabelle
'Ergebnis ermitteln
WizHook.Key = 51488399
lngErgebnis = WizHook.AnalyzeTable(wrk, db, strTable, fInfo, strResults)
'Ergebnisse anzeigen
If Len(strResults) > 0 Then
astrErgebnis() = Split(strResults, Chr$(1))
For intI = 0 To UBound(astrErgebnis())
MsgBox astrErgebnis(intI), vbInformation, "Ergebnis: " & lngErgebnis & _
" / " & fInfo
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
- - -