Tirar a (,) do registro no banco e listar um por vez

[shumi 0]

Galera,Estou fazendo um programinha aqui e muitos campos tem o mesmo nome e eles vão para a mesma tabela no banco de dados então eles ficam com a virgula (,) exemplo Fruta: Goiaba, melancia, Limão, laranja.Tem como aparecer um registro de cada vez? exemplo Fruta: GoiabaFruta: melanciaFruta: limãoFruta: laranjaTem como?

[Mário Monteiro 179]

simsó quebrar o seu conteudo e inserir tudo num laço de repeticao

[shumi 0]

Laço de repetição seria + ou - assim ? While NOT rs.EOF rs.MoveNext Wendé que estou planejando um sisteminha e tive essa ideia ao inves de fazer campo1, campo2, campo3, vou fazer só um campo e "quebrar" ele como você falou!!!e como que quebro o conteudo?Valeu!!!

[Mário Monteiro 179]

se ta separado por virgula voce pode quebrar com o SPLIT e usa o FOR como laço

[shumi 0]

Eu começei a fezer e surgiu uma dúvida no banco!Eu uso o access.Como eu faço para que caiba + de 255 caracteres em cada linha? tem como?abraços

[fabiosc80 0]

Utiliza Memorando

[shumi 0]

Memorando cabem quantos quiser?IXI acho que o memorando tem um limite.Olha o erro que deu.Objeto Request erro 'ASP 0107 : 80004005' Estouro de pilha /sistema/acao_valida.asp, line 19 Os dados que estão sendo processados estão acima do limite permitido. qual é o limite alguem sabe?Valeu

[explore 3]

Cara sei que é bastante.mais oq tem na linha 19?

[shumi 0]

nosso_produto = Request.Form("nosso_produto")É o request do campo que digitei informação pra caramba!!!!mas se cabem bastante beleza!!! é que exagerei mesmo, coloquei coisa pra caramba pra ve se dava certo, mas se cabe bastante beleza mesmo!!!!Quando for gerar o relatório vou precisar de ajuda pra saber como que faz o que o Mario falou!Valeu

[Mário Monteiro 179]

certeza deste campo estar como memorando??

[shumi 0]

Absoluta!!!!É que você não tem noção o quanto eu digitei!!!eu tenho 16 campos que vão para o mesmo lugar e nos 18 campos eu digitei uma linha cheio de caracteres ai copiei e dei uns 300 ctrl + V em cada 1...acho que por isso que deu o erro! rsmas ajudou, pois tenho um sisteminha de mensagens que fiz para conversar nas horas vagas e nele cabia 255 caracteres ai coloquei em memorando ele pra caber +Abraços

[fabiosc80 0]

Shumi.Memorando aceita até 65.535 caracteres. Acho que você não vai usar tanto assim né?

[shumi 0]

HEHHEHEHEHE Não mesmo!!!!!!!Abraços e valeu!!!!!

[shumi 0]

Mario como eu faço pra fazer aquele esquema que você falou

se ta separado por virgula voce pode quebrar com o SPLIT e usa o FOR como laço

Meus dados no banco de dados estão assim-----------------------------------------------------------------------------------EndereçoRua: Diogo de quadros, Rua: Texeira de Melo, Rua: Teodoro Sampaio, , , , , , ,-----------------------------------------------------------------------------------PromotoraAna, Camila, Juliana, , , , , , ,-----------------------------------------------------------------------------------E fazendo esse esquema ele fica certinho?e as (,) tem como faze-las sumir?exemploRua: Diogo de quadro = AnaRua: Texeira de Melo = CamilaRua: Teodoro Sampaio = JulianaObrigado

[Mário Monteiro 179]

elas somem quando voce usa o SPLIT

[shumi 0]

Tem como você me mostrar um exemplo pra eu fazer?Obrigado

[Mário Monteiro 179]

MINHAVAR = "futebol,mulher,cinema"MEUARRAY = SPLIT(MINHAVAR,",")Response.Write("O que o Mário gosta???<BR>")FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)Response.Write(MEUARRAY(I) & "<BR>")NEXT

[shumi 0]

Mario,

 

Vou puxar os valores do banco...

 

Ficaria + ou - assim????

 

<%Sql = "select * from dados"Set rs=Conexcao.Execute(sql)MINHAVAR = "<%=rs("nosso_produto")%>"MEUARRAY = SPLIT(MINHAVAR,",")Response.Write(<%=rs("campanha")%>)FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)Response.Write(MEUARRAY(I) & "<BR>")NEXT%>

É isso?????

 

Quero fazer uma tabela e esses dados ficarião um do lado do outro e para cara um dele terá um textbox!

 

É isso mesmo?

 

abraços

[Mário Monteiro 179]

aparentemente sim...esta dando erro???

[shumi 0]

sim,

 

Erro de compilação do Microsoft VBScript erro '800a0401'

 

Fim da instrução esperado

 

/sistema/acoes_f.asp, line 62

 

MINHAVAR = "rs("nosso_produto")"

 

 

fiz daquele jeito que tinha postado acima e assim:

<%Sql = "select * from dados"Set rs=Conexcao.Execute(sql)	MINHAVAR = "rs("nosso_produto")"	MEUARRAY = SPLIT(MINHAVAR,",")	Response.Write(rs("nosso_produto"))	FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)	Response.Write(MEUARRAY(I) & "<BR>")	NEXT%>

e os dois dão erro!

 

Abraços