Autorenhinweis

Die vorliegende Tool-Sammlung stammt von Christoph Jüngling <Juengling@edv3.de>.

Als Autoren der Tools zeichnen außer mir selbst diverse Leute aus meinem Bekanntenkreis verantwortlich, deren Namen und eMail-Adressen jeweils in der Dokumentation aufgeführt sind.

Der Programmcode ist frei nutzbar. Es wird keinerlei Haftung oder Garantie für ein einwandfreies Funktionieren übernommen.

Inhaltsverzeichnis

Modul: Allgemeine Tools
Abfragetyp
AccessVersion
AppendListe
BetweenStr
Changed
cm_to_twips
ControlFürFeld
ExportiereCode
ExportiereModuleUndAbfragen
ExProt
ExtrahiereMeldung
InitMeter
LiesDBProperty
LöscheDBProperty
Modultyp
Prozent
RemoveMeter
Replace
Runden
Sanduhr
SetzeDbProperty
TStr
twips_to_cm
UpdateMeter
Modul: Beispiele zu clsDirectory
Beispiel1
Beispiel2
Modul: clsDirectory
Class_Initialize
Get BOF
Get Count
Get DateTime
Get EOF
Get Length
Get Name
Get Path
Get SearchString
Let SearchString
MoveFirst
MoveLast
MoveNext
MovePrevious
Requery
xExploreFileSystem
Modul: HTML-Tools
HTMLAusgabe
Modul: SQL-Tools
CallSQL
Date2SQLStr
Extr_Attribute
Extr_Bedingung
Extr_TabName
PassThrough
SqlDateToStr
StrToDatestr
TimeStamp2SQLStr

Funktionsbeschreibungen

Modul Allgemeine Tools

Public Function Abfragetyp

Aufgabe: Liefert den Abfragetyp als String
Autor: Christoph Juengling <Juengling@edv3.de>
Ergebnis: Beschreibung des Typs
Parameter: intType: numerischer Typ
Zurück zum Inhalt

Public Function AccessVersion

Aufgabe: Ermittle die aktuelle Access-Versionsnummer
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Bemerkung: Da nur die Version der DBEngine ermittelt werden kann, wird folgendes angenommen: Access2 : DBEngine 2.0 & 2.5 => Rückgabewert = 2 Access7 : DBEngine 3.0 => Rückgabewert = 7
Ergebnis: Hoffentlich die richtige Access-Versionsnummer ;-)
Zurück zum Inhalt

Public Function AppendListe

Aufgabe: Hänge das "Element" an die "Liste" an unter Verwendung des "Trenner"s.
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Zurück zum Inhalt

Public Function BetweenStr

Aufgabe: Liefert den Teilstring zwischen den beiden Begrenzern
Autor: Christoph Jüngling <Juengling@edv3.de>
Bemerkung: Groß- und Kleinschreibung wird nicht unterschieden
Zurück zum Inhalt

Public Function Changed

Aufgabe: Prüft Veränderung der beiden übergebenen Werte unter Berücksichtigung von NULL-Werten
Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: TRUE/FALSE
Parameter: Wert1, Wert2: zu prüfende Werte
Zurück zum Inhalt

Public Function cm_to_twips

Aufgabe: Umrechnung von cm in Twips
Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: in Twips
Parameter: cm: Zentimeter
Zurück zum Inhalt

Public Function ControlFürFeld

Aufgabe: Prüfe, ob auf dem Formular ein sichtbares Control mit dem Feldnamen als Controlsource existiert
Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Name des Controls, oder Leerstring
Parameter: ActForm: Zu überprüfendes Formular Feldname: Zu überprüfender Feldname
Zurück zum Inhalt

Public Function ExportiereCode

Aufgabe: Exportiert alle Module (auch CBF) und Abfragen
Autor: Christoph Juengling <Juengling@edv3.de>
Parameter: Module: Modulcode exportieren? CBF: Code Behind Forms exportieren? Abfragen: Abfragen exportieren (nur SQL)?
Zurück zum Inhalt

Public Function ExportiereModuleUndAbfragen

Aufgabe: Exportiert alle Module (auch CBF) und Abfragen
Autor: Christoph Juengling <Juengling@edv3.de>
Parameter: Module: Modulcode exportieren? CBF: Code Behind Forms exportieren? Abfragen: Abfragen exportieren (nur SQL)?
Zurück zum Inhalt

