Hola a tod@s:
En primer lugar utilizo los componentes Zeos para conectar con la BD en MySQL.
Para comprobar si existe un ejercicio (BD) utilizo la siguiente función:
function EjercicioValido(Ejercicio:string):boolean;
var
msBDTmP:TZZMySqlDataBase;
mstrTran:TZZMySqlTransact;
begin
{Ejercicio es recuperado del registro de windows
y es un numero (año), por ejemplo "2003"}
if ejercicio='' then
begin
result:=false;
exit;
end;
msBDTmP:=TZZMySqlDataBase.Create(dmdatos);
msBDTmP.Host:=dmdatos.msBD.Host;
msBDTmP.Login:='root';
mstrTran:=TZZMySqlTransact.Create(dmdatos);
mstrTran.Database:=msbdtmp;
msBDTmP.Database:=ejercicio;
msBDTmP.Connected:=false;
try
msBDTmP.Connected:=true;
except
end;
result:=msBDTmP.Connected;
msBDTmP.Free;
mstrTran.Free;
end;
Si la función devuelve TRUE conecto dmdatos.msBD con el ejercicio, en caso contrario (FALSE, el ejercicio no existe) muestro una ventana para la introducción de un ejercicio válido y vuelvo a llamar a la función para ver si es válido (existe).
Hasta ahora (ayer) la función iba perfectamente, pero hoy no hay manera; la función siempre me devuelve FALSE.
Creo que el problema esta en MySQL, porque intento acceder a las bases de datos mediante un Front-End y tampoco hay manera. El semáforo está en verde, listo para trabajar (en principio).
La versión de los componentes Zeos es la -Beta 5.3.4- y la de MySQL es la -3.23.53-.
Si alguien pudiera echarme una mano lo agradeceria, primero fueron los filtro y ahora esto (sere el gafe)
.
Gracias de antemano y un saludo.