Retorna uma Variant (Inteiro) indicando o resultado de um expressão de cadeia de caracteres.
Sintaxe
StrComp ( string1, string2 [, compare ] )
A sintaxe da função StrComp tem esses argumentos:
|
Argumento |
Descrição |
|
cadeia1 |
Obrigatório. Qualquer expressão de cadeia de caracteres válida. |
|
cadeia2 |
Obrigatório. Qualquer expressão de cadeia de caracteres válida. |
|
comparar |
Opcional. Especifica o tipo de comparação de cadeia de caracteres. Se oargumento de comparação for Nulo, ocorrerá um erro. Se a comparação for omitida, a configuração Comparação de Opções determinará o tipo de comparação. |
Configurações
As configurações de argumento de comparação são:
|
Constante |
Valor |
Descrição |
|
vbBinaryCompare |
0 |
Executa uma comparação binária. |
|
vbTextCompare |
1 |
Executa uma comparação textual. |
|
vbDatabaseCompare |
2 |
Microsoft Office Access 2007 somente. Executa uma comparação com base em informações em seu banco de dados. |
Valores retornados
A função StrComp tem os seguintes valores retornados:
|
If |
StrComp retorna |
|
string1 é menor que string2 |
-1 |
|
string1 é igual a string2 |
0 |
|
string1 é maior que string2 |
1 |
|
string1 ou string2 é Null |
Nulo |
Exemplo de consulta
|
Expressão |
Resultados |
|
SELECT ProductSales.ProductID, StrComp(ProductID"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Retorna os valores do campo "ProductID", compara os valores em "ProductID" com "PRO_XYZ1" e retorna os resultados na coluna ComparisonResult. "ProductID" é igual a "PRO_XYZ10", a função StrComp retornará 0. Se "ProductID" for menor que "PRO_XYZ10", a função StrComp retornará -1. Se "ProductID" for maior que "PRO_XYZ10", a função StrComp retornará 1. Se "ProductID" ou "PRO_XYZ10" for NULL, a função StrComp retornará NULL. |
Exemplo de VBA
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications).
Este exemplo usa a função StrComp para retornar os resultados de uma comparação de cadeia de caracteres. Se o terceiro argumento for 1, será realizada uma comparação textual; se o terceiro argumento for 0 ou omitido, uma comparação binária será executada.
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.
