Diskussionsgruppe: Datenbanken
Hallo zusammen,
ich möchte auf unserer Datenbank eine E-Mail-Adressprüfung durchführen. Dabei liegt mir eine Liste vor, welche Buchstaben, Symbole und Zahlen in E-Mail-Adressen generell vorkommen dürfen.
Wie kann ich dabei folgendes abfragen?
Selektiere alle E-Mail-Adressen, die ein oder mehrere Zeichen enthalten, die sich NICHT in folgender Auflistung befinden:
a, b, c, d, e, f, g, h, i, j ,k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, -, ., _, @, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
Ist so etwas möglich?
Danke für eure Hilfe und Grüße
Ruben
Von: Ruben80 Datum: 21.03.2007, 15:14
Antwort 1
von RalfH vom 22.03.2007, 06:30
Guten Morgen Ruben,
Zitat:
Dabei liegt mir eine Liste vor, welche Buchstaben, Symbole und Zahlen in E-Mail-Adressen generell vorkommen dürfen.
Damit kannste arbeiten, ungefähr so:
Function Affedrinn()
Dim myUserAdresse
Dim myPosition
' Schritt 01: Lese die Adresse
myUserAdresse = InputBox("eMail Adresse eingeben bitte")
' Schritt 02: Test die Adresse auf den "@"
myPosition = InStr(myUserAdresse, "@")
If myPosition = 0 Then
' kein Affe drin --> Abbruch
'MsgBox "Adresse ungültig", vbCritical
Else
MsgBox "Adresse geprüft und OK", vbInformation
End If
End Function
Gruß Ralf
Antwort 2
von erik vom 22.03.2007, 13:15
Hallo Ruben,
sowas geht sehr einfach mit dem LIKE-Operator in Verbindung mit einem passenden Suchmuster. Das von dir gewünschte Ergebnis wird über das folgende Suchmuster erreicht:
If strMeineAdresse Like "*[!A-z0-9@_.-]*" Then
MsgBox"Ungültige Zeichen gefunden."
End If
Was man mit LIKE alles anstellen kann, steht ausführlich in der Hilfe beschrieben. Einfach nur mit der Maus auf das Like-Schlüsselwort klicken und F1 drücken.
Gruß
erik
Antwort 3
von erik vom 22.03.2007, 13:21
... das kann übrigens auch genauso in Abfragen eingesetzt werden. Dort heißt LIKE dann nur WIE.
SELECT Dies, Das
FROM Woher
WHERE Was Like "*[!A-z0-9@_.-]*";
|
07121
07122
07123
07124
07125
07126
07127
07128
|