Public Static Sub ExProt

Aufgabe: Ausgabe eines Protokolls in eine externe Datei
Autor: Christoph Jüngling <Juengling@edv3.de>
Parameter: Aktion: [Datei | Protokoll | Ende] Meldung: Zusätzliche Meldung ausgeben
Zurück zum Inhalt

Public Function ExtrahiereMeldung

Aufgabe: Extrahiere den benötigten Fehlertext aus der ODBC-Fehlermeldung
Autor: Frank Schepke <Schepke_Frank@t-online.de>, Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Zentrale Meldung des übergebenen Strings
Parameter: s: Zu interpretierender String
Zurück zum Inhalt

Public Sub InitMeter

Aufgabe: Initialisierung des Laufbalkenzählers und Anzeige
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Function LiesDBProperty

Aufgabe: Lies ein Datenbankproperty aus der aktuellen Datenbank.
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Sub LöscheDBProperty

Aufgabe: Lösche ein Datenbankproperty
Autor: Christoph Jüngling <Juengling@edv3.de>
Parameter: Propname: Name des Properties
Zurück zum Inhalt

Public Function Modultyp

Aufgabe: Liefert den Modultyp als String
Autor: Christoph Juengling <Juengling@edv3.de>
Ergebnis: Beschreibung des Typs
Parameter: intType: numerischer Typ
Zurück zum Inhalt

Public Function Prozent

Aufgabe: Berechnet einen prozentualen Auf-/Abschlag auf den Wert
Autor: Frank Schepke <Schepke_Frank@t-online.de>, Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Prozentwert
Parameter: (selbsterklärend)
Zurück zum Inhalt

Public Sub RemoveMeter

Aufgabe: Entfernen des Laufbalkenzählers
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Function Replace

Aufgabe: Ersetze im String s den Teilstring alt durch den Teilstring neu.
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Ergebnis: Ersetzter String
Parameter: s: String, in dem ersetzt werden soll alt: Text im String, der ersetzt werden soll neu: Text, durch den "alt" ersetzt werden soll
Zurück zum Inhalt

Public Function Runden

Aufgabe: Rundet den übergebenen Wert auf die spezifizierte Anzahl NKS
Autor: Frank Schepke <Schepke_Frank@t-online.de>, Christoph Jüngling <Juengling@edv3.de>
Parameter: Wert: Originalwert NKS: Nachkommastellen
Zurück zum Inhalt

Public Function Sanduhr

Aufgabe: Schalte die Sanduhr ein bzw. aus
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Parameter: modus: gewünschter Modus (TRUE oder FALSE)
Zurück zum Inhalt

Sub SetzeDbProperty

Aufgabe: Setze den Wert eines Datenbankproperties. Falls dieses nicht vorhanden ist, wird es neu angelegt.
Autor: Christoph Jüngling <Juengling@edv3.de>
Parameter: Propname: Name des Properties Propvalue: Wert des Properties
Zurück zum Inhalt

Public Function TStr

Aufgabe: "TStr()" liefert einen Teilstring aus "Info", und zwar die "Rubrik". Mehrere Rubriken sind durch jeweils ein "Trenner"-Zeichen getrennt.
Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Gesuchte Rubrikeninformation oder Leerstring
Zurück zum Inhalt

Public Function twips_to_cm

Aufgabe: Umrechnung von Twips in cm
Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: in cm
Parameter: Twips: Twips
Zurück zum Inhalt

Public Sub UpdateMeter

Aufgabe: Erhöhung des Laufbalkenzählers um 1 und Aktualisierung
Autor: Christoph Jüngling <Juengling@edv3.de>

Modul Beispiele zu clsDirectory

Zurück zum Inhalt

Public Sub Beispiel1

Aufgabe: Zeigt grundlegende Funktionen der Klasse clsDirectory auf
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Sub Beispiel2

Aufgabe: Zwei Instanzen der Klasse clsDirectory parallel benutzen
Autor: Christoph Jüngling <Juengling@edv3.de>

Klassenmodul clsDirectory

Zurück zum Inhalt

Private Sub Class_Initialize

Aufgabe: Initialisierung der Instanz
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Property Get BOF

Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: True, wenn Zeiger vor dem Beginn der Dateiliste steht
Zurück zum Inhalt

Public Property Get Count

Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Anzahl der gefundenen Dateien
Zurück zum Inhalt

