ArtSrl::SeekByCode (Interface: ArtSrl)
 
Seeks a Serial Number card by its code.
 
VARIANT_BOOL SeekByCode (
    enum eSeekMode eSeekMode,
    BSTR bsCode,
    BSTR bsArtNum
)
 
Key information
This method uses key number 1 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pCodeBSTRAscendingCase insensitive
pArtNumBSTRAscendingHierarchy
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsCode
[in] The code of the serial number card you want to seek.
bsArtNum
[in] The article number of the serial number card you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateArtSrl
GetDBStatus
GetNext
 
Samples
 
C++
 
// Seek the serial number card with code '00158069002'
CString    strCode = "00158069002";
pArtSrl->SeekByCode (smGreaterOrEqual, (LPCSTR)strCode, "");
if (pArtSrl->GetDBStatus () == 0 && (CString)pArtSrl->pCode == strCode)
{
    // Process data
}

C#
 
// Seek the serial number card with code '00158069002'
string strCode = "00158069002";
oArtSrl.SeekByCode (eSeekMode.smGreaterOrEqual, strCode, "");
if (oArtSrl.GetDBStatus () == 0 && oArtSrl.pCode.ToString () == strCode)
{
    // Process data
}

VBS
 
' Seek the serial number card with code '00158069002'
Dim strCode
strCode = "00158069002"
Call oArtSrl.SeekByCode(smGreaterOrEqual, strCode, "")
If oArtSrl.GetDBStatus() = 0 And oArtSrl.pCode = strCode Then
    ' Process record data
End If

VB.NET
 
' Seek the serial number card with code '00158069002'
Dim strCode As String
strCode = "00158069002"
oArtSrl.SeekByCode(eSeekMode.smGreaterOrEqual, strCode, "")
If oArtSrl.GetDBStatus() = 0 And oArtSrl.pCode = strCode Then
    ' Process record data
End If