Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Datenbanken

Datenbanken

Fragevon Ruben80 vom 21.03.2019, 15:14 Options

E-Mail-Adressen, in denen nur folgende Zeichen vorkommen...

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

Antwort schreiben

Antwort 1 von RalfH vom 22.03.2019, 06:30 Options

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.2019, 13:15 Options

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.2019, 13:21 Options

... 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@_.-]*";

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken