Search the Community

Olá! Estou fazendo um teste para atualizar uma informação em um dos meus itens do banco de dados; porém houve um erro e não consigo decifra-lo. "Tipos incompatíveis" Busco as informações no banco: <%Dim caminho, conexao, rsProduto, seleciona%> <% caminho = "D:\web\LocalUser\divinho\banco\db.mdb" Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" %> <% Set rsProduto = Server.CreateObject("ADODB.Recordset") seleciona = "SELECT * from Produtos where Cod_produto = "& request("cod") rsProduto.Open seleciona, conexao Dim cod cod = request("cod") %> <FORM name="frmPrincipal" method="post" id="frmPrincipal" action="teste.asp?cod=<%=cod%>"> <input type=text name=codigo value="<%=rsProduto("Cod_produto")%>"> <input type=text name=nome value="<%=rsProduto("Nome")%>"> <input type="Submit" value="Enviar "> </form> Realizando o UPDATE <%Dim caminho, conexao%> <% caminho = "D:\web\LocalUser\divinho\banco\db.mdb" Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" %> <% Dim sql, nome, cod, executecmd nome = request.form("nome") cod = request.form("codigo") sql = "update Produtos set " sql = sql & " Nome = '" & nome & "'" sql = sql & " where Cod_produto = " & cod call executecmd(sql) Response.Redirect "teste2.asp" %> Podem testar através do link: http://divinho.com.br/teste2.asp?cod=344 Agradeço se alguém puder ajudar! :D