Socorro ou vou ser despedido.........

Question

Tenho uma tabela em *.DBF com 19000 itens, os campos sao: codigo com 9 possicoes e historico com 40 posicoes e preciso pegar o conteudo desta tabela atraves de um botao enviar para um objeto memo item...

Aroldo Zanela · Answer

O cara t� afim de te mandar embora mesmo. Pois, por qual motivo haveria de n�o usar BDE neste caso. Algum mecanismo de acesso a dados dever� ser utilizado, quer seja BDE, Halcyon, Apolo, etc.
Sem falar que isso d� para fazer at� no Excel (limitado a 65535 registros).

Soulless · Answer

Bixo, sen�o der pra usar um desses citados ai em cima, usa o ODBC....

Prosystem · Answer

[quote:dafe22d548=�Martelato�]Tenho uma tabela em *.DBF com 19000 itens, os campos sao: codigo com 9 possicoes e historico com 40 posicoes e preciso pegar o conteudo desta tabela atraves de um botao enviar para um objeto memo item por item e com um outro botao enviar para um arquivo *.txt Obs: preciso fazer estes procedimentos sem utilizar o BDE, e sim tudo atraves de codigo. Obrigado....[/quote:dafe22d548]No evento onclick do botao procedure varv_tudo,v_codigo,v_descri:stringv_item,v_qtd:integer;begin   v_item:=table1.reccount;   v_qtd:=0;      with table1 do    while v_qtd <= v_item do   v_codigo:=inttostr(table1.fieldbyname(�codigo�).asinteger);   v_descri:=table1.fieldbyname(�historico�).asstring;   v_tudo:=v_codigo+||+v_descri   memo1.add.lines:=v_tudo   v_qtd:=v_qtd+1 endO processo acima devera adicionar a concatenacao dos campos que deseja para as lihas do componente memo.Depois e so imprimir.Espero que isto te ajude....

Aroldo Zanela · Answer

[quote:b59e3bc634=�prosystem�][quote:b59e3bc634=�Martelato�]Tenho uma tabela em *.DBF com 19000 itens, os campos sao: codigo com 9 possicoes e historico com 40 posicoes e preciso pegar o conteudo desta tabela atraves de um botao enviar para um objeto memo item por item e com um outro botao enviar para um arquivo *.txt Obs: preciso fazer estes procedimentos sem utilizar o BDE, e sim tudo atraves de codigo. Obrigado....[/quote:b59e3bc634]No evento onclick do botao procedure varv_tudo,v_codigo,v_descri:stringv_item,v_qtd:integer;begin   v_item:=table1.reccount;   v_qtd:=0;      with table1 do    while v_qtd <= v_item do   v_codigo:=inttostr(table1.fieldbyname(�codigo�).asinteger);   v_descri:=table1.fieldbyname(�historico�).asstring;   v_tudo:=v_codigo+||+v_descri   memo1.add.lines:=v_tudo   v_qtd:=v_qtd+1 endO processo acima devera adicionar a concatenacao dos campos que deseja para as lihas do componente memo.Depois e so imprimir.Espero que isto te ajude.[/quote:b59e3bc634]Colega,Mas assim ela est� utilizando o BDE (TTable)....

Prosystem · Answer

Meu amigo, se nao tiver precisao de usar a linguagem Delphi para fazer isto seu problemas acabaram. Manjo de clipper muito bem e este trabalho � agua caso possa utilizar outra linguagem.
Me responda quando tem que concluir esta tarefa que eu te mando uma rotina ja compilada para efetuar esta tarefa. OK.

Prosystem · Answer

Um meio de conseguir isto � atraves do DBEXPRESS com os componentes DATABASE,IBTABLE,IBQUERY, fora isto nao conheco nenhum outro metodo que nao utilize o BDE....

Marcelo.c · Answer

� impress�o minha ou ningu�m se lembrou de sugerir a utiliza��o de ADO.

Mas antes de mais nada, seria interessante saber porque motivo n�o pode utilizar BDE, a� talvez possamos pensar em algo melhor.

Martelato · Answer

Meus colegas, a pessoa que me pediu para fazer esta tarefa sem utilizar o BDE me disse, que existe uma maneira, mas nao me deu pistas, pois se trata de um trabalho muito grande e muito importante... ja procurei em varios lugares, nao obtive respostas, estou a ponto de comunicarme com a Borland em Sao Paulo, para solucionar o caso...
Aguardo Resposta...

Obrigado

Edmar ...

Bon Jovi · Answer

Use o componente TDBF://sourceforge.net/projects/tdbf/...

F�rum Socorro ou vou ser despedido......... #155777