Cita:
Empezado por papulo
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
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