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.
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.
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 77 guests