Nuevo AdoRDD (libre)

[arturo_cervantes]

Buenas tardes,

Veo que mencionan que actualmente el código funciona, donde puedo conseguir una versión para FiveWin 2.6 y xHarbour 0.99.51 y ya poder contar con una versión profesional que no sea de prueba o la libreria va ser libre.

Per si me gustaria hacer algunas pruebas de ello para comunicarlo al Gerente de Sistemas.

Ya que deseamos migrar a MYSQL o cualquier base de datos sin cambiar el codigo que se tiene con dbf y veo que esta rdd es la solución.

Saludos.
Arturo.
México

[GUSPRE]

Estimados con experiencia ADO, trate siguiendo todos los pasos aqui mencionados de probar ADORDD con el siguiente ejemplo usando FWH 8.01 y Xharbour 1.1.0, me tira el siguiente error:

Ejemplo compilado:

Code: Select all

#include "adordd.ch"
#include "FiveWin.ch"

REQUEST ADORDD

function Main()

   USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ;
      FROM "www.freesql.org" USER "myuser" PASSWORD "mypass"

   Browse()

   USE

/*   USE Test.mdb VIA "ADORDD" TABLE "Tabla1"

   Browse()

   USE
*/

return nil

y me tira el siguiente error si uso la prueba para ver una mdb. no tira el error pero el browse lo muestra vacio, aqui el error:

Application
===========
Path and name: C:\FWH\SAMPLES\testado.exe (32 bits)
Size: 1,487,360 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 02/01/08, 12:45:14
Error description: Error ADODB.Connection/0 S_OK: OPEN
Args:
[ 1] = C DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:OPEN(0)
Called from: ADORDD.prg => ADO_OPEN(241)
Called from: => DBUSEAREA(0)
Called from: testado.prg => MAIN(9)

System
======
CPU type: Intel(R) Pentium(R) D CPU 2.80GHz 2800 Mhz
Hardware memory: 959 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 0

Variables in use
================
Procedure Type Value
==========================
TOLEAUTO:OPEN
Param 1: C "DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass"
Local 1: U
Local 2: N 0
ADO_OPEN
Param 1: N 1
Param 2: A Len: 8
Local 1: A Len: 14
Local 2: C "test00"
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
DBUSEAREA
Param 1: L .F.
Param 2: C "ADORDD"
Param 3: C "test00"
Param 4: U
Param 5: U
Param 6: L .F.
MAIN

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX
ADORDD

DataBases in use
================

Classes in use:
===============
1 HASHENTRY
2 HBCLASS
3 TOLEAUTO
4 ERROR
5 HBOBJECT
6 TREG32

Memory Analysis
===============
118 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes


Bueno si alguien puede darme una pistita les agradecere, ya que tengo una aplicación que debe agregar unos reistros al final del dia en una tabla sql...

Muchas Gracias a todos..

Saludos,

[JmGarcia]

A mi me da este error al linkar

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_ADORDD' referenced from E:\PROGRAMA\BUCEO_MOJACAR\OBJ\ELCARTERO.OBJ

[juanato]

Hola a todos:

Tengo una aplicación hecha hace 14 años, que por necesidades de mercado, debe de actualizar datos contra un programa realizad con el SDK de Office97/Access97. Son dos ficheros .MDE que contiene la aplicación, formularios, MDBs y demás. He pensado que alguno de vosotros haya podido tener semejante oportunidad de probar el RDD nuevo de Xharbour/harbour para poder actualizar datos en ese formato. No busco hacer MSACCES.exe /decompact, tengo que dejar intacto el .MDE que actualice, dado que lo usa la aplicación para el que fue creado...


Gracias desde Córdoba, España....

[ermatica]

Estoy interesado en probar este RDD para conexión con MySQL, en la dirección: http://www.noway.com/files/adordd.zip no me funciona. Donde puedo descargar lo necesario para compilarlo con FWH.
Gracias de antemano.
Un cordial saludo

[Antonio Linares]

Puedes descargarlo desde:
www.fivetechsoft.com/files/adordd.zip

[ermatica]

Muchas gracias Antonio
Ya lo he descargado, ahora toca probarlo

Un cordial saludo

[pymsoft]

