FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ¿Cómo hago una búsqueda incremental en xBrowse?
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Wed Nov 03, 2021 10:21 AM

Ramon, que compilador usas, HARBOUR ó XHARBOUR?

Voy hacer un ejemplo de como hago, ok?

És posible enviar este BD SATINDEX.DBF para testes?

Use el MegaUpload, si?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Wed Nov 03, 2021 02:36 PM
Mira Ramon:

https://imgur.com/uPRvdiB



Haciendo pruebas con HARBOUR y XHARBOUR después, pongo en el megaupload.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Wed Nov 03, 2021 04:06 PM
Pronto Ramón. compila con HARBOUR Ó XHARBOUR.

CX.BAT -> xHarbour.
HB.BAT -> Harbour.

Dowload completo:

https://mega.nz/file/FZlSGZhA#OsdsbOC-ZYQSLGjpnjjhuWnXqEXQNCtqIVflba7NG5M

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Wed Nov 03, 2021 08:51 PM

Muchas gracias, João. El compilador que uso es Harbour. Probaré tu ejemplo.

Muy agradecido, João.

Saludos

FWH 20.12 BCC7
Posts: 141
Joined: Fri Feb 15, 2019 01:37 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Thu Nov 04, 2021 12:13 AM

Hola karinha.

Tu viendo tu ejemplo de backup y Restore, excelente, de casualidad no tiene uno pero de Mysql. O un ejemplo.

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Thu Nov 04, 2021 11:03 AM
Adolfredo Martinez wrote:Hola karinha.

Tu viendo tu ejemplo de backup y Restore, excelente, de casualidad no tiene uno pero de Mysql. O un ejemplo.


Buén dia. 1000 desculpas, no uso MySql aún.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Thu Nov 04, 2021 02:10 PM
Hola... algo asi andas buscando
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Thu Nov 04, 2021 02:24 PM
aca va con mysql

Code (fw): Select all Collapse
    REDEFINE GET oGet VAR cBusca ID 101 OF oDlg UPDATE   FONT oFont1  when .f.

cExi_Suc:=xServer:Query("SELECT * FROM exi_suc  ORDER BY ma_desc")
cExi_Suc:GoTop()


        oLbx:bKeyDown           := {|nKey| (Search(nKey,@cBusca,oDlg,oLbx,"ma_desc"),oLbx:Refresh(),oLbx:Refresh(),oGet:Refresh() )}


STATIC FUNCTION  Search(nKey,cBusca,oDlg,oLbx,oOrden)
*--------------
Local oTabla:="exi_suc"
LOcal cQuery

If nkey=8

      cbusca:= SubStr(cbusca,1,Len(cbusca)-1)
      cQuery:="SELECT * FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden
      cExi_Suc:=xServer:Query(cQuery,.T.)
Else


       cbusca :=cbusca + Upper(chr(nkey))
      cQuery:="SELECT *  FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden
      cExi_Suc:=xServer:Query(cQuery,.T.)
      If cExi_Suc:Lastrec() == 0
         cbusca:=left(cbusca,len(cbusca)-1)

         cQuery:="SELECT * FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden
         cExi_Suc:=xServer:Query(cQuery,.T.)
      Endif

Endif
SetDolphin( oLbx, cExi_Suc,.f. )

cExi_Suc:Refresh()
oLbx:Refresh(.t.)
oLbx:SetFocus()
return nil


Saludos
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Thu Nov 04, 2021 03:05 PM
Adolfredo Martinez wrote:Hola karinha.

Tu viendo tu ejemplo de backup y Restore, excelente, de casualidad no tiene uno pero de Mysql. O un ejemplo.



viewtopic.php?f=6&t=40864
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 141
Joined: Fri Feb 15, 2019 01:37 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Thu Nov 04, 2021 05:42 PM

Hola amigos del forum.

JoseAlvarez estuve viendo el video, de tu copia de seguridad en Mysql, sera que puedes compartir esas lineas de codigo.

Gracias por la atencion prestadas

Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Mon Nov 08, 2021 04:42 PM
Adolfredo Martinez wrote:Hola amigos del forum.

JoseAlvarez estuve viendo el video, de tu copia de seguridad en Mysql, sera que puedes compartir esas lineas de codigo.

Gracias por la atencion prestadas


Adolfredo, Saludos.

Disculpa la tardanza en contestar.

Puedes bajar los PRG desde aqui

http://www.datanet.space/fw/RespaldoMariaDB.rar

Por supuesto debes adaptarlo a tu manera de programar, cualquier duda quedo a tu orden.

El procedimiento teorico es el siguiente:

Para respaldar, el programa crea un DUMP de la base de datos y lo graba en una carpeta local predefinida por mi sistema en formato texto .SQL
De alli, lo comprime en .ZIP y lo envia a un correo tambien predefinido por el sistema, siempre y cuando sea menor a 25mb que es la capacidad maxima para archivos adjuntos de GMAIL. Si el archivo se va al correo, el programa lo borra de la carpeta local, si no lo envia porque pase de 25mb o por falla de conexion a internet, lo deja en la carpeta para que el usuario lo extraiga manualmente.

En cualquier momento hago la modificacion para que en el caso de que el archivo pese mas de 25mb, en lugar de enviarlo a un correo lo suba a un servidor.

Para restaurar, se debe recuperar el archivo .SQL desde el .ZIP que se envio al correo de respaldo y colocarlo en la carpeta establecida por el sistema para las opraciones de respaldo y restauracion, luego desde la opcion de restaurar, solamente se indica el path del archivo y se hara la restauracion automatica.

Todas las carpetas que se utilizan para el respaldo y los datos del correo adonde se envia la informacion las guardo y recupero desde archivos .INI

Para respaldar y restaurar se deben otorgar los permisos de lectura/escritura de la carpeta donde esta instalado el MariaDB
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: ¿Cómo hago una búsqueda incremental en xBrowse?
Posted: Tue Nov 09, 2021 01:23 AM

José tb tuve ese problema de lentitud con dbf , me imagino que es porque recorre por toda la red la data almacenada en el servidor por eso salte a sql y ahora las búsquedas son normales ya que se aplica a un recordset que es una copia de la tabla de tu servidor pero que se ubica en la memoria del terminal, así lo entiendo yo

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

Continue the discussion