exportar do banco de dados para texto

Delphi

16/11/2004

preciso exportar banco de dados para txt, para importar foi facil o problema e que para exportar não consigo informar a coluna que ele deve começar, preciso informar em que colunaq inicia cada field para exportar os dados corretamente.

preciso importar foi assim
table2filial.Value:=copy(entrada,01,02);

ao exportar preciso do mesmo esquema que ele respeite a linha inicial.
ex: table1filial.value-> inicie na linha 03

ha possibilidade de fazer isto?

Grato


Cpd_arim

Cpd_arim

Curtidas 0

Respostas

Fer_nanda

Fer_nanda

16/11/2004

Coloque um contador para que controle a linha onde ele deva começar a escrever, dentro de um while vc pode ir pulando as linhas até a condição. Assim:
While linha <= contador
  Readln(ArqIni);

qdo terminar a leitura das linhas existentes vc começa a exportar.
Espero ter ajudado. Até


GOSTEI 0
Osocram

Osocram

16/11/2004

Se vc usar o CDS criando um DataSet acho q seria mais facil....


GOSTEI 0
Cpd_arim

Cpd_arim

16/11/2004

não expliquei direito

preciso que o resultado exportado entre na coluna exata que importei.

ex. table1coluna1.value(01,22);
table1coluna2.value(23,02);
para importar peguei o valor que começa na coluna 01 e tem 22 caracteres e peguei o valor da coluna 2 que começa na coluna 23 e tem 02 caracteres.
para exportar quero fazer o mesmo.
que ele volte para a coluna 01 mesmo que não contenha os 22 caracteres
preciso que ele volte ao mesmo lugar de origem.


GOSTEI 0
Osocram

Osocram

16/11/2004

não expliquei direito preciso que o resultado exportado entre na coluna exata que importei. ex. table1coluna1.value(01,22); table1coluna2.value(23,02); para importar peguei o valor que começa na coluna 01 e tem 22 caracteres e peguei o valor da coluna 2 que começa na coluna 23 e tem 02 caracteres. para exportar quero fazer o mesmo. que ele volte para a coluna 01 mesmo que não contenha os 22 caracteres preciso que ele volte ao mesmo lugar de origem.


O CDS poderia controlar isso p vc... mas se vc tem q usar o seu proprio formato mesmo...

enton faca um procedimento tipo
Procedimento PreencheColuna(var aPalavra:string;aCol:integer);
{
aPalavra - o Dado q vai ser armazenado
aCol - o tamanho q ele deve ter
}
begin
  if Length(aPalavra)<aCol then begin
    aPalavra := ´ ´+aPalavra;
    PreencheColuna(aPalavra,aCol);//chamada recursiva
  end
  else 
    if Length(aPalavra)>aCol 
     aPalavra := copy(aPalavra,1,aCol);//caso a aPalavra seja maior q deveria
end;


Bom acho q eh isso...
Ou vc faz uma Function q acho q seria mais apropriado aqui... fica a seu criterio....

Eu fiz esse codigo so p t exemplificar enton non sei se tem alguem erro.... mas tah simples e comentado qq coisa eh so fazer os ajustes


GOSTEI 0
POSTAR