Cria��o de Script utilizando Delphi com Interbase/Firebird

Question

Estou precisando de um auxilio em um desenvolvimento.Preciso que o Delphi crie pra mim um script de base dados, que contenha tb os dados das tabelas. Estou utilizando delphi 5 jutamento com Firebird. ...

Afarias · Answer

o IBExtract te d� os scripts dos objetos do banco... para os registros, basta vc fazer um loop nos registros e salvar para um texto formatado tipo::

const
  ins_cmd=�insert into tabela_tal (campo1, campo2, campo3) values (�s, �s, �s);�;

begin
  while not query.eof do
  begin
    ins_text := format(ins_cmd, [
      query.fieldbyname(�campo1�).AsString,
      query.fieldbyname(�campo2�).AsString,
      query.fieldbyname(�campo3�).AsString]);
    writeln(arquivo, ins_text);  //ou stringList.Add(ins_text)
    query.next;
  end;
end;

T+

F�rum Cria��o de Script utilizando Delphi com Interbase/Firebird #43396