Busca mysql retorno em tabela

[rafael]

Como eu uso muito o mysql as consultas as vezes se tornam uma fadiga usando o laço enquanto...

Pensando nisso, criei uma função que retorna a consulta em uma tabela usando os mesmos pares:

ainda não está bem polida mas já ajuda pac

Código Selecionar Expand


funcao BuscaMysql(COMANDO)

local Busca = con:exec(COMANDO); tem_erro(con,Busca);
local Resultado, Busca = con:obt_resultado();
local TBFinal={}
local Coluna = Resultado->obt_coluna();
enquanto 1 inicio
   local Linha = Resultado->obt_linha();
   se Linha entao
local TC = {}
para i,v em ipares(Coluna) inicio
TC[v] =  Linha[i]
fim
tabela.insira(TBFinal,TC)
   senao
   quebre
   fim
fim
retorne TBFinal
fim


local TabelaCliente = BuscaMysql("SELECT * FROM Clientes LIMIT 10")

imprima(#TabelaCliente)

para i,v em pares(TabelaCliente) inicio
   imprima(v.login)
fim

[adalberto]

Isso aí, muito bom.

Tudo quanto puder automatizar e simplificar, melhor ainda.

É que está meio corrido, mas um objetivo que tenho é fazer funções que simplifiquem a manipulação de banco de dados, como uma biblioteca que use as mesmas funções para vários tipos de bancos de dados.

Falou, até mais.