HB_TokenGet() está implementado en ADORDD.prg especialmente para xharbour

Athayde

1. bug locate: ADORDD se limita a proporcionarle esa expresión al driver de ADO. Debe haber algo que no le parece bien.

2. Modifica ADORDD para que no reemplace en ADO_PUTVALUE() el valor de un campo, si es el mismo valor que tiene

error in index:
INDEX ON rd+nivelus+menu TO XNIV

Error ADORDD/1004 Create error (Operation not supported): XNIV

Error at ...: ADO_ORDCREATE(692) in Module: ADORDD.PRG
Called from : ADO_ORDCREATE(699) in Module: ADORDD.PRG
Called from : ORDCREATE(0) in Module:
Called from : DBCREATEINDEX(61) in Module: rddord.prg

Thanks

i see about bug2 and 3 and post results

Try this:

INDEX ON rd+nivelus+menu TO XNIV TAG RD_NIVELUS_MENU

Antonio Linares wrote:HB_TokenGet() está implementado en ADORDD.prg especialmente para xharbour

Sr. Antonio,

se puede usar RDDADO con TXbrowse en un dialogo con resource ?

podria indicarme algun ejemplo,

gracias por su generosidad,

saludos cordiales.

Antonio y demas gurus en este tema :

Es posible combinar diferentes RDDs en una app ?

Me explico : Por default uso DBFs con CDXs y quisiera procesar ( abrir, buscar, modificar, agregar o borrar ) desde algun otro archivo ya sea de Access, MySql, FoxPro, etc. sin afectar la plataforma default que uso ?

En pocas palabras seria : Abrir-Usar-Cerrar.

Saludos

Raymundo Islas M. wrote:Antonio y demas gurus en este tema :

Es posible combinar diferentes RDDs en una app ?

Me explico : Por default uso DBFs con CDXs y quisiera procesar ( abrir, buscar, modificar, agregar o borrar ) desde algun otro archivo ya sea de Access, MySql, FoxPro, etc. sin afectar la plataforma default que uso ?

En pocas palabras seria : Abrir-Usar-Cerrar.


Saludos

estoy compilando la clase con xharbour 0.99.60 y me aparecen estos errores al compilar
obj\adordd.c:
echo off
echo c:\borland\bcc55\bin\c0w32.obj + > b32.bc
echo obj\mysql1.obj obj\adordd.obj, + >> b32.bc
echo mysql1.exe, + >> b32.bc
echo mysql1.map, + >> b32.bc
echo c:\tsbrowse\lib\sbrowsex.lib + >> b32.bc
echo c:\tsbutton\lib\sbuttonh.lib + >> b32.bc
echo c:\fwh\lib\FiveHx.lib c:\fwh\lib\FiveHC.lib + >> b32.bc
echo c:\xHarbour\lib\rtl.lib + >> b32.bc
echo c:\xHarbour\lib\rtl.lib + >> b32.bc
echo c:\xHarbour\lib\vm.lib + >> b32.bc
echo c:\xHarbour\lib\gtwin.lib + >> b32.bc
echo c:\xHarbour\lib\lang.lib + >> b32.bc
echo c:\xHarbour\lib\macro.lib + >> b32.bc
echo c:\xHarbour\lib\rdd.lib + >> b32.bc
echo c:\xHarbour\lib\dbfntx.lib + >> b32.bc
echo c:\xHarbour\lib\dbfcdx.lib + >> b32.bc
echo c:\xHarbour\lib\dbffpt.lib + >> b32.bc
echo c:\xHarbour\lib\hbsix.lib + >> b32.bc
echo c:\xHarbour\lib\debug.lib + >> b32.bc
echo c:\xHarbour\lib\common.lib + >> b32.bc
echo c:\xHarbour\lib\pp.lib + >> b32.bc
echo c:\xHarbour\lib\codepage.lib + >> b32.bc
echo c:\adordd\compila\usrrdd.lib + >> b32.bc
rem Uncomment these two lines to use Advantage RDD
rem echo c:\xharbour\lib\b32\rddads.lib + >> b32.bc
rem echo c:\xharbour\lib\b32\Ace32.lib + >> b32.bc
echo c:\borland\bcc55\lib\cw32.lib + >> b32.bc
echo c:\borland\bcc55\lib\import32.lib + >> b32.bc
echo c:\borland\bcc55\lib\psdk\odbc32.lib + >> b32.bc
echo c:\borland\bcc55\lib\psdk\nddeapi.lib + >> b32.bc
echo c:\borland\bcc55\lib\psdk\iphlpapi.lib + >> b32.bc
echo c:\borland\bcc55\lib\psdk\rasapi32.lib, >> b32.bc
IF EXIST mysql1.res echo mysql1.res >> b32.bc
c:\borland\bcc55\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Unable to open file 'SBROWSEX.LIB'

** error 2 ** deleting mysql1.exe

C:\adordd\compila>edit *.rmk

C:\adordd\compila>i

C:\adordd\compila>if not exist obj md obj

