SQL COM ADO E MYSQL
Olá,
Como faço para que esse comando seja executado?
mercadoria.Execute "update tbestoque set estoque ='" & estoque!estoque - 1 & "' where codigo='" & txtcodigo.Text & "'"
Gostaria de subtrair 1 do montante do estoque da tbestoque cada vez que o comando fosse executado. Só que não estou sabendo como escrever o comando sql.
Tem jeito?
Mais uma vez, obrigado pela atenção.
Como faço para que esse comando seja executado?
mercadoria.Execute "update tbestoque set estoque ='" & estoque!estoque - 1 & "' where codigo='" & txtcodigo.Text & "'"
Gostaria de subtrair 1 do montante do estoque da tbestoque cada vez que o comando fosse executado. Só que não estou sabendo como escrever o comando sql.
Tem jeito?
Mais uma vez, obrigado pela atenção.
mercadoria.Execute "update tbestoque set estoque ='" & estoque!estoque & - 1 "' where codigo='" & txtcodigo.Text & "'"
Prezado Marino, valeu pela atenção!
Não funcionou, dé um erro de compilação: Expected end of statement
Não funcionou, dé um erro de compilação: Expected end of statement
porquê não faz assim
mercadoria.Execute "update tbestoque set estoque=estoque-" & TxtQuantidade & " where codigo='" & txtcodigo.Text & "'"
Só uma pergunta
como o valor vai diminuir se está como tipo texto ?
mercadoria.Execute "update tbestoque set estoque=estoque-" & TxtQuantidade & " where codigo='" & txtcodigo.Text & "'"
Só uma pergunta
como o valor vai diminuir se está como tipo texto ?
Cleverton, meu campo estoque está como integer. Já pensei em usar textboxes para efetuar a operação de subtração e depois atualizar a tabela, porém também pensei se não seria possÃvel fazer isso com uma instrução sql. No caso, na sua instrução a palavra estoque, depois da aspa simples, é considerada uma string e gera um erro de incompatibilidade de dados.
Valeu pela atenção, obrigado.
Valeu pela atenção, obrigado.
mercadoria.Execute "update tbestoque set estoque=estoque-" & cint(TxtQuantidade) & " where codigo=" & cint(txtcodigo.Text)
'varqtd pode ser integer ou string que funciona
Conexao.Execute "update Produtos Set Estoque=Estoque-" & Val(varqtd) & " where codigo='" & txtcodigo.Text & "'"
'Retirado de um projeto funcionando
Conexao.Execute "update Produtos Set Estoque=Estoque-" & Val(varqtd) & " where codigo='" & txtcodigo.Text & "'"
'Retirado de um projeto funcionando
Olá a todos, obrigado pela atenção de vcs. A forma como o Alexandre e o Nil disseram funcionou blz, valeu!
Avbraços!
Avbraços!
Tópico encerrado , respostas não são mais permitidas