syspel Posted April 22, 2016 Report Share Posted April 22, 2016 ola pessoal eu nunca usei array,preciso de fazer um funcao assim ler do banco de dados para um array,com 5 variaveis como codigo,nome endereco,cep bairro depois de lido gravar isto dentro de um outro arquivo alguem tem uma ideia como ler e gravar isto obrigado fwh 14.02 xharbour 123 dbf xdev carlos Quote Link to comment Share on other sites More sharing options...
Theotokos Posted April 22, 2016 Report Share Posted April 22, 2016 Use Arquivo Go Top aDados := { } / Array que vai receber dados While !EOF() AADD( aDados, { Arq->Codigo, Arq->Nome, Arq->Endereco, ARq-Cep, Arq->Bairro}) DbSkip(1) EndDo Close Use OutroArquivo Go Top For nV1 := 1 To Len(aDados) Append Blank Replace CODIGO With aDados[nV1,1] Replace NOME Wiith aDados[nV1,2] Replace ENDERECO With aDados[nV1,3] Replace CEP With aDados[nV1,4] Replace BAIRRO With aDados[nV1,5] Next nV1 evertonlb 1 Quote Link to comment Share on other sites More sharing options...
syspel Posted April 25, 2016 Author Report Share Posted April 25, 2016 vou testar, obrigado carlos Quote Link to comment Share on other sites More sharing options...
syspel Posted April 25, 2016 Author Report Share Posted April 25, 2016 deu certinho muito obrigado carlos Theotokos 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.