Ver Mensaje Individual
  #3  
Antiguo 22-01-2009
angelholberg angelholberg is offline
Miembro
 
Registrado: jul 2006
Posts: 15
Reputación: 0
angelholberg Va por buen camino
Arrow Detalle de Problema Grave con conección a BD Firebird

Gracias Al González por tu respuesta pues mira detallo mi problema:
1.- Uso Delphi 2009 y los componentes DBExpress
2.- Firebird 2.1
3.- La conección a la BD la hago despues del Application.Initialize; de mi proyecto aca muestro el código que utilizo:
With Datamodulo Do
Begin
SQLEmpresas.Connected := False;
SQLEmpresas.DriverName := 'InterBase';
SQLEmpresas.GetDriverFunc := 'getSQLDriverINTERBASE';
SQLEmpresas.LibraryName := 'dbexpint.dll';
SQLEmpresas.VendorLib := 'gds32.dll';
SQLEmpresas.LoginPrompt := False;
SQLEmpresas.Params.Clear;
SQLEmpresas.Params.Add('DatabaseVendor=Interbase');
SQLEmpresas.Params.Add('DriverName=Interbase');
SQLEmpresas.Params.Add('BlobSize=-1');
SQLEmpresas.Params.Add('CommitRetain=False');
SQLEmpresas.Params.Add('DataBase=' + vpRutaSis+ 'Base\FEEMPRESAS.fdb');
SQLEmpresas.Params.Add('ErrorResourceFile=');
SQLEmpresas.Params.Add('LocaleCode=0000');
SQLEmpresas.Params.Add('ServerCharSet=');
SQLEmpresas.Params.Add('SQLDialect=3');
SQLEmpresas.Params.Add('Interbase TransIsolation=ReadCommited');
SQLEmpresas.Params.Add('WaitOnLocks=True');
SQLEmpresas.Params.Add('User_Name=' + 'SYSDBA');
SQLEmpresas.Params.Add('Password=' + 'masterkey');
SQLEmpresas.Connected :=TRUE;
End;
4.- Todo funciona perfectamente mientras no se haya generado un error al ejecutar un Query por ejemplo un Insert Into, un Select, etc.
5.- Si sucede alguna exepción (tal es mi caso) al ejecutar la consulta muestra el errror, hay no ahy6 problema se que se esta haciendo aml una operación u otra cosa, despeus salgod e ese módulo y al intentar por ejemplo de hacer un Inser into me manda un mensaje que dice que no ahy conección con mi BD, entonces por tal motivo supongo mi SQLConnection se desconecta de mi BD

Gracias espero puedan ayudarme
Responder Con Cita