[Resolvido] Banco mostrando informações gravadars

[Legionario-rs 0]

Boa tarde pessoal,

 

Estou com um problema, tenho em um formulário de cadastro de produtos um texarea que quando faço o cadastro ele executa normalmente mas quando vou editar as informações em outro formulário ele nãi tráz as informações na tela...

 

Pode me ajudar?

Grato a todos!

[Jow Xavier 0]

<textarea name="nome" cols="" rows=""><%=rs("campo")%></textarea>

[Legionario-rs 0]

Boa noite amigo,

 

Nada ainda continua a mesma coisa, não aparece nada na edição do produto.

Ainda sem solução mesmo depois de tentar várias posições da linha.

Abraço.

[Ted k' 126]

como é que você está resgatando os dados??

 

coloque ai na tela seu código que puxa tbm esse textarea!

[Legionario-rs 0]

Segue...

 

<table border=0 width=100%>
<%
Dim lista_produtos,lista_categoria,lista_pedidos,prod_id,lista_prod,pedidos,tempcat,
acao,lista
acao = Request.QueryString("acao")
prod_id = Request.QueryString("prod_id")
If IsEmpty(Request.QueryString("prod_id")) Then 
	%>
	<script>window.location='./con_prod.asp'</script>
	<%
End If
If Request.Form("cat_id") = "nulo" Then
	%>
	<tr width=100%><td width=100%><font color=red>Selecione a Categoria</font></td></tr>
	<%
	acao = "X"
End If	
Select Case acao
Case "apagar"
	lojaDB.Execute("DELETE FROM produtos WHERE id=" & prod_id)
	%>
	<tr width=100%><td width=100%><h4>Produto Removido</h4></td></tr>
	<%
	lista = "nao"
Case "atualizar"
	lojaDB.Execute("UPDATE produtos set cat_id='" & Request.Form("cat_id") & "',nome='" & Request.Form("nome") & "',descricaop='" & Request.Form("descricaop") & "',descricaog='" & Request.Form("descricaog") & "',descricaoh='" & Request.Form("descricaoh") & "',preco='" & Request.Form("preco") & "',imagem='" & Request.Form("imagem") & "',disp='" & Request.Form("disp") & "' WHERE id=" & prod_id)
	%>
	<tr width=100%><td width=100%><h4>Produto Atualizado</h4></td></tr>
	<%
End Select
If Not (lista = "nao") Then
	'Exibe produto
	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE id=" & prod_id)
	set lista_categoria = lojaDB.Execute("SELECT * FROM categorias WHERE id=" & lista_produtos("cat_id"))
	set lista_pedidos = lojaDB.Execute("SELECT * FROM pedidos WHERE prod_id=" & lista_produtos("id"))
	If Not (lista_categoria.EOF) Then tempcat = lista_categoria("id") End If
	If Not (lista_produtos.EOF) Then
		If lista_pedidos.EOF Then
			pedidos = 0
		Else
			pedidos = 0
			lista_pedidos.MoveFirst
			While Not lista_pedidos.EOF
				pedidos = pedidos + 1
				lista_pedidos.MoveNext
			Wend
		End If
				%>
		<tr width=100%><td width=100%>
			<form method=post action="./con_prod_detalhes.asp?prod_id=<%=prod_id%>&acao=atualizar">
			<table border=1 width=100%>
			<tr valign=top><td width=1%>Id :</td><td><%=lista_produtos("id")%></td></tr>
			<tr valign=top><td width=1%>Nome :</td><td><input type=text maxlength=50 size=50 name=nome value="<%=lista_produtos("nome")%>"></td></tr>
			<tr valign=top><td width=1%>Categoria :</td><td>
				<select name=cat_id>
				<option value=nulo>Selecione uma Categoria</option>
				<%
				set lista_categoria = lojaDB.Execute("SELECT * FROM categorias")
				While not lista_categoria.EOF
					%>
					<option value="<%=lista_categoria("id")%>" <%If (lista_categoria("id") = tempcat) Then Response.Write "selected" End If%>><%=lista_categoria("nome")%></option>
					<%
					lista_categoria.MoveNext
				Wend
				%>					
				</select></td></tr>
			<tr valign=top><td width=1%>Descrição resumida :</td><td><input type=text maxlength=100 size=50 name=descricaop value="<%=lista_produtos("descricaop")%>"></td></tr>
			<tr valign=top><td width=1%>Fabricante :</td><td><input type=text maxlength=255 size=50 name=descricaog value="<%=lista_produtos("descricaog")%>"></td></tr>			
			<tr valign=top><td width=1%>Detalhes :</td><td><textarea cols="37" rows="5" name=descricaoh value="<%=lista_produtos("descricaoh")%>"></textarea></td></tr>			
			<tr valign=top><td width=1%>Preço :</td><td>R$ <input type=text size=8 name=preco value="<%=lista_produtos("preco")%>"></td></tr>
			<tr valign=top><td width=1%>Imagem :</td><td><input type=text size=50 name=imagem value="<%=lista_produtos("imagem")%>"></td></tr>
			<tr valign=top><td width=1% valign=top>Visualização:</td><td><img src="../images/<%=lista_produtos("imagem")%>"></td></tr>
			<tr valign=top><td width=1%>Disponível :</td><td>
				<select name=disp>
				<option value="S" <%If lista_produtos("disp")="S" Then Response.Write "selected" End If%>>Sim</option>
				<option value="N" <%If lista_produtos("disp")="N" Then Response.Write "selected" End If%>>Não</option>
				</select></td></tr>
			<tr valign=top><td width=1%>Pedidos Vinculados :</td><td><%=pedidos%></td></tr>
			<tr valign=top align=center><td width=1% align=right>
				<input type=submit value="Atualizar" name=acao onClick="this.value='Aguarde!'"></form>
				</td><td align=left>
				<form method=post action="./con_prod_detalhes.asp?prod_id=<%=prod_id%>&acao=apagar">
				<input type=submit value="Apagar" onClick="this.value='Aguarde!'">
					</form>
			</td></tr>
			<tr valign=top><td colspan=2 align=center>
				<p>Ao apagar o produto todos os pedidos vinculados ficarão sem as informações do nome do produto.
				<br>Antes de remover um produto recomendamos que você remova os pedidos vinculados.</p>
				<p>A alteração no preço não afetará os pedidos fechados.</p>
			</td></tr>
			</table></td></tr>
	<%
	End If
End If
%>
</table>

[Ted k' 126]

hô amigo ai fica dificil, você não segui a sugestão anterior do colega, você colocou dentro do value, não existe value em textarea:

<textarea cols="37" rows="5" name=descricaoh value="<%=lista_produtos("descricaoh")%>"></textarea>

o correto:

<textarea cols="37" rows="5" name=descricaoh><%=lista_produtos("descricaoh")%></textarea>

teste ai que vai ficar beleza hehe!!!!!

[Legionario-rs 0]

Boa tarde a todos!

 

Realmente foi ignorancia minha não consegui adaptar da maneira que o amigo informou mas mais uma vez vivendo e aprendendo agradeço imensamente a todos que ajudaram.

 

Ps. Podem fechar o tópico.

[Ted k' 126]

bla man.... e que mané ignorância. todos nós aprendemos um pouco!!!

hehe!!! nem precisa fechar!!!