exportar do banco de dados para texto

Question

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 p...

Fer_nanda · Answer

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�

Osocram · Answer

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

Cpd_arim · Answer

n�o expliquei direitopreciso 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 caracterespreciso que ele volte ao mesmo lugar de origem....

Osocram · Answer

[quote:760b8d29f1=�cpd_arim�]n�o expliquei direitopreciso 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 caracterespreciso que ele volte ao mesmo lugar de origem.[/quote:760b8d29f1]O CDS poderia controlar isso p vc... mas se vc tem q usar o seu proprio formato mesmo...enton faca um procedimento tipo[code:1:760b8d29f1]Procedimento PreencheColuna(var aPalavra:string;aCol:integer);{aPalavra - o Dado q vai ser armazenadoaCol - 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 deveriaend;[/code:1:760b8d29f1]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...

F�rum exportar do banco de dados para texto #258505