FiveTech Software tech support forums

i'm blind lol

i download harbour from cvs
but the adordd.prg is very old 13/05/2007

i download from xharbour
and i have modifications

donde estas o harbour cvs?
cual el link para usar en TortoiseCVS?

the adordd in xharbour CVS is the some project?

a Question:
DBRLOCK() only returns .T.?

Regards

Great,
see my modification for uses QUERYs differents, is possible?

Antonio,
fix for return size correct

static function ADO_GETVALUE( nWA, nField, xValue )

local aWAData := USRRDD_AREADATA( nWA )
local oRecordSet := USRRDD_AREADATA( nWA )[ WA_RECORDSET ]
local lChar,nADOFieldType

if aWAData[ WA_EOF ] .or ...

about LOCATE with AND or "OR"
ADO limitation
Note: This method does not support multi-column searches (AND or OR)

Regards

Antonio,

about query, i see another thing
in ADO_OPEN
IF aWAData[ WA_QUERY ]=="SELECT * FROM "
oRecordSet:Open( aWAData[ WA_QUERY ] + aWAData[ WA_TABLENAME ], aWAData[ WA_CONNECTION ] )
ELSE
oRecordSet:Open( aWAData[ WA_QUERY ], aWAData[ WA_CONNECTION ] )
ENDIF

but, when USE command, not ...

the solution for this error is:
static function ADO_OPEN( nWA, aOpenInfo )

local aWAData := USRRDD_AREADATA( nWA )
local cName, aField, oError, nResult
local oRecordSet, nTotalFields, n

// When there is no ALIAS we will create new one using file name
if aOpenInfo[ UR_OI_ALIAS ] == nil
HB ...

stranger no?
with Mysql 4.1 functions perfectly
USE ceif VIA "ADORDD" TABLE "aplica" MYSQL ;
FROM "localhost" USER "root" PASSWORD "masterkey" ALIAS "aplica"

with Mysql 5.0.37 error:
Error ADODB.Recordset/16389 E_FAIL: OPEN Arguments: ( [ 1] = Type: C Val: aplic
a [ 2] = Type: O Val: { TOLEAUTO ...

use mysql1.prg
USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ;
FROM "www.freesql.org" USER "myuser" PASSWORD "mypass"
INDEX ON FIRST TO X_FIRST


Browse()

not error, but not ordened

but which is your version of MYSQL?

Thanks

Antonio,

Why code the ADORDD.PRG in xharbour_cvs is different of your?
in xharbour_cvs supports firebird
are projects differents?

Regards

Antonio,
HB_AdoRddGetRecordset():Supports( adIndex )
returns .F.
why?
i'm using MYSQL 4.1

you testing with what GDB?

Regards