Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Boa tarde.
Amigos, sou novo no forum.
Estou com o seguinte problema e precisando de ajuda, se postei a duvida em local errado, me desculpa.
Segue erro:
Erro de tempo de execução do Microsoft VBScript erro '800a000d'
Tipos incompatíveis: '[string: "P"]'
/wireless/sacarF.asp, linha 202
imagem: 
Deveria montar a tela a seguir, circulado em preto:
segue codigo fonte abaixo:
set rs3 = server.createobject("ADODB.Recordset")
if left(session("ref"),1)="8" or left(session("ref"),1)="9" or left(session("ref"),1)="6" then
' rs3.open "select requested as requested1,sacado=(select sum(picked) from shpdet a where refdoc1='" & trim(session("doc")) & "' and a.itemnumber='" & trim(session("ref")) & "'),boxes=(select count(*) from shpdet b where refdoc1='" & trim(session("doc")) & "' and b.itemnumber='" & trim(session("ref")) & "') from shphdr where refdoc1='" & trim(session("doc")) & "' and itemnumber='" & trim(session("ref")) & "'",seguridad,VaradOpenKeyset,VaradLockOptimistic
rs3.open "select sum(requested) as requested1,sum(picked) as sacado,count(*) as contador,sum(boxes) as boxes from shphdr where refdoc1='" & trim(session("doc")) & "' and itemnumber='" & trim(session("ref")) & "'",seguridad,VaradOpenKeyset,VaradLockOptimistic
else
rs3.open "select sum(requested) as requested1,sum(picked) as sacado,count(*) as contador,sum(boxes) as boxes from shphdr where refdoc1='" & trim(session("doc")) & "' and itemnumber='" & trim(session("ref")) & "'",seguridad,VaradOpenKeyset,VaradLockOptimistic
end if
if cdbl(rs3("contador")) > 0 then
pedido=rs3("requested1")
if cdbl(cxb)>0 then
bultosT = cdbl(rs3("requested1"))/cdbl(cxb)
end if
sacado=cdbl(rs3("sacado"))
bultosS=cdbl(rs3("boxes"))
bultosD=(cdbl(bultosT)-cdbl(bultosS))
sacadoD = (cdbl(pedido)-cdbl(sacado))
set rs3 = nothing
end if
Tente só com as aspas duplas no update! Outra coisa porque voce esta passando o codigo como string no action se voce esta pegando o codigo do form?