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

[karinha]

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.

[karinha]

Mira Ramon:

https://imgur.com/uPRvdiB



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

Regards, saludos.

[karinha]

Pronto Ramón. compila con HARBOUR Ó XHARBOUR.

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

Dowload completo:

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

Regards, saludos.

[Ramón J.]

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

Muy agradecido, João.

Saludos

[Adolfredo Martinez]

Hola karinha.

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

[karinha]

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.

[jbrita]

Hola... algo asi andas buscando

[jbrita]

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

[JoseAlvarez]

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

[Adolfredo Martinez]

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

[JoseAlvarez]

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

[artu01]

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