Vráti hodnotu typu Variant (Integer), ktorá označuje výsledok reťazcový výraz.
Syntax
StrComp ( reťazec1; reťazec2 [, porovnať ] )
Syntax funkcie StrComp obsahuje tieto argumenty:
|
Argument |
Popis |
|
reťazec1 |
Povinný argument. Ľubovoľný platný reťazcový výraz. |
|
reťazec2 |
Povinný argument. Ľubovoľný platný reťazcový výraz. |
|
compare |
Voliteľný argument. Určuje typ porovnania reťazcov. Ak je porovnávacíargument null, vyskytne sa chyba. Ak je porovnávanie vynechané, typ porovnania určuje nastavenie porovnania možností . |
Nastavenia
Nastavenia argumentu compare sú:
|
Konštanta |
Hodnota |
Popis |
|
vbBinaryCompare |
0 |
Vykonáva porovnanie na základe binárnych údajov. |
|
vbTextCompare |
1 |
Vykonáva textové porovnanie. |
|
vbDatabaseCompare |
2 |
Len pre Microsoft Office Access 2007. Vykonáva porovnanie na základe informácií v databáze. |
Vrátené hodnoty
Funkcia StrComp obsahuje nasledujúce vrátené hodnoty:
|
If |
Funkcia StrComp vráti |
|
reťazec1 je menší ako reťazec2 |
-1 |
|
reťazec1 sa rovná reťazcu2 |
0 |
|
reťazec1 je väčší ako reťazec2 |
1 |
|
reťazec1 alebo reťazec2 má hodnotu Null |
Null |
Príklad dotazu
|
Výraz |
Výsledky |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Vráti hodnoty z poľa "ProductID", porovná hodnoty v poli "ProductID" s hodnotou "PRO_XYZ1" a vráti výsledky v stĺpci ComparisonResult. "ProductID" sa rovná "PRO_XYZ10", funkcia StrComp vráti hodnotu 0. Ak je hodnota "ProductID" menšia ako "PRO_XYZ10", funkcia StrComp vráti hodnotu -1. Ak je hodnota "ProductID" väčšia ako "PRO_XYZ10", funkcia StrComp vráti hodnotu 1. Ak má parameter ProductID alebo PRO_XYZ10 hodnotu NULL, funkcia StrComp vráti hodnotu NULL. |
Príklad jazyka VBA
Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA).
V tomto príklade je funkcia StrComp použitá na vrátenie výsledkov porovnania reťazcov. Ak je tretí argument 1, vykoná sa textové porovnanie; ak je tretí argument 0 alebo vynechaný, vykoná sa binárne porovnanie.
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.