XBROWSE no me muestra los datos abriendo un archivo con adordd, alguna idea?
El archivo lo abre, abre el dialogo, me muestra las columnas pero sin datos dentro.... que me falta hacer?

aca mi codigo:

Code: Select all

  cAlias := "art_sql"

    USE (cDatabase) VIA "ADORDD" TABLE "art" MYSQL FROM cServer USER cUser PASSWORD cPass ALIAS (cAlias) NEW 

    DEFINE DIALOG oDlg NAME "ART_SQL"

      REDEFINE XBROWSE oBrw ID 201 OF oDlg;
        COLUMNS "cod", "des";
        HEADERS "Codice", "Descrizione";
        ALIAS "art_sql" 

      
      REDEFINE BUTTON ID 301 OF oDlg ACTION ( oBrw:goTop(), oBrw:refresh(), msginfo( NTRIM( (cAlias)->( reccount() ) ) + " - " + NTRIM( oBrw:nLen ) ) )        
      REDEFINE BUTTON ID 502 OF oDlg ACTION oDlg:end()

    ACTIVATE DIALOG oDlg ON INIT oBrw:refresh()

Saludos

[pymsoft]

Bueno, xbrowse sigue sin mostrarme los datos, mientras tanto uso wbrowse para ir haciendo pruebas, ya que necesito trabajar urgente con ms-sql y mysql.

tengo otro problema y es el siguiente. estoy modificando el mismo registro desde dos terminales diferentes, salvo uno, enseguida salvo desde el otro terminal, el ultimo en salvar se bloquea, el programa no responde mas.
con el primero logro seguir modificando registros sin problemas, (menos el que trató de modificar el segundo terminal), cuando trato de modificar ese registro se bloquea tambien el primer terminal. Esto es un problema grave...


aqui mi codigo:

Code: Select all

********
FUNCTION ProvaSQL4()
********
LOCAL oError
LOCAL oDlg, oBrw
LOCAL nSecIni, nSecFine
LOCAL cServer, cUser, cPass
LOCAL cDatabase := "winprogress"
LOCAL cAlias, cAlias2, oFont, oCol, oDbfArt, nRecords

  CursorWait()

  oV:lStaArt := .T.
  //
  cServer := "192.168.0.152"
  cServer := ProfileString( oV:cIniStaz, "SQL_CFG", "IndirizzoIP",  cServer )
  SetProfile( oV:cIniStaz, "SQL_CFG", "IndirizzoIP",  cServer )

  cUser   := "pedro"
  cUser := ProfileString( oV:cIniStaz, "SQL_CFG", "User",  cUser )
  SetProfile( oV:cIniStaz, "SQL_CFG", "User",  cUser )

  cPass   := "pymsoft"
  cPass := ProfileString( oV:cIniStaz, "SQL_CFG", "Pass",  cPass )
  SetProfile( oV:cIniStaz, "SQL_CFG", "Pass",  cPass )
  //   


  TRY

    SELECT 0
    cAlias := "art_sql"

    nSecIni := SECONDS()
    USE (cDatabase) VIA "ADORDD" TABLE "art" MYSQL FROM cServer USER cUser PASSWORD cPass ALIAS (cAlias) NEW WHERE "ORDER BY cod" // QUERY "Select * FROM " WHERE " WHERE id < 30 "

    nSecFine := SECONDS()

    InfStat( NTRIM( (cAlias)->( reccount() ) ) + " in " + NTRIM( SECONDS() - nSecIni ) + " secondi..." + " -  " + "Primo test: " + NTRIM( nSecFine - nSecIni ) + " secondi..." )


    DEFINE DIALOG oDlg NAME "ART_SQL"

      REDEFINE LISTBOX oBrw;
        FIELDS (cAlias)->cod, (cAlias)->des;
        HEADERS "Codice", "Descrizione";
        ALIAS cAlias;
        ID 201 OF oDlg
    

      REDEFINE BUTTON ID 301 OF oDlg ACTION ( ModArtSql( cAlias ), oBrw:refresh() )
      REDEFINE BUTTON ID 502 OF oDlg ACTION oDlg:end()

    ACTIVATE DIALOG oDlg ON INIT oBrw:refresh()

    (cAlias)->( dbCloseArea() )
  
  CATCH oError
  
    MsgStop( "Errore: " + oError:Operation+CRLF+oError:Description, APP_NAME )
  
  END TRY

  oV:lstaArt := .F.

