Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Asignar ubicacion de la base de datos (https://www.clubdelphi.com/foros/showthread.php?t=81917)

nmenna10 03-01-2013 15:55:50

Asignar ubicacion de la base de datos
 
Hola buenos dias, quisiera hacer una consulta, como tendria que hacer para que desde dentro de mi programa yo pueda cambiar la direccion de la base de datos, mientras lo estoy ejecutando, esto vendria a ser una especie de opcion que trae el programa por si lo quiero cambiar de maquina o algo, para no tener que volver a entrar al codigo cada vez que quiero cambiar la ubicacion de mi BD, ya prove de varias maneras y no lo puedo hacer... si me pudieran ayudar estaria encantadisimo.

Muchas gracias y feliz año nuevo para todos!.

marcoszorrilla 03-01-2013 15:57:29

Según los casos puedes utilizar un "alias" ó un fichero INI en donde le indiques la situación de la BD.

Un Saludo.

nmenna10 03-01-2013 15:58:31

hola, y eso como seria, por que no tengo ni idea, la verdad es q soy bastante nuevo en esto...

marcoszorrilla 03-01-2013 16:04:52

Ejemplo de INI.
[Camino]
String=127.0.0.1:C:\Delphi7\Programasfb\Marcos\BDMARCOS.FDB

Código ubicado en el DataModule que realiza la conexión a la BD,(el ejemplo es con Firebird y las IBX.
Código Delphi [-]
procedure TDmMarcos.DataModuleCreate(Sender: TObject);
var
MiCarpeta:String;
MiFicheroIni:TiniFile;

begin
MiCarpeta:=ExtractFilePath(Application.ExeName);
  Try
  //Abrir el INI
  MiFicheroIni := TIniFile.Create (MiCarpeta+'MZFB.ini');
  IBDatabase.Connected:=False;
  //Pasar los parámetros al Componente IBDatabase
  IBDatabase.DatabaseName:=MiFicheroIni.ReadString ('Camino', 'String','Error');
  //Abrir Base de datos
  IBDatabase.Connected:=True;
  //Abrir transación
  Ibtransaction.Active  :=True;
  //Abrir Dataset
  
  Except
  ShowMessage('No se pudo acceder al fichero '+Mificheroini.FileName  );
  end;
  //ShowMessage(ExtractFilename(IbDatabase.DatabaseName));
end;
Un Saludo.


La franja horaria es GMT +2. Ahora son las 07:58:18.

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