PROBLEMA COM INSTRUCAO SQL UPDATE
Pessoal, está acontecendo alguma coisa estranha e sinceramente não sei o que é.
Vejam só estou tentando atualizar um produto no meu sistema, só que não atualiza.
O código que estou usando é esse:
Dim AlterarProduto As String
AlterarProduto = MsgBox("Alterar produto agora?", vbQuestion + vbYesNo, "Alterar Produto")
If AlterarCliente = 6 Then ' ou variável = vbyes
sql = "Update Produtos set tipoproduto = '" & cmbProdutos.Text & "', nomeproduto = '" & txtProduto.Text & "' where Identif = " & txtIdentif.Text & ""
DB.Execute (sql)
End If
txtProduto.SetFocus
O engraçado é que estou usando a mesma sintaxe para todas as outras astualizações e atualiza normalmente se eu fizer alguma alteração.
Agora se eu fizer na tela de produtos ele não dá nenhum erro de sintaxe, porém não atualiza.
Eu estou achando que ele não está executando, porque fiz um texte para infomar a mensagem na tela e não executa.
O que poderia ser? Alguém pode me ajudar?
Obrigado
Vejam só estou tentando atualizar um produto no meu sistema, só que não atualiza.
O código que estou usando é esse:
Dim AlterarProduto As String
AlterarProduto = MsgBox("Alterar produto agora?", vbQuestion + vbYesNo, "Alterar Produto")
If AlterarCliente = 6 Then ' ou variável = vbyes
sql = "Update Produtos set tipoproduto = '" & cmbProdutos.Text & "', nomeproduto = '" & txtProduto.Text & "' where Identif = " & txtIdentif.Text & ""
DB.Execute (sql)
End If
txtProduto.SetFocus
O engraçado é que estou usando a mesma sintaxe para todas as outras astualizações e atualiza normalmente se eu fizer alguma alteração.
Agora se eu fizer na tela de produtos ele não dá nenhum erro de sintaxe, porém não atualiza.
Eu estou achando que ele não está executando, porque fiz um texte para infomar a mensagem na tela e não executa.
O que poderia ser? Alguém pode me ajudar?
Obrigado
Rafael
Se Identif for Número, teste
Veja se resolve.
[s50]
Se Identif for Número, teste
sql = "Update Produtos set tipoproduto = '" & cmbProdutos.Text & "', nomeproduto = '" & txtProduto.Text & "' where Identif = " & txtIdentif.TextVeja se resolve.
[s50]
não adianta. ele não executa nada
Rafael, é exibido algum erro ? Qual seria ?
Rafael, é exibido algum erro ? Qual seria ?
Citação:Dim AlterarProduto As String
AlterarProduto = MsgBox("Alterar produto agora?", vbQuestion + vbYesNo, "Alterar Produto")
If AlterarCliente = 6 Then ' ou variável = vbyes
Você coloca a variável AlterarProduto e faz o teste com AlterarCliente????[S35]
A porrada é só de bricadeira, mas dá uma olhada e vê se resolve...
Thiago é isso mesmo.
Value por abrir o meu olho.
Meu, é que são tantos anos programando e tanto código que dá pra ficar até zonzo. vc sabe como é né.
Mais valeu
Value por abrir o meu olho.
Meu, é que são tantos anos programando e tanto código que dá pra ficar até zonzo. vc sabe como é né.
Mais valeu
Qualquer coisa, pode contar com a gente...[S46]
Tópico encerrado , respostas não são mais permitidas