Exportar datos de firebird a archivo de texto

[[egostar]]

Hablando de cosas divertidas, hay otro componente que extrae la información de la base de datos. El componente IBDatabaseInfo.

Código Delphi [-]
var
  I: Integer;
begin
  IBDataBase1.Open;
  Memo1.Lines.Add(IBDataBaseInfo1.Version);
  Memo1.Lines.Add(IBDataBaseInfo1.DBFileName);
  Memo1.Lines.Add(IBDataBaseInfo1.DBSiteName);
  for I := 0 to IBDataBaseInfo1.UserNames.Count - 1 do
      Memo1.Lines.Add(IBDataBaseInfo1.UserNames[i]);
  Memo1.Lines.Add(InttoStr(IBDataBaseInfo1.CurrentMemory));
  Memo1.Lines.Add(InttoStr(IBDataBaseInfo1.MaxMemory));
  IBDataBase1.Close;
end;

Haber que les parece

Salud OS

[jhonny]

Empezado por egostar

Haber que les parece

Pues muy interesante...

Me gusto tambien esto:

Código Delphi [-]
  Memo1.Lines.Clear;
  IBExtract1.ExtractObject(eoDatabase);
  Memo1.Lines := IBExtract1.Items;

[[egostar]]

Empezado por jhonny

Pues muy interesante...

Me gusto tambien esto:

, Por supuesto amigo jhonny, perdón por no haberlo comentado, de hecho, ya lo tengo en mi bitácora de funciones disponibles, porque se me acaba de ocurrir algo con ese código

Salud OS.

[jhonny]

Empezado por egostar

perdón por no haberlo comentado

Pues no entendi, ¿que es lo que no habias comentado?

Pregunto, porque esa rutinita anterior no la habia mencionado en este hilo, pues esa rutina extrae toda la metadata de la BD, mientras que la primera solo trae los datos de una tabla

Pero hay que tener cuidado con los Blob porque ninguna de las funciones que hemos mencionado hasta ahora los trae.

[[egostar]]

Empezado por jhonny

Pues no entendi, ¿que es lo que no habias comentado?

Pregunto, porque esa rutinita anterior no la habia mencionado en este hilo, pues esa rutina extrae toda la metadata de la BD, mientras que la primera solo trae los datos de una tabla

Pero hay que tener cuidado con los Blob porque ninguna de las funciones que hemos mencionado hasta ahora los trae.

Que me gustaba tu rutina, pero tengo un problema, me manda este error al ejecutarlo. yo solo quiere los datos de una sola tabla que se llama EVENTOS y que me acabas de ayudar a crearla en este hilo.

Dynamic SQL Error
SQL error code = -204
Table unknown
Eventos
At line 1, column 10.

Solo cambie el nombre de la tabla de esta forma

Código Delphi [-]
  Memo1.Lines.Clear;
  IBExtract1.ExtractObject(eoTable, 'Eventos', [etData]); // Aqui me da el error
  Memo1.Lines := IBExtract1.Items;

Salud OS

[jhonny]

Empezado por egostar

Que me gustaba tu rutina, pero tengo un problema, me manda este error al ejecutarlo. yo solo quiere los datos de una sola tabla que se llama EVENTOS y que me acabas de ayudar a crearla en este hilo.



Solo cambie el nombre de la tabla de esta forma

Código Delphi [-]
  Memo1.Lines.Clear;
  IBExtract1.ExtractObject(eoTable, 'Eventos', [etData]); // Aqui me da el error
  Memo1.Lines := IBExtract1.Items;

Salud OS

Evidentemente te estas conectando a una BD diferente o simplemente en esa BD no esta creada dicha tabla...

Un detalle, si usas esa rutina te traera la estructura de la tabla 'Eventos' y los datos, pero si la usas asi:

Código Delphi [-]
  Memo1.Lines.Clear;
  IBExtract1.ExtractObject(eoData, 'LISTA');
  Memo1.Lines := IBExtract1.Items;

Te traera solo los datos, tu decidiras lo que prefieres

[[egostar]]

mmm, cosa rara, le quite el último parámetro para solo traer los datos y ya no me dio el error, pero no me muestra nada y tiene 3 datos en la tabla.

Curioso.

[capo979]

Si soy de argentina del interior muchas gracias a todos muy bueno todo

[jhonny]

Empezado por capo979

Si soy de argentina del interior muchas gracias a todos muy bueno todo

Una pregunta, ¿Hiciste la corrección que mencione anteriormente, para la función que cree inicialmente y la seguiste usando? o ¿Simplemente pasaste a usar las propiedades descubiertas del TIBExtract?, lo pregunto porque solo quiero saber si haz preferido adaptabilidad o velocidad

[capo979]

todavia no lo he probado bien bien cuando lo haga te aviso

saludos

[capo979]

Una pregunta de IBExtract. Como se hace si por ejemplo tengo una tabla de clientes y quiero que el ibextract me saque todos los clientes que nacieron antes de una determinada fecha, o sea yo quiero que ibextract me de en insert lo que yo quiero no toda la tabla.

gracias

saludos

[jhonny]

Empezado por capo979

Una pregunta de IBExtract. Como se hace si por ejemplo tengo una tabla de clientes y quiero que el ibextract me saque todos los clientes que nacieron antes de una determinada fecha, o sea yo quiero que ibextract me de en insert lo que yo quiero no toda la tabla.

gracias

saludos

No creo que eso se pueda hacer con IBExtract, pero podrias crear un procedimiento almacenado, que haga lo mismo.