USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Problema com intrução sql update
Rafael The Best
SÃO PAULO
SP - BRASIL
Postada em 11/01/2005 15:33 hs            
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

Rafael Carlos Martin
Desenvolvedor de WebSites e Sitemas
E-mail:rafa-martin@ibest.com.br
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 11/01/2005 15:40 hs            
Rafael,
 
Realmente o codigo nao tem erros...
 
Executa "passo-a-passo" pra ver se está executando...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

     
Rafael The Best
SÃO PAULO
SP - BRASIL
Postada em 11/01/2005 15:59 hs            
Pioe que já fiz isso e não adianta.
fiz até outro form. e nada.

Rafael Carlos Martin
Desenvolvedor de WebSites e Sitemas
E-mail:rafa-martin@ibest.com.br
     
Ganbity
RIO DE JANEIRO
RJ - BRASIL
Postada em 12/01/2005 08:05 hs            
coloque sem as () db.execute sql

"A complexidade do programa cresce até exceder a competência do programador. "

Luciano de Paula

Desenvolvedor - Analista

lufra2@bol.com.br

 
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 12/01/2005 08:08 hs         

acho que o if está errado, ao invés AlterarCliente  coloque  AlterarProduto

 

Dim AlterarProduto As String
    AlterarProduto = MsgBox("Alterar produto agora?", vbQuestion + vbYesNo, "Alterar Produto")
    If AlterarProduto = 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

 
     
Rafael
não registrado
Postada em 12/01/2005 08:20 hs   
Galera, valeu pela ajuda.
Mais não precisam se preocupar eu já achei o erro e arrumei.
 
Value Galera
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página