Gibt einen Wert vom Typ Variant (Integer) zurück, der das Ergebnis eines Zeichenfolgenausdrucks 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 das Compare-ArgumentNull 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.