Retourneert een variant (geheel getal) die het resultaat van een reeksexpressie aangeeft.
Syntaxis
StrComp ( tekenreeks1; tekenreeks2 [, vergelijken ] )
De syntaxis van de functie StrComp heeft deze argumenten:
|
Argument |
Beschrijving |
|---|---|
|
tekenreeks1 |
Vereist. Elke geldige tekenreeksexpressie. |
|
tekenreeks2 |
Vereist. Elke geldige tekenreeksexpressie. |
|
vergelijken |
Optioneel. Hiermee geeft u het type tekenreeksvergelijking op. Als de vergelijkings -argument Null is, treedt er een fout op. Als vergelijken wordt weggelaten, bepaalt de instelling Optie vergelijken het type vergelijking. |
Instellingen
De instellingen voor het argument vergelijken zijn als volgt:
|
Constante |
Waarde |
Beschrijving |
|---|---|---|
|
vbBinaryCompare |
0 |
Hiermee wordt een binaire vergelijking uitgevoerd. |
|
vbTextCompare |
1 |
Hiermee wordt een tekstvergelijking uitgevoerd. |
Retourwaarden
De functie StrComp heeft de volgende retourwaarden:
|
Als |
StrComp retourneert |
|---|---|
|
tekenreeks1 is kleiner dan tekenreeks2 |
-1 |
|
tekenreeks1 is gelijk aan tekenreeks2 |
0 |
|
tekenreeks1 is groter dan tekenreeks2 |
1 |
|
tekenreeks1 of tekenreeks2 is Null |
Null |
Queryvoorbeeld
|
Expression |
Resultaten |
|---|---|
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductVerkoop; |
Retourneert de waarden uit het veld 'ProductID', vergelijkt de waarden in 'ProductID' met 'PRO_XYZ1' en retourneert de resultaten in kolom ComparisonResult. "ProductID" is gelijk aan "PRO_XYZ10", de functie StrComp retourneert 0. Als 'ProductID' kleiner is dan 'PRO_XYZ10', retourneert de functie StrComp -1. Als 'ProductID' groter is dan 'PRO_XYZ10', retourneert de functie StrComp 1. Als 'ProductID' of 'PRO_XYZ10' NULL is, retourneert de functie StrComp NULL. |
VBA-voorbeeld
Opmerking: In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht.
In dit voorbeeld wordt de functie StrComp gebruikt om de resultaten van een tekenreeksvergelijking te retourneren. Als het derde argument 1 is, wordt een tekstuele vergelijking uitgevoerd; als het derde argument 0 is of weggelaten, wordt een binaire vergelijking uitgevoerd.
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.
