Ver Mensaje Individual
  #16  
Antiguo 03-09-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Reputación: 25
egostar Va camino a la fama
Cita:
Empezado por papulo Ver Mensaje
Para aclarar el tema.

Para ser exactos uso el componente IBDatabase de la pestaña InterBase.

Entonces, si mal no he entendido, en el campo "DatabaseName" del elemento IBDatabase, con poner "88.77.66.55:ElAlias" ya tendría que hacer la conexión correctamente desde fuera.

¿Correcto?
Esta es la forma como yo accedo a mi base de datos,

Para no tener que modificar el codigo cada vez que cambia la IP o el nombre de servidor recupero los datos del registro de windows (algunos les gusta mas usar archivos INI, en todo caso el valido de ambas formas)

En el evento OnCreate de la forma principal

Código Delphi [-]
procedure TFMenu.FormCreate(Sender: TObject);
begin
  { Obtiene Parametros de Comunicacion a Base de Datos }
  LlaveRegistro             := 'Software\STarADM\';
  FIniFile                  := TRegIniFile.Create();
  FIniFile.RootKey          := HKEY_LOCAL_MACHINE;
  RutaBase                  := FIniFile.ReadString(LlaveRegistro+'DATA', 'DataBasePath', '');
  RutaBaseBackup            := FIniFile.ReadString(LlaveRegistro+'DATA', 'BackupBDPath', '');
  Servidor                  := FIniFile.ReadString(LlaveRegistro+'DATA', 'Server', '');
  FIniFile.Free;
end;

Y en el evento OnCreate del DataModule

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  case FMenu.protocolo of
     0: IBDatabase1.DatabaseName := FMenu.Servidor+':'+FMenu.RutaBase;
     1: IBDatabase1.DatabaseName := '\\'+FMenu.Servidor+'\'+FMenu.RutaBase;
  end;
  try
  IBDatabase1.Open;
  except
    ShowMessage('Hubo un error al inicializar la conexión con la base de datos.'#13+
                 'Verifique que los datos de acceso a la base sea la correcta'#13+
                 'en el menu Herramientas->Configuración'#13+
                 'Después de modificar los datos, reinicie esta aplicación.');
  end;
end;

Espero te de una idea mas clara.

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita