Exportar datos de firebird a archivo de texto

[capo979]

Hola les quería preguntar si es posible en firebird 1.5 exportar los datos de la base de datos a un archivo de texto dejandolos todos los datos como insert.

La idea es si hay algún programa que trae el instalador del firebird tipo el gbak o alguno que esté en la carpeta bin de firebird que me permita hacer lo antes mencionado.

Muchas gracias por escucharme

saludos a todos

[[Gabo]]

El programa Database Worckbench te permite exportar los datos de una tabla de la manera que quieres...

[capo979]

si eso si se que hay programas que lo hacen pero yo quiero hacerlo desde mi programa en delphi y dejarlo en un archivo en formato de texto. Por ejemplo si el gbak lo permite usaría gbak ya que a mis clientes les doy el gbak. No es una utilidad para utilizarla yo sino directamente mis clientes.

[jhonny]

¿Que componentes de conexion a BD usas?

[jhonny]

Bueno, lo mas normal es que tu aplicación tenga descendientes de TDataSet, entonces hice estas dos funciones, que te devuelven la cadena insert, tu diras si te sirven:

Código Delphi [-]

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

function ExportarInsert(DataSet: TDataSet; Tabla: String): String;
var
  i :Integer;
  cadena :string;
begin
  cadena := '';
  cadena := 'insert into '+Tabla+' values(';
  for i := 0 to DataSet.FieldCount -1 do
  begin
    cadena := cadena + DatoFormateado(DataSet.Fields[i]);
    if ((DataSet.FieldCount -1) = i) then
      cadena := cadena + ')'
    else
      cadena := cadena + ',';
  end;
  Result := cadena + ';';
end;

Solo es cuestion de que pongas a recorrer cualquier DataSet y exportes los resultado de la función ExportarInsert en un archivo, un ejemplo de esto es:

- Coloque un TMemo y una tabla, a los cuales se les hace esto:

Código Delphi [-]
Tabla1.First;
Memo1.Lines.Clear;
while not Tabla1.Eof do
begin
  Memo1.Lines.Add(ExportarInsert(Tabla1, 'TablaPrueba'));
  Tabla1.Next;
end;

Espero te sirva .

[capo979]

Los componentes de base de datos que utilizo son de la paleta Interbase el TIBDatabase

gracias

[MAHE]

Hola buenas noches quiero saber de la base de datos FIREFORD que es? para que sirve, ademas saber las siguientes preguntas especificas saber:
1.- cuales son sus ventajas,
2.- desventajas,
3.- limitaciones , y
4.-Funcionalidades

Porfa, ayuda de cualquier que se maneje bien en el tema

saludos a todos, MAHE


P.D. y muchas a Bluesteel

[[ArdiIIa]]

Empezado por MAHE

Hola buenas noches quiero saber de la base de datos FIREFORD que es? para que sirve, ademas saber las siguientes preguntas especificas saber:
1.- cuales son sus ventajas,
2.- desventajas,
3.- limitaciones , y
4.-Funcionalidades

Porfa, ayuda de cualquier que se maneje bien en el tema

saludos a todos, MAHE


P.D. y muchas a Bluesteel

Amigo Mahe Bienvenido al foro.
Te recomiendo la lectura de ESTO

Y ya de paso te comento que no es muy afortunado ir enviando mensajes privados a los usuarios que están en línea para que te resuelvan esta misma cuestión. Basta con que lo hayas puesto aquí.

Con respecto a Firebird, tienes amplia información en este foro, solamente la tienes que buscar...

Saludos.