ChemOffice.Com - CambridgeSoft

• field_name - is the name of the index used
to index the chemical information
• smiles_or_encoded_cdx - is the
substructure depicted by a smiles string or an
encoded CDX document.
• second_part - is the second 4000 bytes of
an encoded CDX document.
All of the names must be enclosed by single quotes.
The strings are not processed by Oracle, but rather
the MolScreen procedure.
For example:
CALL
CsCartridge.MolScreen('MySchema'
, 'molecule', 'mol', 'mx',
'Oc1ccccc1', '');
This will improve the speed of the substructuresearch
of phenol derivatives.
Navigation in client
programs
The client program usually provides navigation
buttons or commands to browse through the
recordset, when the result of a query is displayed, or
when a full table is presented to the user.
Commands usually allow moving to the next or
previous, first or last record, and some kind of
direct positioning is provided as well.
When the result of a query is presented, the client
program usually maintains a hit list, and allows
navigation by this list in any direction.
After executing a DML statement it is not
immediately clear if a next or previous record exists,
and if those commands or buttons should be
enabled. The cartridge maintains information to
help the client program in solving this problem.
The client program has to retrieve this information
as it is demonstrated with the following BASIC
program.
Dim c as ADODB.Connection 'must be
an open connection
Dim userName as String 'must
contain the connected user's name
Dim tableName as String 'must
contain the table name processed
Private Function GetIndexName()
As String
Dim s As String
Dim r As ADODB.Recordset
s = "SELECT INDEX_NAME FROM
ALL_INDEXES WHERE TABLE_OWNER =
'" + UCase(UserName) + "' AND
TABLE_NAME = '" +
UCase(tablename) + "' AND
ITYP_OWNER = 'CSCARTRIDGE' AND
ITYP_NAME = 'MOLECULEINDEXTYPE'"
Set r = c.Execute(s)
GetIndexName =
r.Fields("INDEX_NAME").Value
End Function
Private Sub CheckEOFBOF()
Dim s As String
Dim indexName As String
indexName = GetIndexName
s = "CALL
CsCartridge.UpdateEOFBOF('" +
UserName + "', '" + tablename +
"', '" + indexName + "')"
c.Execute (s)
Dim r As ADODB.Recordset
ChemOffice Enterprise Workgroup & Databases 2005 CS Oracle Cartridge • 203
Navigation in client programs