FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Chequear existencia de una BD
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.
__________________
Vivir a la deriva, sentir, que no se que hago aki... (Extremo) |
|
|
|