New functions HB_AdoRddGetConnection( [<nWorkArea>] ) --> oAdoConnection

and HB_AdoRddGetCatalog( [<nWorkArea>] ) --> oAdoCatalog

harbour/contrib/adordd/adordd.prg

@@ -835,4 +835,16 @@ static function SQLTranslate( cExpr )
   cExpr = StrTran( cExpr, ".AND.", "AND" )
   cExpr = StrTran( cExpr, ".OR.", "OR" )
 
-return cExpr   
+return cExpr   
+
+function HB_AdoRddGetConnection( nWA )
+
+   DEFAULT nWA TO Select()
+   
+return s_aConnections[ nWA ]   
+
+function HB_AdoRddGetCatalog( nWA )
+
+   DEFAULT nWA TO Select()
+   
+return s_aCatalogs[ nWA ]