xBrowse + TMySQL
Posted:
Sat May 14, 2011 4:08 am
by 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
Re: xBrowse + TMySQL
Posted:
Sat May 14, 2011 3:04 pm
by FranciscoA
Mira el blog de William SQLCMD. Te será de gran ayuda. Yo aún no intento el paso a TMySql.
Saludos.
Re: xBrowse + TMySQL
Posted:
Sat May 14, 2011 6:58 pm
by 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...
Re: xBrowse + TMySQL
Posted:
Sat May 14, 2011 8:36 pm
by 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
Re: xBrowse + TMySQL
Posted:
Sun May 15, 2011 4:29 am
by FranciscoA
William, I'm sorry.
Jose Luis, revisa tu email.
Saludos a ambos.
Re: xBrowse + TMySQL (SOLUCIONADO)
Posted:
Sun May 15, 2011 5:53 am
by Francisco Horta
probare suerte
gracias a todos
saludos
paco