Dim strSQL, Conexao, rs, sql_restrito , rs_restrito, strSQL2, rs2, sql_restrito2, rs_restrito2
Dim nota, quantidade, produto, prod_quant_estoque, quant
nota=request.form("nota")
Call abre_conexao
set sql_restrito = "UPDATE Nota_lancamento set nota_lancamento_status='FECHADA' WHERE nota_lancamento_id='"& nota &"'"
set rs_restrito = Conexao.Execute(sql_restrito)
Set rs_restrito=nothing
Pergunta
eduardodovale
Boa noite, estou precisando de um ajuda, para resolver um problema, pois tentei converter a string e não deu certo.
Estou executando esse comandos, pegando inteiro que vem do forme, porém quando mando executar devolve o seguinte
erro:
Microsoft VBScript runtime error '800a01a8'
Object required: '[string: "UPDATE Nota_lancamen"]'
/admin/estoque/nota_finaliza.asp, line 13
alguém pode me ajudar ? por favor
Dim strSQL, Conexao, rs, sql_restrito , rs_restrito, strSQL2, rs2, sql_restrito2, rs_restrito2
Dim nota, quantidade, produto, prod_quant_estoque, quant
nota=request.form("nota")
Call abre_conexao
set sql_restrito = "UPDATE Nota_lancamento set nota_lancamento_status='FECHADA' WHERE nota_lancamento_id='"& nota &"'"
set rs_restrito = Conexao.Execute(sql_restrito)
Set rs_restrito=nothing
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.