Returnează o valoare variant (număr întreg) care indică rezultatul unei expresie șir.
Sintaxă
StrComp ( șir1, șir2 [, comparare ] )
Sintaxa funcției StrComp are următoarele argumente:
|
Argument |
Descriere |
|
șir1 |
Obligatoriu. Orice expresie șir validă. |
|
șir2 |
Obligatoriu. Orice expresie șir validă. |
|
Compara |
Opțional. Specifică tipul de comparație a șirurilor. Dacăargumentde comparare este Null, apare o eroare. Dacă comparare este omisă, setarea Comparare opțiuni determină tipul de comparație. |
Setări
Setările argumentelor de comparare sunt:
|
Constantă |
Valoare |
Descriere |
|
vbBinaryCompare |
0 |
Efectuează o comparație binară. |
|
vbTextCompare |
1 |
Efectuează o comparație textuală. |
|
vbDatabaseCompare |
2 |
doarMicrosoft Office Access 2007. Efectuează o comparație pe baza informațiilor din baza de date. |
Valori returnate
Funcția StrComp are următoarele valori returnate:
|
If |
StrComp returnează |
|
șir1 este mai mic decât șir2 |
-1 |
|
șir1 este egal cu șir2 |
0 |
|
șir1 este mai mare decât șir2 |
1 |
|
șir1 sau șir2 este Null |
Nul |
Exemplu de interogare
|
Expresie |
Rezultatele |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Returnează valorile din câmpul "IDProdus", compară valorile din "IDProdus" cu "PRO_XYZ1" și returnează rezultatele în coloana ComparisonResult. "IdProdus" este egal cu "PRO_XYZ10", funcția StrComp va returna 0. Dacă "ProductID" este mai mic decât "PRO_XYZ10", funcția StrComp va returna -1. Dacă "ProductID" este mai mare decât "PRO_XYZ10", funcția StrComp va returna 1. Dacă "ProductID" sau "PRO_XYZ10" este NULL, funcția StrComp va returna NULL. |
Exemplu VBA
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA).
Acest exemplu utilizează funcția StrComp pentru a returna rezultatele unei comparații de șiruri. Dacă al treilea argument este 1, se efectuează o comparație textuală; dacă al treilea argument este 0 sau omis, se efectuează o comparație binară.
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.
