FiveTech Support Forums

nuevamente.
ahora tratando de migrar de dbf a sql, algun colega por aqui que me ayudara con un pequeño ejemplo de un query sobre un xbrowse y su busqueda incremental?
gracias
paco

Mira el blog de William SQLCMD. Te será de gran ayuda. Yo aún no intento el paso a TMySql.
Saludos.

FranciscoA,

El blog es http://wmormar.blogspot.com

Si uasa la clase Tdolphin , sera como usar database, te lo digo por experiencia que conozco muy poco de MYSQL, con ayuda de un colega y la clase TDP fue muy facil, saludos...

Amigo con esto es para la busqueda

FUNCTION PlisBuscar(nKey,oDatos,oTabla,oOrden,oLbx,cbusca,cSelect)
-----------------------------------------------------
Local cQuery,campo
DEFAULT cSelect := ""
If nKey=8
cbusca:= SubStr(cbusca,1,Len(cbusca)-1)
cQuery:="SELECT "+ cSelect + " FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden+" LIMIT 300"
oDatos:=oServer:Query(cQuery,.T.)
Else
cbusca :=cbusca + Upper(chr(nkey))
cQuery:="SELECT "+ cSelect +" FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden+" LIMIT 300"
oDatos:=oServer:Query(cQuery,.T.)
If oDatos:Reccount() == 0
cbusca:=left(cbusca,len(cbusca)-1)

     cQuery:="SELECT "+ cSelect +" FROM "+oTabla+" WHERE "+oOrden+" LIKE '"+UPPER(cBusca)+"%' ORDER BY "+oOrden+"  LIMIT 300"
     oDatos:=oServer:Query(cQuery,.T.)
  Endif

Endif

Setxbrowse(oLbx, oDatos ) // importante para la navegacion
oDatos:Refresh()
oLbx:Refresh(.t.)
oLbx:SetFocus()
oDatos:GOTOP()

return .t.

Saludos

William, I'm sorry.

Jose Luis, revisa tu email.

Saludos a ambos.

probare suerte
gracias a todos
saludos
paco