Outras sugestões?

[Carlos Moreira 0]

Olá pessoal estou tentando listar as cores existentes no produto que estao separado por "," ele esta fucionando certinho porem nao esta rodando dentro do meu código onde eu tenho um carrinho de comprar.

 

Erro ele somente adiciona o 1° produto corretamente depois que pega esse "next" do codigo ele nao funciona mais

por exemplo eu tento adicionar o 2° ou 3° ... produto ele nao vai com o valor correto que coloquei no campo quantidade.

 

o código é este abaixo

 

e a DUVIDA É: TERIA ALGUMA MANEIRA DE MONTAR ESSE MESMO CÓDIGO ABAIXO sem esse FOR e If Not RScores1.eof then porque acho que são eles que esta ocorrendo esse problema

 

<%arrayCores1= split(RS("cores"),",")for i=0 to ubound(arrayCores1)Call abre_conexao(ConnString,Conn)Set RScores1 = Server.CreateObject("ADODB.Recordset") msql = "SELECT * FROM cores where id="&cint(arrayCores1(i))&" order by cor"RScores1.Open msql, Conn,3,3If Not RScores1.eof then%><%If RScores1("imagem1") <> "" then%><img src="imagens/uploads/<%=RScores1("imagem1")%>" alt="<%=RScores1("cor")%>" width="10" height="10" border="0" /><%End IF%><input name="cores" type="radio" value="<%=RScores1("id")%>"><%End IfNextRScores1.Close Set RScores1 = NothingCall fecha_conexao() %>

[LiPe 0]

Cara, Você colocou pra abrir a conexão dentro de um laço for? E o recordset também dentro do laço? Ai a cada interação ele vai fazer isso rsss....Dica: O interessante é você ter a tabela de PRODUTO e uma tabela PRODUTO_CARACTERESTICAS, sendo que nessa segunda teria o CD_PRODUTO,CD_CARACTERISTICA,VALOR....conseguiu me compreender? ai sei lá a COR AZUL poderia ser uma caracteristica de código 3, entendeu?Abraços...

[Carlos Moreira 0]

Nao consegui compreender LiPe.você disse que estou fazendo errado abrindo a conexão no for...Qual é a maneira correta??

[Ted k' 126]

o que o LiPe tentou dizer é mais ou menos isso!

 

Dispinivel em:
<select name="cores">
<%
arrayCores1= split(RS("cores"),",")

Call abre_conexao(ConnString,Conn)
Set RScores1 = Server.CreateObject("ADODB.Recordset")
msql = "SELECT * FROM cores where id="&cint(arrayCores1(i))&" order by cor"
RScores1.Open msql, Conn,3,3

for i=0 to ubound(arrayCores1)
If Not RScores1.eof then
%>
<option value="<%=RScores1("id")%>"><%=RScores1("cor")%></option>
<%
End If
Next
RScores1.Close
Set RScores1 = Nothing
Call fecha_conexao()
%>
</select>

[Carlos Moreira 0]

ainda esta dando erro:

 

Perceba que no Where ele faz uma busca com esse tal de (i) que contem onde esta em negrito

 

 

Código que o você passou:

 

 

<select name="cores"><%arrayCores1= split(RS("cores"),",")Call abre_conexao(ConnString,Conn)Set RScores1 = Server.CreateObject("ADODB.Recordset")msql = "SELECT * FROM cores where id="&cint(arrayCores1(i))&" order by cor"RScores1.Open msql, Conn,3,3for i=0 to ubound(arrayCores1)If Not RScores1.eof then%><option value="<%=RScores1("id")%>"><%=RScores1("cor")%></option><%End IfNextRScores1.CloseSet RScores1 = NothingCall fecha_conexao()%></select>

Entendeu

ai ele listou apenas uma cor

[Ted k' 126]

Entendi, estranho esse erro cara: veja æ outra coisa:

 

<select name="cores">
<%
Call abre_conexao(ConnString,Conn)

arrayCores1= split(RS("cores"),",")
for i=0 to ubound(arrayCores1)

Set RScores1 = Conn.Execute("SELECT * FROM cores where id='"&arrayCores1(CInt(i))&"' order by cor")
If Not RScores1.eof then
%>
<option value="<%=RScores1("id")%>"><%=RScores1("cor")%></option>
<%
End If
Next
RScores1.Close
Set RScores1 = Nothing
Call fecha_conexao()
%>
</select>

[Carlos Moreira 0]

Deu erro na linha 8 desse código q me passou o erro foi esse:"Tipo de dados imcompatível na expressão de critério./handicraft2/includes/coreslist.asp, line 8"

[Ted k' 126]

qual é a linha 8, sua?

[Carlos Moreira 0]

6- arrayCores1= split(RS("cores"),",")7 for i=0 to ubound(arrayCores1)8- esta vazia aquimas acho que ta pegando a de cima né?

[Ted k' 126]

esse RS("cores") vem um valor numero, para comparar com o ID que está no SQL, ou vem texto????

[Carlos Moreira 0]

Vem assim:4,2,1,6,8é os IDs da tabela Cores

[Carlos Moreira 0]

basicamente é assim:Eu tenho uma tabela PRODUTOS assim:tituloreferenciadescricaovalorcores= aqui eu insiro os ids da tabela cores separados por "," assim: 2,8,10aprovadocompreende?

[Ted k' 126]

Agora melhorou!!!!

 

olah bem amigo, fiz um teste aki com o Banco ORACLE o olha o que resultou:

 

minha tebela de cores está assi:

codigo, que é um campo de auto-numeração, chave primária

cores, que é um campo de teste com 255 caracteres

 

cadastrei 3 cores, (verde, amarelo, azul)

cada um có os respectivos códigos auto-numeraveis (1,2,3)

veja como coloquei o codigo

<select name="cores">
<%
ts = "1,2,3"

arrayCores1= split(ts,",")
for i = 0 to ubound(arrayCores1)

Set RScores1 = TedkBanco.Execute("SELECT * FROM tedkteste where codigo = '"&arrayCores1(CInt(i))&"'")
If Not RScores1.eof then
%>
<option value="<%=RScores1("codigo")%>"><%=RScores1("cores")%></option>
<%
End If
Next
RScores1.Close
%>
</select>

se você reparou o seu antigo RS("Cores") coloquei um valor chamado ts com o valor das cores, que é o que você quer...

 

no final apareceu um com com as tres cores, era esse o resultado ou em confundi tudo?

[Carlos Moreira 0]

Tek sertinho kra... ele busca as cores exata e agora adiciona no carrinho POREM ocorre o seguintess eu coloco quantidade num produto ex: 5 ele manda pro carrinho o valor 1 somente