Ir para conteúdo
Fórum Script Brasil
  • 0

Instrução Update


rodrigotnoma

Pergunta

Não esta ocorrendo nenhuma alteração no meu BD, alguém poderia me ajudar a encontrar o erro?

Private Sub Command1_Click()

Set cn = New ADODB.Connection

connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\estoque_emb.mdb;"

cn.Open connstring

produtos = Combo1.Text

quantidade = Text1.Text

Set rq = cn.Execute("update tb_estoq_emb set quantidade=' " & quantidade & " ' where produtos=' " & produtos & " ' ")

MsgBox ("cadastrado!!!")

End Sub

Fiz teste para verificar se as variaveis estão recebendo os valores e esta ok, so na instrução SQL que as variaveis ficam com valores "Empty".

Obrigado

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

produtos = Combo1.Text

quantidade = Text1.Text

Set rq = cn.Execute("update tb_estoq_emb set quantidade=' " & quantidade & " ' where produtos=' " & produtos & " ' ")

Obs.

Onde o campo de seu banco de dados for definido como Numérico não te necessidade da “aspa simples” ‘

Nesse caso você pode referenciar os próprios objetos.

Ex:

Set rq = cn.Execute("UPDATE tb_estoq_emb SET quantidade=' " & Text1.Text & " ' where produtos=' " & Combo1.Text & " ' ")

Suponha que o campo quantidade é numérico, então fica assim:

Set rq = cn.Execute("UPDATE tb_estoq_emb SET quantidade= " & Text1.Text & " where produtos=' " & Combo1.Text & " ' ")

Acho que ajuda...

abraço... ;)

Link para o comentário
Compartilhar em outros sites

  • 0

Fiz um teste:

Private Sub Command1_Click()

Set cn = New ADODB.Connection

connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\produtos.mdb;"

cn.Open connstring

produtos = Text1.Text

Set rq = cn.Execute("select * from tb_produtos where produtos=' " & Text1.Text & " ' ")

If Not rq.EOF Then

Text2.Text = rq("quantidade")

Else

MsgBox "Produto não encontrado!!!"

End If

End Sub

E mesmo assim ele da mensagem de "Produto não encontrado!!!"

Devo estar errando em alguma coisa muito boba ou esta com algum "pau", porque já fiz isso milhares de vezes e nunca ocorreu isso.

Se algume puder ajudar...

Obrigado

Link para o comentário
Compartilhar em outros sites

  • 0

e você tem certeza que o codigo que você procura existe no banco??

ou faz o seguinte, poe a bolinha vermelha (aperta F9) na linha

Set rq = cn.Execute("select * from tb_produtos where produtos=' " & Text1.Text & " ' ")
e rode o programa. quando chegar la, digita no immediate
? "select * from tb_produtos where produtos=' " & Text1.Text & " ' "

e aperta enter.

ai execute a consulta direto no access pra ver o que retorna.

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...