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
#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 nilHola 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....
Estoy interesado en probar este RDD para conexi贸n con MySQL, en la direcci贸n: http://www.viaopen.com/files/adordd.zip no me funciona. Donde puedo descargar lo necesario para compilarlo con FWH.
Gracias de antemano.
Un cordial saludo
Puedes descargarlo desde:
Muchas gracias Antonio 
Ya lo he descargado, ahora toca probarlo 
Un cordial saludo
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()********
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
*
** ModArtSqlAntonio,
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.
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
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.
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
Parece que no est谩s usando las librerias correctas de xHarbour.
Posiblemente tengas librerias de distintas versiones de xHarbour.
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
=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