C:\adordd\compila>c:\borland\bcc55\bin\make -ftest.rmk
MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
c:\xharbour\bin\Harbour .\mysql1.PRG /N /W /Oobj\ /Ic:\fwh\include;c:\xharbour\i
nclude
xHarbour Compiler build 0.99.60 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/
Compiling '.\mysql1.PRG'...
Lines 16, Functions/Procedures 1
Generating C source output to 'obj\mysql1.c'...
Done.
c:\borland\bcc55\bin\bcc32 -c -tWM -Ic:\xharbour\include -oobj\mysql1 obj\mysql1
.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\mysql1.c:
c:\xharbour\bin\Harbour .\adordd.PRG /N /W /Oobj\ /Ic:\fwh\include;c:\xharbour\i
nclude
xHarbour Compiler build 0.99.60 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/
Compiling '.\adordd.PRG'...
Lines 943, Functions/Procedures 55
Generating C source output to 'obj\adordd.c'...
Done.
c:\borland\bcc55\bin\bcc32 -c -tWM -Ic:\xharbour\include -oobj\adordd obj\adordd
.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\adordd.c:
echo off
echo c:\borland\bcc55\bin\c0w32.obj + > b32.bc
echo obj\mysql1.obj obj\adordd.obj, + >> b32.bc
echo mysql1.exe, + >> b32.bc
echo mysql1.map, + >> b32.bc
echo c:\fwh\lib\FiveHx.lib c:\fwh\lib\FiveHC.lib + >> b32.bc
echo c:\xHarbour\lib\rtl.lib + >> b32.bc
echo c:\xHarbour\lib\rtl.lib + >> b32.bc
echo c:\xHarbour\lib\vm.lib + >> b32.bc
echo c:\xHarbour\lib\gtwin.lib + >> b32.bc
echo c:\xHarbour\lib\lang.lib + >> b32.bc
echo c:\xHarbour\lib\macro.lib + >> b32.bc
echo c:\xHarbour\lib\rdd.lib + >> b32.bc
echo c:\xHarbour\lib\dbfntx.lib + >> b32.bc
echo c:\xHarbour\lib\dbfcdx.lib + >> b32.bc
echo c:\xHarbour\lib\dbffpt.lib + >> b32.bc
echo c:\xHarbour\lib\hbsix.lib + >> b32.bc
echo c:\xHarbour\lib\debug.lib + >> b32.bc
echo c:\xHarbour\lib\common.lib + >> b32.bc
echo c:\xHarbour\lib\pp.lib + >> b32.bc
echo c:\xHarbour\lib\codepage.lib + >> b32.bc
echo c:\adordd\compila\usrrdd.lib + >> b32.bc
rem Uncomment these two lines to use Advantage RDD
rem echo c:\xharbour\lib\b32\rddads.lib + >> b32.bc
rem echo c:\xharbour\lib\b32\Ace32.lib + >> b32.bc
echo c:\borland\bcc55\lib\cw32.lib + >> b32.bc
echo c:\borland\bcc55\lib\import32.lib + >> b32.bc
echo c:\borland\bcc55\lib\psdk\odbc32.lib + >> b32.bc
echo c:\borland\bcc55\lib\psdk\nddeapi.lib + >> b32.bc
echo c:\borland\bcc55\lib\psdk\iphlpapi.lib + >> b32.bc
echo c:\borland\bcc55\lib\psdk\rasapi32.lib, >> b32.bc
IF EXIST mysql1.res echo mysql1.res >> b32.bc
c:\borland\bcc55\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_hb_itemGetSymbol' referenced from C:\ADORDD\COMPILA\USRRDD.
LIB|usrrdd
Error: Unresolved external '_hb_xvmPopLogical' referenced from C:\ADORDD\COMPILA\USRRDD.
LIB|usrrdd
Error: Unresolved external '_hb_xvmPushLocalByRef' referenced from C:\ADORDD\COMPILA\USR
RDD.LIB|usrrdd

** error 2 ** deleting mysql1.exe

alguien sabe porque ?? muchas gracias por su atención

correction of fix after UPDATE
static function ADO_PUTVALUE( nWA, nField, xValue )

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

if ! aWAData[ WA_EOF ] .AND. oRecordSet:Fields( nField - 1 ):Value<>xValue
TRY
oRecordSet:Fields( nField - 1 ):Value := xValue
oRecordSet:Update()
CATCH
END
endif

return SUCCESS
Thanks

Antonio Linares wrote:Try this:

INDEX ON rd+nivelus+menu TO XNIV TAG RD_NIVELUS_MENU

Athayde,

Yes, that was the idea for ADO_PUTVALUE(), updated

Regarding the indexes, are you using the most recent ADORDD source code ? Yesterday we fixed the indexes creation

Antonio,

Yes i'm using this last version
* $Id: adordd.prg,v 1.33 2007/05/12 08:47:49 antoniolinares Exp $

i'm using MYSQL

please correction OPEN for support others Querys not only DEFAULT

Thanks

Please try this:

define adIndex 0x100000

MsgInfo( HB_AdoRddGetRecordset():Supports( adIndex ) )

or ? instead of MsgInfo() if you are not using FWH

> please correction OPEN for support others Querys not only DEFAULT

We plan to do it but using a different code

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

you testing with what GDB?

Regards