SQL-Hilfsfunktionen #

Funktionen zur sicheren Erstellung von SQL-Ausdrücken und zur Datenbankverbindung.

SqlString #

SqlString(Value: String): String

Wandelt einen String in einen SQL-sicheren String um (Hochkommas werden verdoppelt, der Wert wird in Hochkommas eingeschlossen). Schützt vor SQL-Injection.

Dim sql, name
name = "O'Brien"
sql = "SELECT * FROM Adresse WHERE Match = " & ellib.SqlString(name)
' Ergebnis: "SELECT * FROM Adresse WHERE Match = N'O''Brien'"

SqlBinary #

SqlBinary(Value: Variant): String

Wandelt ein Byte-Array in einen SQL-Hex-String um (z.B. 0x4F6E...), der direkt in SQL-INSERT/UPDATE-Statements verwendet werden kann.

SqlBit #

SqlBit(Value: Variant): String

Wandelt einen Wert in “1” oder “0” um, passend für SQL-BIT-Felder.

Dim sql
sql = "UPDATE Artikel SET Aktiv = " & ellib.SqlBit(True) & " WHERE Id = 4711"
' Ergebnis: "UPDATE Artikel SET Aktiv = 1 WHERE Id = 4711"

StrIsTrue #

StrIsTrue(Value: Variant): Boolean

Prüft, ob ein Wert als “wahr” interpretiert werden kann. Behandelt Null, Empty, Nothing und verschiedene String-Repräsentationen korrekt.

ellib.StrIsTrue("1")     ' True
ellib.StrIsTrue("Ja")    ' True
ellib.StrIsTrue("True")  ' True
ellib.StrIsTrue("")       ' False
ellib.StrIsTrue(Null)     ' False
ellib.StrIsTrue(Nothing)  ' False

BytesToHex #

BytesToHex(Value: Variant, Prefix: String): String

Wandelt ein Byte-Array in einen Hex-String um.

Dim hex
hex = ellib.BytesToHex(bytes, "0x")
' Ergebnis z.B.: "0x4F6E6C696E65"

CreateConnection #

CreateConnection(Options: String): ADODB.Connection

Erstellt eine neue ADODB-Datenbankverbindung zur EULANDA-Datenbank.

Dim conn
Set conn = ellib.CreateConnection("")
' conn kann für eigene SQL-Abfragen verwendet werden

DebugOut #

DebugOut(Module: String, Message: String)

Schreibt eine Debug-Meldung in das EULANDA-Protokoll. Nur aktiv wenn ein DebugLevel für das Modul gesetzt ist.

ellib.DebugOut "MeinScript", "Verarbeitung gestartet"

ErrorOut #

ErrorOut(Module: String, Message: String)

Schreibt eine Fehlermeldung in das EULANDA-Protokoll.

GetDebugLevel #

GetDebugLevel(Module: String): String

Liest den DebugLevel eines Moduls aus der Session-Registry. Mögliche Werte: Leerstring (aus), “NORMAL”, “VERBOSE”.

OpenFile #

OpenFile(Filename: String)

Öffnet eine Datei mit der zugeordneten Windows-Anwendung (wie Doppelklick im Explorer).

ellib.OpenFile "C:\Temp\bericht.pdf"

CodesToStr #

CodesToStr(Value: String): String

Wandelt Codes in einen lesbaren String um.