Ver Mensaje Individual
  #4  
Antiguo 03-01-2013
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita