I try post follow analysis also if is without success
Hi hope that somebody will help us to resolve follow problem
1) a possible problem with new ole
2) recno return 0
3) argument error win_oleauto:find in ADO_LOCATE
4) various things
Hope that somebody will help
1---ole
Queries or attaches user-defined data to a work area of a user-defined RDD.
Follow row Where are created ole object
LOCAL oConnection := win_OleCreateObject( "ADODB.Connection" )
LOCAL oCatalog := win_OleCreateObject( "ADOX.Catalog" )
aWAData[ WA_CONNECTION ] := win_OleCreateObject( "ADODB.Connection" )
oRecordSet := win_OleCreateObject( "ADODB.Recordset" )
aWAData[ WA_CATALOG ] := win_OleCreateObject( "ADOX.Catalog" )
oIndex := win_OleCreateObject( "ADOX.Index" )
Here recno function that not works
STATIC FUNCTION ADO_RECNO( nWA, nRecNo )
LOCAL oRecordSet := USRRDD_AREADATA( nWA )[ WA_RECORDSET ]
LOCAL nResult := HB_SUCCESS
TRY
IF USRRDD_AREADATA( nWA )[WA_CONNECTION]:State != adStateClosed
nRecno := iif( oRecordSet:AbsolutePosition == -3,
oRecordSet:RecordCount() + 1, oRecordSet:AbsolutePosition )
ELSE
nRecno := 0
nResult := HB_FAILURE
ENDIF
CATCH
nRecNo := 0
nResult := HB_FAILURE
END
RETURN nResult
STATIC FUNCTION ADO_LOCATE( nWA, lContinue )
LOCAL aWAData := USRRDD_AREADATA( nWA )
LOCAL oRecordSet := aWAData[ WA_RECORDSET ]
oRecordSet:Find( aWAData[ WA_SCOPEINFO ][ UR_SI_CFOR ], iif(
lContinue, 1, 0 ) )
aWAData[ WA_FOUND ] := ! oRecordSet:EOF
aWAData[ WA_EOF ] := oRecordSet:EOF
RETURN HB_SUCCESS
Here oRecordSet:Find( aWAData[ WA_SCOPEINFO ][ UR_SI_CFOR ], iif(
lContinue, 1, 0 ) )
return argument error
UR_SI_CFOR is defined in usrrdd.ch
Find method allow
rst.Find "SupplierID = 20 And CategoryID = 1"
4) varie
Will be usefull a function that return ado version using oConnection.Version
The only source of rddado.lib is rddado.prg & adordd.ch a rdd wil be
done in prg thanks to usrrdd
2009/10/12 Viktor Szakáts <[email protected]>:
>> For the windows platform
>> rddado is better for old application that use seek,recno ecc.
>
> Maybe better, but notice that it's not working at all.
>
>> rddsql is good for new application that will give the power of sql
>> rddsql need more example so invite everybody use it post a sample
>>
>> sync rddado with xharbour seem me very difficult becase we have
>> different ole,rdd
>
> It's already synced, and it was synced before OLE changes.
>
> Brgds,
> Viktor
>
> _______________________________________________
> Harbour mailing list
> [email protected]
> http://lists.harbour-project.org/mailman/listinfo/harbour
>
--
Massimo Belgrano
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
