FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour AYUDA CON TSBROWSE Y ADO
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
AYUDA CON TSBROWSE Y ADO
Posted: Sat Apr 11, 2009 08:09 AM

Maesto Manuel Mercado,

Necesito tu generosa ayuda.

En la versi贸n 8 de tu TSBrowse inclu铆ste m茅todo ::SetAdo() pero lo desactivaste y hay dos m茅todos no definidos: AdoSkyp y AdoGenFldBlk. Ya completaste ese c贸digo ? Podr铆as, por favor indicarme como completarlo ?

Necesito urgente acceder a una base MYSQL bastante grande y si lo hago v铆a arrays se vuelve super lento. Creo que es mucho m谩s r谩pido si se accesa y muestra directamente la base a trav茅s de ADO evitando pasar por arrays o por una base temporal.

Mill贸n de gracias por tu ayuda.

Son las 3:00 de la ma帽ana del Viernes Santo. Imag铆nate si estoy colgado por este proceso que en vez de rezar estoy trabajando :?

Maestro Antonio,

Alguna sugerencia ? Tengo toda la aplicaci贸n con TSBrowse, por eso no puedo pasarme a XBrowse (Y la verdad es que a煤n no le he metido el diente). Realmente se gana velocidad si se evita el array o la base temporal ?

Saludos,

Carlos Gallego
Mi email es: cgallegoa@mastersoft3000.com

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Sat Apr 11, 2009 10:10 AM

Carlos,

A ver si Manuel puede ayudarnos en esto.

Tambien Nageswararao es un gran experto en browses y ADO.

Siento no poder serte de m谩s ayuda, de momento.

regards, saludos

Antonio Linares
www.fivetechsoft.com
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Sat Apr 11, 2009 03:30 PM
Cgallegoa wrote:En la versi贸n 8 de tu TSBrowse inclu铆ste m茅todo ::SetAdo() pero lo desactivaste y hay dos m茅todos no definidos: AdoSkyp y AdoGenFldBlk. Ya completaste ese c贸digo ? Podr铆as, por favor indicarme como completarlo ?
Hola Carlos:

Aunque ya funciona, todav铆a no lo tengo suficientemente probado. De cualquier forma te estoy enviando a tu correo TSBrowse en su estado actual, espero con tu ayuda poder avanzar en las pruebas.

Un abrazo.

Manuel Mercado.
manuelmercado at prodigy dot net dot mx
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Mon Apr 13, 2009 12:50 AM
Mastro Manuel recib铆 la clase. Muchas gracias. Se te olvid贸 enviarme el archivo TSCOLUMN.PRG. Miestras tanto usar茅 el de una versi贸n anterior.

En efecto me funcion贸 con ADO.

Tengo dos observaciones:

1. Al cerrar la aplicaci贸n genera error "Destructors disabled! Destructor of class ''TOLEAUTO" can't be executed". Creo que se puede corregir si en el Method Destroy() se agrega lo siguiente:
Code (fw): Select all Collapse
...
聽 聽if ValType(::oRSet) == "O"
聽 聽 聽 ::oRSet := NIL
聽 聽endif

聽 聽::hWnd = 0

Return Nil

2.- Genera error al trabajar con ADS. En el Method SetDbf() tienes una cadena para la ejecuci贸n de un macro:
Code (fw): Select all Collapse
聽 聽If "ADS"$( ::cAlias )->( RddName() )
聽 聽 聽 cAdsKeyNo 聽 聽:= "{|n,Self|If(n==Nil,Round(" + cAlias + "->(ADSGetRelKeyPos()) * 聽Self:nLen , 0 ), " + ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 cAlias + "->( ADSSetRelKeyPos( n / Self:nLen ) ) ) }"

聽 聽 聽 cAdsKeyCount := "{|cTag| " + cAlias + "->( ADSKeyCount(cTag,, 1 ) ) }"

聽 聽 聽 Default ::bKeyNo 聽 聽:= &(cAdsKeyNo) , ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 ::bKeyCount := &cAdsKeyCount, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 ::bLogicLen := &cAdsKeyCount

