Returnerer en variant (heltall) som angir resultatet av en strenguttrykk.
Syntaks
StrComp ( string1, string2 [, compare ] )
Syntaksen for funksjonen StrComp har følgende argumenter:
|
Argument |
Beskrivelse |
|
streng1 |
Obligatorisk. Et gyldig strenguttrykk. |
|
streng2 |
Obligatorisk. Et gyldig strenguttrykk. |
|
sammenlign |
Valgfritt. Angir typen strengsammenligning. Hvis sammenlign -argument er Null, oppstår det en feil. Hvis sammenligning utelates, bestemmer innstillingen For sammenligning av alternativ sammenligning sammenligningstypen. |
Innstillinger
Innstillingene for sammenligningsargumentet er:
|
Konstant |
Value |
Beskrivelse |
|
vbBinaryCompare |
0 |
Utfører en binær sammenligning. |
|
vbTextCompare |
1 |
Utfører en tekstsammenligning. |
|
vbDatabaseCompare |
2 |
bareMicrosoft Office Access 2007. Utfører en sammenligning basert på informasjon i databasen. |
Returner verdier
StrComp-funksjonen har følgende returverdier:
|
If |
StrComp returnerer |
|
streng1 er mindre enn streng2 |
-1 |
|
streng1 er lik streng2 |
0 |
|
streng1 er større enn streng2 |
1 |
|
streng1 eller streng2 er Null |
Null |
Eksempel på spørring
|
Expression |
Resultater |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Returnerer verdiene fra feltet «ProductID», sammenligner verdiene i «ProductID» med «PRO_XYZ1» og returnerer resultatene i kolonnen ComparisonResult. "ProductID" er lik "PRO_XYZ10", vil StrComp-funksjonen returnere 0. Hvis «ProductID» er mindre enn «PRO_XYZ10», returnerer StrComp-funksjonen -1. Hvis «ProductID» er større enn «PRO_XYZ10», returnerer StrComp-funksjonen 1. Hvis «ProductID» eller «PRO_XYZ10» er NULL, returnerer StrComp-funksjonen NULL. |
VBA-eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications).
Dette eksemplet bruker StrComp-funksjonen til å returnere resultatene av en strengsammenligning. Hvis det tredje argumentet er 1, utføres en tekstsammenligning. Hvis det tredje argumentet er 0 eller utelates, utføres en binær sammenligning.
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.
