¿Cómo hago una búsqueda incremental en xBrowse?

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby karinha » 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
User avatar
karinha
 
Posts: 7800
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby karinha » Wed Nov 03, 2021 2:36 pm

Mira Ramon:

https://imgur.com/uPRvdiB

Image

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
User avatar
karinha
 
Posts: 7800
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby karinha » Wed Nov 03, 2021 4: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
User avatar
karinha
 
Posts: 7800
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby Ramón J. » Wed Nov 03, 2021 8:51 pm

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

Muy agradecido, João.

Saludos
FWH 20.12 BCC7
Ramón J.
 
Posts: 152
Joined: Mon Feb 13, 2006 8:23 pm

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby Adolfredo Martinez » 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.
Adolfredo Martinez
 
Posts: 109
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby karinha » 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
User avatar
karinha
 
Posts: 7800
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby jbrita » Thu Nov 04, 2021 2:10 pm

Hola... algo asi andas buscando
Image
jbrita
 
Posts: 502
Joined: Mon Jan 16, 2006 3:42 pm

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby jbrita » Thu Nov 04, 2021 2:24 pm

aca va con mysql

Code: Select all  Expand view

    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
jbrita
 
Posts: 502
Joined: Mon Jan 16, 2006 3:42 pm

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby JoseAlvarez » Thu Nov 04, 2021 3: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.
User avatar
JoseAlvarez
 
Posts: 793
Joined: Sun Nov 09, 2014 5:01 pm

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby Adolfredo Martinez » Thu Nov 04, 2021 5: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
Adolfredo Martinez
 
Posts: 109
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby JoseAlvarez » Mon Nov 08, 2021 4: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.
User avatar
JoseAlvarez
 
Posts: 793
Joined: Sun Nov 09, 2014 5:01 pm

Re: ¿Cómo hago una búsqueda incremental en xBrowse?

Postby artu01 » Tue Nov 09, 2021 1: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
artu01
 
Posts: 400
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 77 guests