Gibt einen Wert vom Typ Variant (Integer) zurück, der das Ergebnis einer Zeichenfolgenausdruck angibt.
Syntax
StrComp ( string1, string2 [, compare ] )
Die Syntax der Funktion StrComp weist die folgenden Argumente auf:
Argument |
Beschreibung |
---|---|
Zeichenfolge1 |
Erforderlich. Ein beliebiger gültiger Zeichenfolgenausdruck. |
Zeichenfolge2 |
Erforderlich. Ein beliebiger gültiger Zeichenfolgenausdruck. |
Vergleich |
Optional. Gibt den Typ des Zeichenfolgenvergleichs an. Wenn die Vergleichs -Argument NULL ist, tritt ein Fehler auf. Wenn vergleich nicht angegeben wird, bestimmt die Einstellung Option Compare den Typ des Vergleichs. |
Einstellungen
Die Einstellungen für das Argument Zeichenvergleich lauten:
Konstante |
Wert |
Beschreibung |
---|---|---|
vbBinaryCompare |
0 |
Führt einen binären Vergleich durch. |
vbTextCompare |
1 |
Führt einen Textvergleich durch. |
Rückgabewerte
Die StrComp-Funktion verfügt über die folgenden Rückgabewerte:
Wenn |
StrComp gibt zurück |
---|---|
string1 ist kleiner als string2 |
-1 |
string1 ist gleich string2 |
0 |
string1 ist größer als string2 |
1 |
string1 oder string2 ist Null |
Null |
Abfragebeispiel
Ausdruck |
Ergebnisse |
---|---|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Gibt die Werte aus dem Feld "ProductID" zurück, vergleicht die Werte in "ProductID" mit "PRO_XYZ1" und gibt die Ergebnisse in der Spalte ComparisonResult zurück. "ProductID" ist gleich "PRO_XYZ10", die StrComp-Funktion gibt 0 zurück. Wenn "ProductID" kleiner als "PRO_XYZ10" ist, gibt die StrComp-Funktion -1 zurück. Wenn "ProductID" größer als "PRO_XYZ10" ist, gibt die StrComp-Funktion 1 zurück. Wenn "ProductID" oder "PRO_XYZ10" NULL ist, gibt die StrComp-Funktion NULL zurück. |
VBA-Beispiel
Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications).
In diesem Beispiel wird die StrComp-Funktion verwendet, um die Ergebnisse eines Zeichenfolgenvergleichs zurückzugeben. Wenn das dritte Argument 1 ist, wird ein Textvergleich durchgeführt. Wenn das dritte Argument 0 ist oder ausgelassen wird, wird ein binärer Vergleich durchgeführt.
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, 1) ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1) ' Returns 1.