Al ejecutarse el macro en "Default ::bKeyNo := &(cAdsKeyNo) , ;" genera error pues en la cadena de texto para el macro "cAdsKeyNo := "{|n,Self|If(n==Nil,Round(.......}" Self no est谩 definido, por lo tanto Self:nLen no existe. C贸mo puedo solucionarlo ?

Nuevamente mill贸n de gracias por tu ayuda y saludos,

Carlos Gallego

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Mon Apr 13, 2009 01:03 AM

Maestro Antonio gracias por tu sugerencia.

Me gustar铆a saber tu opini贸n: Qu茅 es m谩s conveniente en t茅rminos de velocidad al acceder a una gran base de datos MYSQL:

  • Directamente Con ADO-Recordset
  • Pas谩ndola a un Array
  • Pas谩ndola a una DBF temporal

贸, es irrelevante la diferencia de velocidad. Qu茅 opinas ?

Saludos,

Carlos Gallego

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Mon Apr 13, 2009 03:41 PM
Maestro Manuel,

Analizando c贸digo en el Method SetDbf(), cuando eval煤as el macro con &(cAdsKeyNo) en ninguna parte se pasa el par谩metro "Self" al bloque de c贸digo. Qu茅 suceder铆a si se accesa directamente a ::nLen, en cuyo caso la cadena quedar铆a as铆:
Code (fw): Select all Collapse
      cAdsKeyNo    := "{|n|If(n==Nil,Round(" + cAlias + "->(ADSGetRelKeyPos()) * " + Str(::nLen) + ", 0 ), " + ;
                         cAlias + "->( ADSSetRelKeyPos( n / " + Str(::nLen) + " ) ) ) }"

Afectar铆a esto en algo a la visualizaci贸n del Browse o del VScroll, o en alguna otra parte ?

Es vital que me funcione perfecto con ADS pues es el motor que utilizo en todas mis aplicaciones.

Saludos,

Carlos Gallego

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Tue Apr 14, 2009 03:04 PM

Hola......... Alguna respuesta..........

Saludos,

Carlos Gallego

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Wed Apr 15, 2009 07:22 PM

Hola..............

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Thu Apr 16, 2009 01:29 AM
Cgallegoa wrote:Al ejecutarse el macro en "Default ::bKeyNo := &(cAdsKeyNo) , ;" genera error pues en la cadena de texto para el macro "cAdsKeyNo := "{|n,Self|If(n==Nil,Round(.......}" Self no est谩 definido, por lo tanto Self:nLen no existe. C贸mo puedo solucionarlo ?
Hola Carlos:

Por favor env铆ame o mu茅strame el error.log para tratar de corregirlo.

Un abrazo

Manuel Mercado
manuelmercado at prodigy dot net dot mx
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Thu Apr 16, 2009 10:14 PM

Carlos,

La velocidad de acceso es mucho mas r谩pida haciendola sobre un recordset, pues si la cargas a un array, tendrias que hacer un barrido y lo mismo ser铆a si lo haces en una DBF temporal.

Saludos

William, Morales

Saludos



m茅xico.sureste
EASYSOFT
Posts: 195
Joined: Sat Oct 22, 2005 01:17 PM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Fri Jun 19, 2009 01:42 PM

Buenos d铆as amigos del foro

Sr. Mercado toda mi aplicaci贸n esta desarrollada con tsbrowse, empece a migrarla para trabajar con MySql y ado
por esta raz贸n le pido de favor si podr铆a hacerme llegar la ultima versi贸n de su clase.
de antemano le agradezco, mi correo : oscarfmaldonado@hotmail.com

Saludos

Oscar

Saludos

Oscar

Fwh 23.10, bcc55

mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Fri Jun 19, 2009 02:05 PM
EASYSOFT wrote:Sr. Mercado toda mi aplicaci贸n esta desarrollada con tsbrowse, empece a migrarla para trabajar con MySql y ado
por esta raz贸n le pido de favor si podr铆a hacerme llegar la ultima versi贸n de su clase.
de antemano le agradezco, mi correo : oscarfmaldonado@hotmail.com
Hola Oscar:

Checa tu correo.

Un abrazo.

Manuel Mercado.
manuelmercado at prodigy dot net dot mx
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Sun Jun 21, 2009 08:17 PM

Hola Maestro Manuel:

Yo tengo la misma la situaci贸n de Oscar. Todas mis aplicaciones est谩n atadas a tu maravillosa clase TSBrowse. Pero, me estoy quedando atr谩s en el uso de Ado y MySql. Podr铆as, por favor mandarme tu clase con estas prestaciones ?

Un abrazo y mill贸n de gracias,

Carlos Gallego

cgallegoa@mastersoft3000.com

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

EASYSOFT
Posts: 195
Joined: Sat Oct 22, 2005 01:17 PM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Mon Jun 22, 2009 06:10 PM

Sr. Mercado
gracias por su generosa ayuda

en esta nueva versi贸n no funciona UPSTABLE y ResetBarpos con Rescordsets o existe alg煤n equivalente.

una vez mas gracias por su ayuda

Saludos

Oscar

Saludos

Oscar

Fwh 23.10, bcc55

EASYSOFT
Posts: 195
Joined: Sat Oct 22, 2005 01:17 PM
Re: AYUDA CON TSBROWSE Y ADO
Posted: Wed Feb 17, 2010 10:25 PM

Amigos del foro y Sr. Mercado

Desde que empece a utilizar la ultima version de tsbrowse y elimine la linea resetbarpos()
al mover el scroll sobre el browse se me pierden los indices no se que estoy haciendo mal
por favor necesito su ayuda

Saludos

Oscar

Fwh 23.10, bcc55

Static archive 路 New replies & topics via GitHub Discussions