[resolvido] Erro no na formação de txt

Moderador: Avelino Sampaio

percoski
Mensagens: 29
Registrado em: 29 Jul 2015, 19:26

[resolvido] Erro no na formação de txt

Mensagempor percoski » 27 Jun 2018, 12:54

Olá bom dia, preciso gerar um arquivo no seguinte formato
"{"ID":"1","NOME":"Fernando","SENHA":"123456","MAXIMO_DESCONTO":"10"},"
cheguei neste aki,
"{ID:1,NOME:Administrador,SENHA:123, MAXIMODESCONTO:10},"
eis a linha que gera o arquivo com os dados,

Print #1, "{" & "ID" & ":" & rs("idUsuario") & ",NOME" & ":" & rs("Usuario") & ",SENHA:" & rs("Senha") & ", MAXIMODESCONTO:" & rs("desconto") & "},"


se alguem puder me ajudar agradeço

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1870
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Erro no na formação de txt

Mensagempor Avelino Sampaio » 28 Jun 2018, 15:05

Percoski,

veja se atende:

http://www.usandoaccess.com.br/dicas/transferir-recordset-para-txt-dao.asp

Nota: Observe que CHR(34) é a introdução das ASPAS no txt.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

percoski
Mensagens: 29
Registrado em: 29 Jul 2015, 19:26

Re: Erro no na formação de txt

Mensagempor percoski » 29 Jun 2018, 01:38

Mestre cheguei quase ao resultado esperando.
[*][
{"ID":"1","NOME":"Administrador","SENHA":"123","MAXIMO_DESCONTO":"Falso"},
{"ID":"2","NOME":"Master","SENHA":"master","MAXIMO_DESCONTO":"Falso"},
{"ID":"3","NOME":"PERCOSKI","SENHA":"12345","MAXIMO_DESCONTO":"Falso"},
]


essa ultima virgula não pode estar ai, segue o meu codigo se puder me ajudar agradeço.

Código:
Print #1, "["
Do While Not rs.EOF
strPalavra = rs!idusuario
strLinha = " {" 'rs!idusuario &
Do While strPalavra = rs!idusuario
strLinha = strLinha & Chr(34) & "ID" & Chr(34) & ":" & Chr(34) & rs!idusuario & Chr(34) & "," & Chr(34) & _
"NOME" & Chr(34) & ":" & Chr(34) & rs!usuario & Chr(34) & "," & Chr(34) & "SENHA" & Chr(34) & ":" & Chr(34) & _
rs!Senha & Chr(34) & "," & Chr(34) & "MAXIMO_DESCONTO" & Chr(34) & ":" & Chr(34) & rs!Bloqueado & Chr(34) & ","
rs.MoveNext
If rs.EOF Then Exit Do
Loop
strLinha = Left(strLinha, Len(strLinha) - 1)
strLinha = strLinha & "},"
Print #1, strLinha
Loop
Print #1, "]"
rs.Close
Set rs = Nothing
Close #1


O correto seria assim
[
{"ID":"1","NOME":"Administrador","SENHA":"123","MAXIMO_DESCONTO":"Falso"},
{"ID":"2","NOME":"Master","SENHA":"master","MAXIMO_DESCONTO":"Falso"},
{"ID":"3","NOME":"PERCOSKI","SENHA":"12345","MAXIMO_DESCONTO":"Falso"}
]

Avatar do usuário
Avelino Sampaio
Mensagens: 1870
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Erro no na formação de txt

Mensagempor Avelino Sampaio » 29 Jun 2018, 08:37

Percoski,

experimente assim:

Código:
Print #1, "["
Do While Not rs.EOF
strPalavra = rs!idusuario
strLinha = " {" 'rs!idusuario &
Do While strPalavra = rs!idusuario
strLinha = strLinha & Chr(34) & "ID" & Chr(34) & ":" & Chr(34) & rs!idusuario & Chr(34) & "," & Chr(34) & _
"NOME" & Chr(34) & ":" & Chr(34) & rs!usuario & Chr(34) & "," & Chr(34) & "SENHA" & Chr(34) & ":" & Chr(34) & _
rs!Senha & Chr(34) & "," & Chr(34) & "MAXIMO_DESCONTO" & Chr(34) & ":" & Chr(34) & rs!Bloqueado & Chr(34) & ","
rs.MoveNext
If rs.EOF Then Exit Do
Loop
strLinha = Left(strLinha, Len(strLinha) - 1)
strLinha = IIf(rs.EOF, strLinha & "}", strLinha & "},")
Print #1, strLinha
Loop
Print #1, "]"
rs.Close
Set rs = Nothing
Close #1


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


percoski
Mensagens: 29
Registrado em: 29 Jul 2015, 19:26

Re: Erro no na formação de txt

Mensagempor percoski » 29 Jun 2018, 23:07

Maguinifico, perfeito, funcionou perfeito.


Muito Obrigado

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 3 visitantes