xBrowse + TMySQL

[Francisco Horta]

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

[FranciscoA]

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

[wmormar]

FranciscoA,

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

[joseluisysturiz]

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...

[jbrita]

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

[FranciscoA]

William, I'm sorry.

Jose Luis, revisa tu email.

Saludos a ambos.

[Francisco Horta]

probare suerte
gracias a todos
saludos
paco