crear bases de datos y transacciones en tiempo de ejecucion

[madmai]

me gustaria crear bases de datos y transacciones con los componentes de interbase en tiempo de ejecucion, alguien me podria decir como hacerlo gracias de antemano. un saludo

[Neftali [Germán.Estévez]]

Pues el propio componente de TIBDatabase posee el método CreateDataBase para tal efecto.
Asignas el DataBaseName, en los parámetros (params) rellenas usuario y contraseña y luego ya puedes llamar al método.

Código Delphi [-]
  // La ruta incluyendo servidor
  IBDB.DatabaseName := DBName;
  // Parámetros de conexion
  IBDB.params.Add('user ' + '''' + Self.UserName + '''');
  IBDB.params.Add('password ' + '''' + Self.Password + '''');
  //--IBDB.params.Add('Charset ''ISO8859_1''');
  IBDB.SQLDialect := 1;
  // Crea la Base de Datos
  IBDB.CreateDatabase();
  ....

[madmai]

me referia a los componentes de la base de datos y a la transacion no al fichero, gracias por contestar y a ver si me ayudas

[Neftali [Germán.Estévez]]

¿Te refieres a crear los componentes TIBDatabase y TIBTransaction en ejecución?
Si es así, basta que ejecutes un create y asignes las propiedades.

Busca en los foros "Crear componentes runtime" y encontrarás muchos hilos al respecto.
Piensa que no tiene mayor complicación; Una vez creado, asignas por codigo una a una las mismas propiedades que asignas en el inspector de objetos. Como Owner en el Create le pasas "Self" y creo que con eso debería valer.

Un saludo.

[madmai]

eso mismo estoy intentando pero no lo consigo, podrias ponerme un ejemplo, gracias de antemano.

[Neftali [Germán.Estévez]]

Pues vendías a ser algo así:

Código Delphi [-]
var
  IBDB      :TIBDataBase;
begin
  // Objeto TIBDataBase
  IBDB := TIBDataBase.Create(nil);
  // Servidor
  case Self.NetworkProtocol of
    npNETBEUI : DBName := '\\' + Self.ServerName + '\' + Self.DataBaseName;
    npSPX     : DBName := Self.ServerName + '@' + Self.DataBaseName;
    // Se asume TCPIP
    else        
      DBName := Self.ServerName + ':' + Self.DataBaseName;
  end;
  // La ruta incluyendo servidor
  IBDB.DatabaseName := DBName;
  // Parámetros de conexion
  IBDB.params.Add('user ' + '''' + Self.UserName + '''');
  IBDB.params.Add('password ' + '''' + Self.Password + '''');
  IBDB.SQLDialect := 1;

  // Conectar
  ...

Es un código antiguo que tenía por ahí hace mucho tiempo, te puede servir de guía. En cuanto a TIBTransaction, es mucho más sencillo, puesto el número de propiedades a asignar es mucho menor.