Zwraca wartość typu wariant (liczba całkowita) wskazującą wynik wyrażenia ciągu.
Składnia
StrComp(ciąg1; ciąg2 [, porównanie ] )
W składni funkcji StrComp występują następujące argumenty:
| Argument | Opis |
|---|---|
| ciąg1 | Argument wymagany. Dowolne prawidłowe wyrażenie ciągu. |
| ciąg2 | Argument wymagany. Dowolne prawidłowe wyrażenie ciągu. |
| Porównać | Argument opcjonalny. Określa typ porównania ciągów. Jeśli argument porównajma wartość Null, występuje błąd. Jeśli argument porównanie zostanie pominięty, ustawienie Porównywanie opcji określa typ porównania. |
Ustawienia
Ustawienia argumentów porównania to:
| Stała | Wartość | Opis |
|---|---|---|
| vbBinaryCompare | 0 | Wykonuje porównanie binarne. |
| vbTextCompare | 1 | Wykonuje porównanie tekstowe. |
Zwracane wartości
Funkcja StrComp ma następujące zwracane wartości:
| Jeśli | Funkcja StrComp zwraca wartość |
|---|---|
| ciąg1 jest mniejszy niż ciąg2 | -1 |
| ciąg1 jest równy ciągowi2 | 0 |
| ciąg1 jest większy niż ciąg2 | 1 |
| ciąg1 lub ciąg2 to Null | Null |
Przykład kwerendy
| Wyrażenie | Rezultat |
|---|---|
| SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; | Zwraca wartości z pola "ProductID" i porównuje wartości w kolumnie "ProductID" z wartością "PRO_XYZ1" i zwraca wyniki w kolumnie Porównanie. Wartość "ProductID" jest równa "PRO_XYZ10", funkcja StrComp zwróci wartość 0. Jeśli wartość "ProductID" jest mniejsza niż "PRO_XYZ10", funkcja StrComp zwróci wartość -1. Jeśli wartość "ProductID" jest większa niż "PRO_XYZ10", funkcja StrComp zwróci wartość 1. Jeśli wartość "ProductID" lub "PRO_XYZ10" to NULL, funkcja StrComp zwróci wartość NULL. |
Przykład języka VBA
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA).
W tym przykładzie użyto funkcji StrComp w celu zwrócenia wyników porównania ciągów. Jeśli trzeci argument ma wartość 1, wykonywane jest porównanie tekstowe. jeśli trzeci argument ma wartość 0 lub jest pominięty, wykonywane jest porównanie binarne.
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.