Devolve uma Variante (Número Inteiro) que indica o resultado de um expressão de cadeia.
Sintaxe
StrComp ( cadeia1; cadeia2 [, comparar ] )
A sintaxe da função StrComp tem estes argumentos:
|
Argumento |
Descrição |
|
cadeia1 |
Obrigatório. Qualquer expressão de cadeia válida. |
|
cadeia2 |
Obrigatório. Qualquer expressão de cadeia válida. |
|
comparar |
Opcional. Especifica o tipo de comparação de cadeias. Se oargumentode comparação for Nulo, ocorrerá um erro. Se comparar for omitido, a definição Comparação de Opções determina o tipo de comparação. |
Definições
As definições do argumento comparar são:
|
Constante |
Valor |
Descrição |
|
vbBinaryCompare |
0 |
Efetua uma comparação binária. |
|
vbTextCompare |
1 |
Efetua uma comparação textual. |
|
vbDatabaseCompare |
2 |
sóMicrosoft Office Access 2007. Efetua uma comparação com base nas informações na sua base de dados. |
Valores Devolvidos
A função StrComp tem os seguintes valores devolvidos:
|
Se |
StrComp devolve |
|
string1 é menor que cadeia2 |
-1 |
|
string1 é igual a cadeia2 |
0 |
|
string1 é maior que cadeia2 |
1 |
|
string1 ou string2 é Nulo |
Null |
Exemplo de consulta
|
Expressão |
Resultados |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Devolve os valores do campo "IDDoProduto", compara os valores em "IDDoProduto" com "PRO_XYZ1" e devolve os resultados na coluna ComparisonResult. "ProductID" é igual a "PRO_XYZ10", a função StrComp devolverá 0. Se "ProductID" for inferior a "PRO_XYZ10", a função StrComp devolverá -1. Se "ProductID" for maior do que "PRO_XYZ10", a função StrComp devolverá 1. Se "ProductID" ou "PRO_XYZ10" for NULL, a função StrComp devolverá NULL. |
Exemplo de VBA
Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications).
Este exemplo utiliza a função StrComp para devolver os resultados de uma comparação de cadeias. Se o terceiro argumento for 1, é realizada uma comparação textual; se o terceiro argumento for 0 ou omitido, é efetuada uma comparação binária.
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.
