F�rum Exportar FireBird, para Arquivo TXT #38480

02/09/2003

Ol� Colegas...

Gostaria de saber se exite alguma Forma de exportar dados do FireBird para um Arquivo TXT..Exemplo :
De uma Tabela de estados onde os mesmo j� est�o cadastrados...
Gostaria de gerar algo assim:

COMMIT WORK;

INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (01, 01, �AC�, �Acre�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (02, 01, �AL�, �Alagoas�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (03, 01, �AP�, �Amap�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (04, 01, �AM�, �Amazonas�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (05, 01, �BA�, �Bahia�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (06, 01, �CE�, �Cear�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (07, 01, �DF�, �Distrito Federal�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (08, 01, �ES�, �Esp�rito Santo�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (09, 01, �GO�, �Goi�s�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (10, 01, �MA�, �Maranh�o�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (11, 01, �MT�, �Mato Grosso�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (12, 01, �MS�, �Mato Grosso do Sul�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (13, 01, �MG�, �Minas Gerais�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (14, 01, �PA�, �Par�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (15, 01, �PB�, �Para�ba�);
INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (16, 01, �PR�, �Paran�);

COMMIT WORK;

Se algu�m puder me ajudar desde j� meus agradecimentos...

Edinei

Edineidaniel

Curtir t�pico

+ 0

Responder

Posts

02/09/2003

Afarias

s� um exemplinho::

const
insert_sql = �INSERT INTO �estado� (�cod_estado�, �cod_pais�, �sgl_estado�, �nom_estado�) VALUES (�d, �d, �s, �s);�;

var
LineText: string;
S: TStrings;

begin

S := TStringList.Create;
try
with IBQuery1 do
try
Open;
while not Eof do
begin
LineText := Format(insert_sql, [FieldByName(�codigo�).AsInteger,
FieldByName(�campo�).AsInteger,
FieldByName(�sigla�).AsString,
FieldByName(�nome�).AsString]);
S.Add(LineText);
Next;
end;
finally
Transaction.Commit;
end;
finally
Free;
end;
end;

T+

Responder

Gostei + 0