FiveTech Software tech support forums

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.

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
 

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.

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