Theotokos Posted August 18, 2021 Report Share Posted August 18, 2021 Bom Dia!!! Tenho uma array assim: { {Codigo, Qtde, Preco} } e preciso gravar ele em BD no campo String e depois recupera Exemplo: { {00001, 2, 34.50}, {00005, 1, 50.40}, {001230, 3, 12.34} } Preciso Salvar esta array em um campo STRING (Memo) e depois recuperar de forma que fique esta array... Atualmente uso Hb_aTokens, mas ele recuperar como Vetor, assim { 00001, 2, 34.50, 00005, 1, 50.40, 001230, 3, 12.34 } Quote Link to comment Share on other sites More sharing options...
emotta Posted August 18, 2021 Report Share Posted August 18, 2021 Pega ai essa bem simplificada e eficaz. A funcao u_Teste é um exemplo de uso ArrayToString transforma o array em string (na verdade um json) StringToArray lê o json salvo em arraytostring e devolve o array pronto Function u_Teste() Local aDados := {} Local nI For nI := 1 to 10 aadd(aDados, nI) Next cSave_Array := ArrayToString(aDados) aNew_Array := StringToArray(cSave_Array) MsgStop(Sr_ShowVector(aNew_Array)) Return Static Function ArrayToString(aDados) Local hDados := Hash() hDados["ARRAY"] := aDados Return hb_jsonEncode(hDados,.t.) Static Function StringToArray(cDados) Local hDados := Hash() Local aDados := {} try hb_jsondecode(cDados, @hDados) aDados := hDados["ARRAY"] catch end Return aDados Jmsilva and Theotokos 2 Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted August 19, 2021 Report Share Posted August 19, 2021 Se vc usa a lib fivewin pode usar a funções ARead() e ASave(). Excelente veja exemplo no link abaixo. https://wiki.fivetechsoft.com/doku.php?id=fivewin_function_aread Quote Link to comment Share on other sites More sharing options...
emotta Posted August 19, 2021 Report Share Posted August 19, 2021 9 horas atrás, Jmsilva disse: Se vc usa a lib fivewin pode usar a funções ARead() e ASave(). Excelente veja exemplo no link abaixo. https://wiki.fivetechsoft.com/doku.php?id=fivewin_function_aread Que legal essas funções, eu não as conhecia. Obrigado por compartilhar Jmsilva 1 Quote Link to comment Share on other sites More sharing options...
Theotokos Posted August 19, 2021 Author Report Share Posted August 19, 2021 Vlw emotta!!! REsolveu pra mim.... Obgdao fk com Deus!!! 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.