TKSoft-Online

Ausführungszeit von Abfragen messen PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel MS-Access System und PC-System
Geschrieben von: TommyK   
Mittwoch, den 02. April 2008 um 06:00 Uhr
Tags:

Problemstellung:

Wie kann ich messen wie lange ein Abfrage dauert?

Folgenden Code in öffentliches Modul kopieren:


Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Function TimeShows(sAbfrage As String)
    Dim nStart As Long
    Dim nEnd As Long

    nStart = GetTickCount()
    DoCmd.OpenQuery sAbfrage
    nEnd = GetTickCount()
    TimeShows = CStr((nEnd - nStart) / 1000)
End Function

Aufruf z.B.:

  MsgBox TimeShows("Abfrage1")

DatumKlicks
Total1674
Mi. 233
Di. 222
Mo. 214
So. 203
Sa. 191
Fr. 183
Mi. 161
< Zurück   Weiter >
Aktualisiert ( Donnerstag, den 01. Juli 2010 um 12:40 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173461 Downloads