Zwraca wartość typu wariant (liczba całkowita) wskazującą wynik wyrażenie tekstowe.
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ównania to 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 |
Value (Wartość) |
Opis |
|
vbBinaryCompare |
0 |
Wykonuje porównanie binarne. |
|
vbTextCompare |
1 |
Wykonuje porównanie tekstowe. |
|
vbDatabaseCompare |
2 |
Microsoft Office Access 2007. Przeprowadza porównanie na podstawie informacji zawartych w bazie danych. |
Zwracane wartości
Funkcja StrComp ma następujące zwracane wartości:
|
If |
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
|
Expression |
Wyniki |
|
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.
