Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   IBX ¿como asignar usuario,base de datos, nombre de usuario por codigo? (https://www.clubdelphi.com/foros/showthread.php?t=67827)

JXJ 08-05-2010 05:56:56

IBX ¿como asignar usuario,base de datos, nombre de usuario por codigo?
 
hola

estoy recien probando los ibx
y no encuentro como hacer para
asignar los datos de

usuario contraseña, base de datos,

via codigo

yo pensaba que era algo asi

IBDatabase1.username := 'sysdba';
IBDatabase1.password := 'masterkey';
IBDatabase1.databasename := ''localhost:C:\aplicacion\dirbase\base.fbd;

lo que quiero es poder guardar esainformacion a un archivo ini
y poder recuperarla.

Casimiro Notevi 08-05-2010 16:49:18

¿Cuál es el problema, asignar los valores, leer de un .ini?, ¿qué problema tienes con ello?

marcoszorrilla 08-05-2010 17:01:37

Por ejemplo partiendo de un INI como éste:

[Camino]
String=Localhost:C:\xxxx\xxxx\xxxxx.FDB

Código Delphi [-]
procedure TDmConex.DataModuleCreate(Sender: TObject);
Var
MiCarpeta:String;
MiFicheroIni:TIniFile;
begin
MiCarpeta:=ExtractFilePath(Application.ExeName);
IBDatabase.Close;
  Try
  //Abrir el INI
  MiFicheroIni := TIniFile.Create (MiCarpeta+'MZFB.ini');
  //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
  IbDtsUsuarios.Active   := True;
  IbDtsContadores.Active := True;
  IbDtsImpresoras.Active := True;
  IbDtsConf.Active       := True;
  Except
  ShowMessage('No se pudo acceder al fichero '+Mificheroini.FileName  );
  end;

end;


Un Saludo.

JXJ 09-05-2010 03:45:26

leer y guardar los datos

basededatos
usuario
contraseña

aun no encuentro como se asignan los valores por codigo

Casimiro Notevi 09-05-2010 18:45:24

¿Y así no?
Cita:

Empezado por JXJ (Mensaje 363268)
IBDatabase1.username := 'sysdba';
IBDatabase1.password := 'masterkey';
IBDatabase1.databasename := ''localhost:C:\aplicacion\dirbase\base.fbd;



La franja horaria es GMT +2. Ahora son las 00:59:15.

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