dape
28-09-2005, 20:48:18
¡Hola amigos! le comento que después de lograr hacer que la applicación que desarrollo se cierre si no se logra conectar con la base de datos, me sale un error cuando se conecta, el error es el siguiente:
SQL Parse Error:
Parameter name expected
el código que utilizo para cerrar la app si no hay coneción es el sgte:
begin
{Si existe otra instancia ya ejecutandose, la activamos}
RvHandle := FindWindow(NIL,'cpaf.exe');
if RvHandle > 0 then
begin
PostMessage(RvHandle, CM_RESTORE, 0, 0);
Exit;
end;
{Sino, haz lo normal}
Application.Initialize;
frmSplash := TFrmsplash.Create(Application);
try
frmsplash.Show;
frmsplash.Update;
Application.Title := 'cpaf.exe';
Application.CreateForm(Tfrmmain, frmmain);
Application.CreateForm(Tdmcpaf, dmcpaf);
frmsplash.Hide;
finally
frmsplash.Free;
end;
if dmcpaf.MDODbcpaf.Connected = false then
begin {si no se conecta a la BD se muestra un mensaje y se cierra al app}
showmessage('No se puede conectar a la base de datos.'+#13+'La aplicación se va a cerrar.');
application.Terminate;
end;
Application.Run;
end.
La verdad no se que pueda ser, además no sé a que parámetro se refiere el error, no creo que se refiera al user y pass porque cóloco ambos para la conexión.
Una cosa más (esta va de contrabando), quiero interceptar el error que me muestra la BD al no haber conexión, para que así no se muestre y sólo se muestre mi mensaje.
Por cierto, utilizo Firebird 1.5 y Delphi 7 con componentes MDO
Espero puedan darme una ayuda para resolver mi problema.
Saludos desde Tacna - Perú
SQL Parse Error:
Parameter name expected
el código que utilizo para cerrar la app si no hay coneción es el sgte:
begin
{Si existe otra instancia ya ejecutandose, la activamos}
RvHandle := FindWindow(NIL,'cpaf.exe');
if RvHandle > 0 then
begin
PostMessage(RvHandle, CM_RESTORE, 0, 0);
Exit;
end;
{Sino, haz lo normal}
Application.Initialize;
frmSplash := TFrmsplash.Create(Application);
try
frmsplash.Show;
frmsplash.Update;
Application.Title := 'cpaf.exe';
Application.CreateForm(Tfrmmain, frmmain);
Application.CreateForm(Tdmcpaf, dmcpaf);
frmsplash.Hide;
finally
frmsplash.Free;
end;
if dmcpaf.MDODbcpaf.Connected = false then
begin {si no se conecta a la BD se muestra un mensaje y se cierra al app}
showmessage('No se puede conectar a la base de datos.'+#13+'La aplicación se va a cerrar.');
application.Terminate;
end;
Application.Run;
end.
La verdad no se que pueda ser, además no sé a que parámetro se refiere el error, no creo que se refiera al user y pass porque cóloco ambos para la conexión.
Una cosa más (esta va de contrabando), quiero interceptar el error que me muestra la BD al no haber conexión, para que así no se muestre y sólo se muestre mi mensaje.
Por cierto, utilizo Firebird 1.5 y Delphi 7 con componentes MDO
Espero puedan darme una ayuda para resolver mi problema.
Saludos desde Tacna - Perú