Devolve uma Variante (Número Inteiro) que indica o resultado de uma expressão de cadeia.
Sintaxe
StrComp(string1, string2 [, compare ] )
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 o argumento de comparaçãofor Nulo, ocorre 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 de comparação são:
| Constante | Valor | Descrição |
|---|---|---|
| vbBinaryCompare | 0 | Efetua uma comparação binária. |
| vbTextCompare | 1 | Efetua uma comparação textual. |
Valores Devolvidos
A função StrComp tem os seguintes valores de retorno:
| Se | Devoluções StrComp |
|---|---|
| cadeia1 é menor que cadeia2 | -1 |
| cadeia1 é igual a cadeia2 | 0 |
| cadeia1 é maior que cadeia2 | 1 |
| cadeia1 ou cadeia2 é Nula | 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 ComparaçãoResult. "ProductID" é igual a "PRO_XYZ10", a função StrComp irá devolver 0. Se "IDDoProduto" for menor que "PRO_XYZ10", a função CompCad devolverá -1. Se "IDDoProduto" 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 do VBA
Nota
Os exemplos seguintes demonstram a utilização desta função no 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, é 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.