Restituisce un valore Variant (Integer) che indica il risultato di un espressione stringa.
Sintassi
StrComp ( stringa1; stringa2 [, confronto ] )
La sintassi della funzione StrComp ha gli argomenti seguenti:
|
Argomento |
Descrizione |
|
stringa1 |
Obbligatorio. Qualsiasi espressione stringa valida. |
|
stringa2 |
Obbligatorio. Qualsiasi espressione stringa valida. |
|
compare |
Facoltativo. Specifica il tipo di confronto tra stringhe. Se il argomento di confronto è Null, si verifica un errore. Se confronta viene omesso, l'impostazione Confronto opzioni determina il tipo di confronto. |
Impostazioni
Le impostazioni dell'argomento compare sono:
|
Costante |
Valore |
Descrizione |
|
vbBinaryCompare |
0 |
Esegue un confronto binario. |
|
vbTextCompare |
1 |
Esegue un confronto di testo. |
|
vbDatabaseCompare |
2 |
Solo per Microsoft Office Access 2007. Esegue un confronto basato sulle informazioni del database. |
Valori restituiti
La funzione StrComp ha i seguenti valori restituiti:
|
If |
StrComp restituisce |
|
stringa1 è minore di stringa2 |
-1 |
|
stringa1 è uguale a stringa2 |
0 |
|
stringa1 è maggiore di stringa2 |
1 |
|
stringa1 o stringa2 è Null |
Null |
Esempio di query
|
Espressione |
Risultati |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Restituisce i valori dal campo "IDProdotto", confronta i valori in "IDProdotto" con "PRO_XYZ1" e restituisce i risultati nella colonna ComparisonResult. "IDProdotto" è uguale a "PRO_XYZ10", la funzione StrComp restituirà 0. Se "PRODUCTID" è minore di "PRO_XYZ10", la funzione StrComp restituirà -1. Se "PRODUCTID" è maggiore di "PRO_XYZ10", la funzione StrComp restituirà 1. Se "ProductID" o "PRO_XYZ10" è NULL, la funzione StrComp restituirà NULL. |
Esempio di VBA
Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA).
Questo esempio usa la funzione StrComp per restituire i risultati di un confronto tra stringhe. Se il terzo argomento è 1, viene eseguito un confronto testuale; se il terzo argomento è 0 o è omesso, viene eseguito un confronto binario.
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.
