Exportar datos de firebird a archivo de texto

[jhonny]

De todas maneras hay que reconocer que estos IBX tienen unas cosas muy divertidas, me puse a buscar un poco, sobre lo que Delfino a comentado y me he encontrado con que termine haciendo lo siguiente:

- Puse un TIBDatabase en un Form, tambien un TIBExtract, un TButton, un TMemo y un TIBTransaction, a los cuales no les cambie el nombre, pero hice los respectivos enlaces.

En el OnClick del Boton hice...

Código Delphi [-]
Memo1.Lines.Clear;
IBExtract1.ExtractObject(eoTable, 'Lista', [etData]); //Lista es el nombre de la tabla que quice llamar
Memo1.Lines := IBExtract1.Items;

Y adivinen que... todo funciono de maravillas y a una velocidad impresionante. La verdad es que son divertidos estos componentes

[jhonny]

Acabo de hacerle una pequeña mejora a la función que mas arriba explique llamada DatoFormateado, resulta que cuando un dato es menor a su tamaño del campo, toma el resto como espacios y no creo que eso sea conveniente para nadie, de manera pues que la función quedaria asi:

Código Delphi [-]
function DatoFormateado(const Campo: TField): String;
begin
  if (Campo is TStringField) or (Campo is TDateField) then
  begin
    Result := ''''+Trim(Campo.AsString)+'''';
  end
  else
    Result := StringReplace(Campo.AsString, ',', '.', [rfReplaceAll]);
end;

Y el resto sigue igual .

[[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

[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