ChemOffice.Com - CambridgeSoft

In addition to the file requirements, the
environment must be set up so that the system can
find them. These issues are explained in detail in the
system manuals of the actual platform.
Using ADO
Microsoft's ADO is a convenient way to write client
programs utilizing the cartridge.
To create an Oracle service on any client computer,
the Oracle client tools must be installed, and the
Net8 assistant program must be used to create a
service by entering the following information:
Net Service Name: any valid string would do
(this string must be used in ADO)
Protocol: TCP/IP
Host Name: a computer running the Oracle
server
Port Number: 1521
(Oracle 8i) Service Name: the service name
on the server.
DIM c as ADODB.Connection
set c = new ADODB.Connection
ServiceName = "" Rem the name of Oracle
service
UserName = "" Rem user name
Password = "" Rem password
s =
"Provider=OraOLEDB.Oracle.1;Persist
Security_ Info=False;Data Source=" +
ServiceName + ";"
s = s + "User ID=" + UserName + ";"
s = s + "Password=" + Password
c.Open s
Dim r as ADODB.Recordset
Set r = c.Execute("SELECT * FROM
moltable WHERE_
CsCartridge.MoleculeContains(mol,
'c1ccccc1','', '')=1");
Rem process the recordset
c.Close
NOTE: When using Microsoft ADO data controls to
access the cartridge, the CursorLocation property must be set
to adUseServer. Otherwise data updates will fail, if the
structure field is larger, then 4000 bytes.
Example of passing large
queries
NOTE: Comments are in bold.
Dim r As ADODB.Recordset
ChemDrawCtl1.DataEncoded = True '
b64 encoded cdx is required
Dim s As String
s = ChemDrawCtl1.Data("cdx") '
get the cdx document from the ChemDraw
ActiveX control
Dim com As ADODB.Command '
create a new ADODB.command
Set com = New ADODB.Command
Rem now build the sql string step by
step, and create the corresponding
parameters as well
Rem the query data will be passed as an
array defined in CsCartridge
Rem
sql = "Select " + idSelect '
idSelect contains the column name to be
selected
sql = sql + " from " + TableName ' from
table
sql = sql + " where
CsCartridge.MoleculeContains(" +
StructName '
first param is column name of the
chemical structure
sql = sql + ", CsCartridge.Xarray(" '
second param is an array of string
ChemOffice Enterprise Workgroup & Databases 2005 CS Oracle Cartridge • 201
Using ADO