CCADOConnection con;
CCADORecordset rs;
ComVariant v;
;
#CCADO
con=new CCADOConnection();
con.connectionString(SqlHelper::connectionString());
con.open();
rs=new CCADORecordset();
rs.cursorLocation(#adUseClient);
rs.open('select * from mytable',con,#adOpenStatic,#adLockReadOnly);
v=new ComVariant(ComVariantInout::In,ComVariantType::VT_UNKNOWN);
rs.recordSet().activeconnection( v);
con.close();
CCADORecordset rs;
ComVariant v;
;
#CCADO
con=new CCADOConnection();
con.connectionString(SqlHelper::connectionString());
con.open();
rs=new CCADORecordset();
rs.cursorLocation(#adUseClient);
rs.open('select * from mytable',con,#adOpenStatic,#adLockReadOnly);
v=new ComVariant(ComVariantInout::In,ComVariantType::VT_UNKNOWN);
rs.recordSet().activeconnection( v);
con.close();