Atgriež Variant (Integer) vērtību, kas norāda kļūdas virknes izteiksme.
Sintakse
StrComp ( virkne1, virkne2 [, salīdzināt ] )
Funkcijas StrComp sintaksē ir šādi argumenti:
|
Arguments |
Apraksts |
|
virkne1 |
Obligāts arguments. Jebkura derīga virknes izteiksme. |
|
virkne2 |
Obligāts arguments. Jebkura derīga virknes izteiksme. |
|
salīdzināt |
Neobligāts arguments. Norāda virkņu salīdzinājuma tipu. Ja salīdzināšanasarguments ir Null, rodas kļūda. Ja salīdzinājums ir izlaists, opciju salīdzināšanas iestatījums nosaka salīdzinājuma tipu. |
Iestatījumi
Salīdzinājuma argumenta iestatījumi ir šādi:
|
Konstante |
Vērtība |
Apraksts |
|
vbBinaryCompare |
0 |
Bināru salīdzinājumu veic. |
|
vbTextCompare |
1 |
Veic teksta salīdzinājumu. |
|
vbDatabaseCompare |
2 |
Microsoft Office Access 2007 lasāms. Veic salīdzinājumu, pamatojoties uz datu bāzē atvērts informācijas. |
Atgrieztās vērtības
Funkcijai StrComp ir šādas atgrieztās vērtības:
|
Ja |
StrComp atgriež |
|
virkne1 ir mazāka par virkni2 |
-1 |
|
virkne1 ir vienāda ar virkni2 |
0 |
|
virkne1 ir lielāka par virkni2 |
1 |
|
string1 vai string2 ir Null |
Null |
Vaicājuma piemērs
|
Izteiksme |
Rezultāti |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Atgriež vērtības no lauka "Produkta_ID", salīdzina "Produkta_ID" vērtības ar "PRO_XYZ1" un atgriež rezultātus kolonnā ComparisonResult. "Produkta_ID" ir vienāds ar "PRO_XYZ10", funkcija StrComp atgriež 0. Ja "Produkta_ID" ir mazāks par "PRO_XYZ10", funkcija StrComp atgriezīs -1. Ja "Produkta_ID" ir lielāks par "PRO_XYZ10", funkcija StrComp atgriezīs 1. Ja "Produkta_ID" vai "PRO_XYZ10" ir NULL, funkcija StrComp atgriež vērtību NULL. |
VBA piemērs
Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī.
Šajā piemērā izmantota funkcija StrComp , lai atgrieztu virkņu salīdzinājuma rezultātus. Ja trešais arguments ir 1, tiek veikts teksta salīdzinājums; ja trešais arguments ir 0 vai izlaists, tiek veikts binārs salīdzinājums.
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.
