Vrátí hodnotu typu Variant(integer),která udává výsledek Řetězcový výraz.
Syntaxe
StrComp ( řetězec1, řetězec2 [, porovnání ] )
Syntaxe funkce StrComp obsahuje následující argumenty:
|
Argument |
Popis |
|
Řetězec1 |
Povinný argument. Libovolný platný řetězcový výraz. |
|
Řetězec2 |
Povinný argument. Libovolný platný řetězcový výraz. |
|
porovnání |
Nepovinný argument. Určuje typ porovnání řetězců. Pokud je Argument Null, dojde k chybě. Pokud porovnání vysíláte, určuje typ porovnání nastavení Option Compare. |
Nastavení
Nastavení argumentů porovnání:
|
Konstanta |
Hodnota |
Popis |
|
vbBinaryCompare |
0 |
Provede binární porovnání. |
|
vbTextCompare |
1 |
Provede textové porovnání. |
|
vbDatabaseCompare |
2 |
Microsoft Office Access 2007 jenom na to. Provede porovnání na základě informací v databázi. |
Vrácené hodnoty
Funkce StrComp má následující vrácené hodnoty:
|
Pokud |
Funkce StrComp vrátí |
|
Řetězec1 je menší než řetězec2 |
-1 |
|
Řetězec1 se rovná řetězci2 |
0 |
|
Řetězec1 je větší než řetězec2 |
1 |
|
Řetězec1 nebo řetězec2 je Null |
Null |
Příklad dotazu
|
Výraz |
Výsledky |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Vrátí hodnoty z pole IDVýsledku, porovná hodnoty v poli IDVýsledku s textem PRO_XYZ1 a vrátí výsledky ve sloupci ComparisonResult. "ID_produktu" se rovná "PRO_XYZ10", funkce StrComp vrátí 0. Pokud je "ID_výrobku" menší než "PRO_XYZ10", funkce StrComp vrátí -1. Pokud je "ID_výrobku" větší než "PRO_XYZ10", funkce StrComp vrátí 1. Pokud má "ID_produktu" nebo "PRO_XYZ10" hodnotu NULL, funkce StrComp vrátí hodnotu NULL. |
Příklad jazyka VBA
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications).
V tomto příkladu se funkce StrComp použije k vrácení výsledků porovnání řetězců. Pokud je třetí argument 1, provede se textové porovnání. Pokud je třetí argument 0 nebo není vynechán, provede se binární porovnání.
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.
