Configurara Base por progrma..

[[BlueSteel]]

despistado como siempre... pregunto y luego busco... ...

buscando en el foro encontre esto... en parte me sirve...

Código Delphi [-]

   // Algo similar a ésto... para asignarle valores
   IBDataBase.LoginPrompt := False;
   IBDataBase.DatabaseName := DBName;  //pe:  \\192.168.80.5\...
   IBDataBase.Params.Add( 'USER_NAME=usuario);
   IBDataBase.Params.Add( 'PASSWORD=clave);
   IBDataBase.SQLDialect := 3;
   IBDataBase.TraceFlags := [];
   IBDataBase.IdleTimer := 0;
   IBDataBase.Connected := True;

mi problema seria traspasarle los datos como usuario y clave que estan en vUsu.Text y vCla.Text respectivamente

[Onti]

Curiosamente yo utilizo un datamodule llamado datos para contener a los componentes de coneccion (TIBDatabase, etc)

En un formulario de obtienes los datos de usuario y contraseña base de datos a la que se conecta
( si es local directamente el path --> d:\dbms\base.gdb
si es remota ip+path --> 192.168.0.1:d:\dbms\base.gdb
)

y los asignas a tu TIBDatabase ubicado en tu datmodule

Código Delphi [-]
  .
  .
  Datos.IBD_Datos.DatabaseName :=NomBase;
  Datos.IBD_Datos.Conected        :=True;

y tus componentes Query, Table apuntan a Datos.IBD_Datos

cuando necesites apunta a otra base de datos el procedimiento es el mismo, cierras la base cambias valores a Datos.IBD_Datos y lo coenctas con Datos.IBD_Datos.Conected :=True;

Espero te sirva

[[egostar]]

Empezado por BlueSteel

Código Delphi [-]
// Algo similar a ésto... para asignarle valores
   IBDataBase.LoginPrompt := False;
   IBDataBase.DatabaseName := DBName;  //pe:  \\192.168.80.5\...
   IBDataBase.Params.Add( 'USER_NAME=usuario);
   IBDataBase.Params.Add( 'PASSWORD=clave);
   IBDataBase.SQLDialect := 3;
   IBDataBase.TraceFlags := [];
   IBDataBase.IdleTimer := 0;
   IBDataBase.Connected := True;

mi problema seria traspasarle los datos como usuario y clave que estan en vUsu.Text y vCla.Text respectivamente

Pues asi, directamente

Código Delphi [-]
   IBDataBase.Params.Add( 'USER_NAME='+vUsu.Text);
   IBDataBase.Params.Add( 'PASSWORD='+vCla.Text);

Saludos.

[rmenor]

Recientemente he hecho una aplicación como la que estas indicando pero y lo hice de la siguiente manera porque si no me daba errores:

Código Delphi [-]
dm_general.db_multigestor.Params.Values ['user_name'] := e_usuario.Text;    
dm_general.db_multigestor.Params.Values ['password'] := e_contrasena.Text;    
dm_general.db_multigestor.DatabaseName := e_servidor.Text + ':' + e_ruta.Text + e_nombre.Text + '.FDB';

la base de datos es el db_multigestor y en params tienes que crear una sola vez los valores user_name= y password= y como ves después los utilizas. De la manera que te han explicado me probocaba error al intentar modificar las rutas. e_usuario y e_contrasena son dos edit modificables.