Devuelve un tipo de datos Variant (Integer) que indica el resultado de una expresión de cadena.
Sintaxis
StrComp(string1, string2 [, compare ] )
La sintaxis de la función StrComp tiene estos argumentos:
| Argumento | Descripción |
|---|---|
| cadena1 | Obligatorio. Cualquier expresión de cadena válida. |
| cadena2 | Obligatorio. Cualquier expresión de cadena válida. |
| comparar | Opcional. Especifica el tipo de comparación de cadenas. Si el argumento comparares Null, se producirá un error. Si comparar se omite, el valor Comparación de opciones determina el tipo de comparación. |
Configuración
La configuración de los argumentos de comparación es la siguiente:
| Constante | Valor | Descripción |
|---|---|---|
| vbBinaryCompare | 0 | Realiza una comparación binaria. |
| vbTextCompare | 1 | Realiza una comparación textual. |
Valores devueltos
La función StrComp tiene los siguientes valores devueltos:
| Si | StrComp devuelve |
|---|---|
| cadena1 es menor que cadena2 | -1 |
| cadena1 es igual a cadena2 | 0 |
| cadena1 es mayor que cadena2 | 1 |
| cadena1 o cadena2 es Null | Nulo |
Ejemplo de consulta
| Expresión | Resultados |
|---|---|
| SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; | Devuelve los valores del campo "IdProducto", compara los valores de "IdProducto" con "PRO_XYZ1" y devuelve los resultados en la columna ComparisonResult. "IdProducto" es igual a "PRO_XYZ10", la función StrComp devolverá 0. Si "IdProducto" es menor que "PRO_XYZ10", la función StrComp devolverá -1. Si "IdProducto" es mayor que "PRO_XYZ10", la función StrComp devolverá 1. Si "IdProducto" o "PRO_XYZ10" es NULL, la función StrComp devolverá NULL. |
Ejemplo VBA:
Nota
Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA).
En este ejemplo se usa la función StrComp para devolver los resultados de una comparación de cadenas. Si el tercer argumento es 1, se realiza una comparación textual; si omite el tercer argumento o es 0, se realiza una comparación binaria.
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.