RETURN NIL

** eof ProvaSQL4

********
FUNCTION ModArtSql( cAlias )
********
LOCAL oDlg, cDes
LOCAL lConf := .F.
LOCAL oRs, nRec, oError

  oRs:=HB_AdoRddGetRecordSet()
  nRec := oRs:AbsolutePosition
  oRs:requery()

  (cAlias)->( dbGoTo( nRec ) )

  cDes := PADR( (cAlias)->des, 40 )

  DEFINE DIALOG oDlg NAME "ART_SQL_MOD"

    REDEFINE GET cDes ID 101 OF oDlg

    REDEFINE BUTTON ID 501 OF oDlg ACTION ( lConf := .T., oDlg:end() )
    REDEFINE BUTTON ID 502 OF oDlg ACTION oDlg:end()
  
  ACTIVATE DIALOG oDlg

  IF lConf
    TRY
      REPLACE (cAlias)->des WITH cDes
    CATCH oError
      MsgStop( "Errore: " + oError:Operation+CRLF+oError:Description, APP_NAME )
    END TRY
  ENDIF

RETURN NIL
*
** ModArtSql

[goosfancito]

Antonio,

Leyendo post y blog al respecto del uso de los ADORDD, etc. me encuentro leyendo que no es aconsejable desde el punto de vista de como la clase trata el tema de acceso al datos. El caso es que estoy peliando entre usar el tmysql puro y duro y de meterme a usar el adordd. podrias aclararme el tema?

Gracias.

[Adolfo]

Goosfancito...

Si quieres solo usar Mysql, TMYSQL es un buenisima opcion, pero si quieres que sea algo mas "portable", entonces usa ADO, las diferencias de velocidades ente Tmysql y ADO son infimas, pero ambos son mejores que ADORDD.

Desde Chile
Adolfo

[Leon Valenzuela]

Tengo una gran duda amigos del foro, he leído mucho sobre adordd y mysql, pero tengo una base de datos access con varias tablas, cómo hago la apertura de todas esas tablas?

De Antemano, gracias.

[alex_cyr]

Hola,

Estoy probando el ADORDD baje el ejemplo de aqui del foro pero al generar el proyecto me genera el siguiente error...
me podrian por favor decir que es lo que me falta o que es lo que estoy haciendo mal?...

Saludos y de ante mano GRacias

*************************************************************************************************************************************************
Compilado y Enlazado de: [C:\Access\Access.Exe]
Ejecución No. 12
Ejecutada a las: 17:52:48
============================================================
xHarbour Compiler build 0.99.3 (SimpLex)
Copyright 1999-2005, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'C:\Access\samples\access1.prg'...
Lines 15, Functions/Procedures 1
Generating C source output to 'C:\Access\access1.hrb'...
Borland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland
C:\Access\access1.hrb:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_hb_itemGetSymbol' referenced from C:\ACCESS\LIB\XHARBOUR\USRRDD.LIB|usrrdd
Error: Unresolved external '_hb_xvmPopLogical' referenced from C:\ACCESS\LIB\XHARBOUR\USRRDD.LIB|usrrdd
Error: Unresolved external '_hb_xvmPushLocalByRef' referenced from C:\ACCESS\LIB\XHARBOUR\USRRDD.LIB|usrrdd
Error: Unresolved external '_hb_rddGetNode' referenced from C:\ACCESS\LIB\XHARBOUR\USRRDD.LIB|usrrdd
El enlazador NO generó resultados.
Ha habido ERRORES al intentar Generar la Aplicacion

**************************************************************************************************************************************************

[Antonio Linares]

Parece que no estás usando las librerias correctas de xHarbour.

Posiblemente tengas librerias de distintas versiones de xHarbour.

[Bayron]

Intenté compilar el ejemplo mysql1.prg y me dio este error:

Error:Unresolved external '_hb_vmProcessSymbolsEx' referenced from F:\HARBOUR\LIB\ADORDD.LIB|adordd
* Linking errors *

FWH 9.12