He comenzado un proyectico personal para ponerme en practica con modharbour.
Ahora he tomado tanto el ejemplo de mercury de go.extend como el de sessiones de tweb
y en ambos al momento de hacer el login quito la verificacion dura por una consulta a una tabla via wdo.
Ejemplo :
// if hParam[ 'user' ] == 'demo' .and. hParam[ 'psw' ] == '1234'
if buscouser(hParam[ 'user' ],hParam[ 'psw' ])
donde en tsessiones es una función,
pero en mercury es un clase modelo.
el problema es que en los dos casos si intento hacer esta consulta sql
SELECT nombreuser,active,telefono,idtelegram,ultacceso from usermain WHERE email="mag071@gmail.com" AND passmd5="827ccb0eea8a706c4c34a16891f84e7b"
que me funciona correctamente desde cualquier cliente sql como heidisql
no pasa desde alli el WDO
Código: Seleccionar todo
function buscouser(cUser,cPass)
LOCAL oDb
local aRows := {}
local hRes
local cPassmd5:=hb_md5(cPass)
local cQuery
local cQuery2
oDb := WDO():Rdbms( 'MYSQL', 'localhost', 'harbour', 'password', 'sonestossonetos', 3357 )
cQuery:="SELECT nombreuser,active,telefono,idtelegram,ultacceso from usermain"
cQuery2:= "SELECT nombreuser,active,telefono,idtelegram,ultacceso from usermain where email5="+alltrim(cUser)+" and passmd5="+cPassMd5
hRes := oDb:Query( cQuery ) //Si uso cQuery funciona correctamente , pero si uso cQuery2 no funciona.
aRows := oDb:FetchAll( hRes, .t. )
if len(aRows) > 0
return .t.
else
return .f.
endif
Return .F.
le quito a la consulta el WHERE y si me funciona.
he visto en códigos que formatean todas las variable pero no se con que funciones hacerlo.
Gracias de antemano.