Public Property Get DateTime

Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Änderungszeitpunkt der aktuellen Datei
Zurück zum Inhalt

Public Property Get EOF

Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: True, wenn Zeiger hinter dem Ende der Dateiliste steht
Zurück zum Inhalt

Public Property Get Length

Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Länge der aktuellen Datei in Bytes
Zurück zum Inhalt

Public Property Get Name

Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Liefert den aktuellen Dateinamen
Zurück zum Inhalt

Public Property Get Path

Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Pfad der aktuellen Datei
Zurück zum Inhalt

Public Property Get SearchString

Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Liefert die aktuelle Suchmaske
Zurück zum Inhalt

Public Property Let SearchString

Aufgabe: Legt die aktuelle Suchmaske neu fest und liest Dateiliste erneut ein
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Sub MoveFirst

Aufgabe: Bewegt den Zeiger zum ersten Element
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Sub MoveLast

Aufgabe: Bewegt den Zeiger zum letzten Element
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Sub MoveNext

Aufgabe: Bewegt den Zeiger zum nächsten Element
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Sub MovePrevious

Aufgabe: Bewegt den Zeiger zum vorherigen Element
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Public Sub Requery

Aufgabe: Erneutes Einlesen der Dateiliste veranlassen
Autor: Christoph Jüngling <Juengling@edv3.de>
Zurück zum Inhalt

Private Sub xExploreFileSystem

Aufgabe: Erneutes Einlesen der Dateiliste
Autor: Christoph Jüngling <Juengling@edv3.de>

Modul HTML-Tools

Zurück zum Inhalt

Public Function HTMLAusgabe

Aufgabe: HTML-konforme Ausgabe eines Textes in eine Datei
Autor: Christoph Jüngling <Juengling@edv3.de>
Bemerkung: Es werden zur Zeit nur die deutschen Umlaute ersetzt
Ergebnis: Konvertierter Text
Parameter: Datei: Dateinummer für "print #"-Anweisung Text: Auszugebender Text

Modul SQL-Tools

Zurück zum Inhalt

Public Function CallSQL

Aufgabe: Führe einen SQL-Befehl durch
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Ergebnis: wenn alles OK, dann Leerstring, sonst Fehlermeldung
Parameter: SQL: Der auszuführende SQL-String
Zurück zum Inhalt

Public Function Date2SQLStr

Aufgabe: Wandle ein Datum in ein SQL-String um
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Ergebnis: Datum als String im SQL-Format
Parameter: d: Datum
Zurück zum Inhalt

Public Function Extr_Attribute

Aufgabe: Extrahiert aus einem SQL-String die Attributliste
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Bemerkung: Die SELECT-Strings dürfen mit SELECT oder SELECT DISTINCT beginnen.
Ergebnis: Attributliste
Parameter: SQL: zu analysierender SQL-String
Zurück zum Inhalt

Public Function Extr_Bedingung

Aufgabe: Extrahiere die WHERE-Klausel aus einem SQL-String
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Ergebnis: Bedingungen
Parameter: SQL: zu analysierender SQL-String
Zurück zum Inhalt

Public Function Extr_TabName

Aufgabe: Extrahiere die Tabellennamen aus einem SELECT-String
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Bemerkung: Es wird der Teilstring zwischen den Schlüsselwörtern FROM und WHERE/ORDER BY gebildet
Ergebnis: Tabellennamen
Parameter: SQL: zu analysierender SQL-String
Zurück zum Inhalt

Public Function PassThrough

Aufgabe: Führe eine PassThrough-Abfrage durch
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Parameter: modus: TRUE = Abfrage, FALSE = Befehl sql: SQL-String
Zurück zum Inhalt

Public Function SqlDateToStr

Aufgabe: Wandelt ein Datum von SQL-Syntax in einen lesbaren String um
Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Datum als String
Parameter: SqlDatum: Datum in SQL-Syntax
Zurück zum Inhalt

Public Function StrToDatestr

Aufgabe: Wandelt einen Datums-String in SQL-Syntax um
Autor: Christoph Jüngling <Juengling@edv3.de>
Ergebnis: Datum als String
Parameter: DatumString: Datums-String op: Operator
Zurück zum Inhalt

Public Function TimeStamp2SQLStr

Aufgabe: Wandle ein Timestamp in ein SQL-String um
Autor: Frank Schepke <Schepke_Frank@t-online.de>
Ergebnis: Timestamp als String im SQL-Format
Parameter: d: Datum