robertofonseca
(usa Suse)
Enviado em 08/02/2010 - 17:12h
Srs,
Estou com a ingrata missão de exportar uma base de firebird(argh) para txt.
Estou tentando da seguinte forma:
<?php
$conexao = ibase_connect("10.10.14.1:c:/gdb/banco.spi","SYSDBA","masterkey");
$sql = "select * from tbclientes";
$resultado = ibase_query($conexao, $sql);
$res = ibase_query($sql) or die ('problemas no SQL');
$num = ibase_num_fields($res);
while ($row = ibase_fetch_object($res)) {
$arq = fopen("clientes.txt", "w");
$branco = '';
$ponto = fseek($arq, 1, SEEK_CUR );
fwrite($arq, $branco);
$clcod=$row->CLCOD;
$ponto = fseek($arq, 2, SEEK_CUR );
fwrite($arq, $clcod);
$nome=$row->CLNOME;
$ponto = fseek($arq, 6, SEEK_CUR );
fwrite($arq, $nome);
$cltipo=$row->CLTIPO;
$ponto = fseek($arq, 46, SEEK_CUR );
if ($cltipo == 1) {
$cltipo = 'F';
}else{
$cltipo = 'J';
fwrite($arq, $cltipo);}
$datanasc='01/01/90';
$ponto = fseek($arq, 47, SEEK_CUR );
fwrite($arq, $datanasc);
$clpai=$row->Clpai;
$ponto = fseek($arq, 55, SEEK_CUR );
fwrite($arq, $clpai);
$clmae=$row->Clmae;
$clmae = $clmae."\n";
$ponto = fseek($arq, 95, SEEK_CUR );
fwrite($arq, $clmae);
fclose($arq);
}
?>
Só que tipo ele roda esse lopping e ao reabir o arquuivo ele sobrescreve linha por linha...
Precisava que ele “pulasse” pra linha de baixo...ficando cada registro de cliente em linha separada...
Alguém tem alguma idéia?