Ver Mensaje Individual
  #1  
Antiguo 28-09-2005
dape dape is offline
Miembro
 
Registrado: ene 2004
Ubicación: Tacna - Perú
Posts: 138
Reputación: 21
dape Va por buen camino
Error al conectar con BD

¡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:

Código:
 SQL Parse Error:
 Parameter name expected
el código que utilizo para cerrar la app si no hay coneción es el sgte:

Código Delphi [-]
 
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ú

Última edición por dec fecha: 29-09-2005 a las 11:24:34. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita