Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-06-2007
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Poder: 20
FGarcia Va por buen camino
Error de conexion al minimizar y restaurar en Win98SE

Hola a todos!

Tengo una aplicacion hecha en Delphi7, MDO y Firebird 2.0 esta la ejecuto en XP y en win 98 y funciona ok, sin embargo me di cuenta recien que si la minimizo en XP al restaurarla todo continua funcionando correctamente, sin embargo al hacer la misma operacion en Win98 SE al tratar de restaurarla me dice que no puede conectar con la bd pues otra aplicacion la esta utilizando. Alguien sabra el ¿porque de esto? ¿cual es la diferencia en minimizar en XP y en Win98?

Este es parte del codigo del source de la aplicacion para conectar con la BD

Código Delphi [-]
begin
  //Creamos el modulo de datos de conexiones a la BD
  Application.CreateForm(TfrmCnx, frmCnx);
  //Intentamos conectar con la BD en caso de error no se inicia la aplicacion
  if not frmCnx.Conectar then
    begin
      FreeAndNil(frmCnx);
      Exit;
    end;
  //La conexion fue exitosa! Inicializamos la aplicacion y creamos los demas
  //modulos de datos
  Application.Initialize;
  Application.createform(TfrmDatos, frmDatos);
  Application.CreateForm(TDM_Formatos, DM_Formatos);
  Application.CreateForm(TDM_Varios, DM_Varios);
 
//algunas cosas mas

y este es el codigo de la conexion en un modulo de datos

Código Delphi [-]
function TfrmCnx.Conectar : boolean;
begin
  Result := True;
  //Si estamos conectados nos desconectamos
  if MDODatabase1.Connected then
    MDODatabase1.Connected := False;
  //Asignamos nombre de la base de datos
  MDODatabase1.DatabaseName :=
        IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0))) + NombreBD;
  //Intentamos conectar
  try
    MDODatabase1.Connected := True;
  except
    on E: Exception do
      begin
        ShowMessage(Format(errConectarBD, [E.Message ]));
        Result := False;
      end;
    end;
end;

Agradesco su ayuda.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Eventos al minimizar/restaurar un Form??? vejerf Varios 2 02-01-2008 13:41:16
Abrir conexión tras restaurar Marjinhos Conexión con bases de datos 0 10-01-2007 00:17:45
Error al restaurar BD SMTZ Oracle 9 04-01-2007 17:32:16
error al restaurar backup luiszamora MS SQL Server 0 08-10-2006 22:08:45
Error al restaurar xxx.gbk Sudamericano Firebird e Interbase 2 24-02-2004 18:18:04


La franja horaria es GMT +2. Ahora son las 17:02:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi