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

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-04-2006
Avatar de Durbed
Durbed Durbed is offline
Miembro
 
Registrado: ago 2004
Posts: 166
Poder: 20
Durbed Va por buen camino
Error al conectar con Firebird de forma Remota

Me pasa algon que a mi parecer es muyyy raro. El caso es que tengo el servidor de Firebird con las bases de datos montado en casa (para hacer pruebas), si ejecuto la aplicacion en local funciona perfectamente, el problema esta cuando conecto desde la red de la oficina. Me sale el siguiente error:

'Error reading data from the connection'

'Unable to complete network request to host "La Ip de Casa"
Error writing data to the connection
Se ha forzado la interrupcion de una conexion existente por el host remoto'

Ahora, lo mas curioso, es que antes de que salga ese error, consigo que se conecte a la base de datos y me muestre una lista con todos los usuarios, y al pedirle los datos de un usuario en concreto es donde salta el error. Tambien me conecta correctamente desde el EMS. El codigo que tengo es este:

Código Delphi [-]
//Obtengo los datos del INI para obtener el nombre de la base usuarios
  Ini := TIniFile.Create(UnidadComun.RutaINI);
  Try
    //Conecto y configuro la base de usuarios
    With DMUsuarios.IBDUsuarios Do
      Begin
DatabaseName := Ini.ReadString('SERVIDOR', 'IP', '') + ':' + Ini.ReadString('SERVIDOR', 'RUTA', '') + '\Agendas\usuarios.fdb';
        Params.Add(UnidadComun.UserName);
        Params.Add(UnidadComun.Password);
        LoginPrompt := False;
        Open;
      End;
    //Añado todos los usuarios a la lista de usuarios
    With DMUsuarios.IBQEjecutar Do
      Begin
        SQL.Clear;
        SQL.Add('SELECT LOGIN FROM USUARIOS');
        Open;
        While not Eof Do
          Begin
            CBLogin.Items.Add(FieldByName('LOGIN').AsString);
            next;
          End;
      End;
    
....

//Obtener los detalles de un usuario
      With DMUsuarios.IBQEjecutar Do
        Begin
          If DMUsuarios.IBDUsuarios.Connected Then
            Showmessage('Base usuarios conectada');
          consulta := 'Select * From Usuarios Where Login = ''' + CBLogin.Text + '''';
          SQL.Clear;
          SQL.Add(consulta);
          Open;  //Aqui salta el error
          ...
        End;
Pues a ver si alguien me puede ayudar, os pongo como estan conectados los ordenadores aunque es casi seguro que no sea de eso:
-En casa: Cable modem, es decir directamente a internet, el firewall bien configurado y el servidor corriendo como servicio en un WinXP.
-En la oficina: ADSL con un router, pero como digo con el EMS funciona bien y el servidor de FTP que tengo montado en casa tambien funciona correctamente.

Un saludo y muchas gracias aunque solo sea por leer este tocho.
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5
Responder Con Cita
 



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
Error al conectar firebird a través de adsl Nopatic Firebird e Interbase 4 17-04-2007 11:51:47
Crear Base de forma remota Durbed Firebird e Interbase 1 23-06-2005 17:08:07
Error al conectar con un BD de Firebird 1.5 con un BDPConnection tarus .NET 2 06-06-2005 09:09:38
Error al conectar tabla Firebird con campo blob vichovi Conexión con bases de datos 2 02-06-2005 09:18:41
error al conectar BD firebird con DBExpress en Kylix @-Soft Lazarus, FreePascal, Kylix, etc. 1 14-12-2004 13:48:41


La franja horaria es GMT +2. Ahora son las 02:22:53.


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