ERROR AO ALTERAR CADASTRO

MOREIRA 06/05/2017 10:11:18
#473772
Bom dia, já fumaçou a cabeça aqui. o que esta de errado aqui nessa função /

  ConectarBD()
                Dim SqlUpDate As String = [Ô]UPDATE PRODUTO SET (DESCRICAO = @DESCRICAO, [Ô] &
                                          [Ô]MARCA_PRODUTO = @MARCA_PRODUTO WHERE PCODIGO =[Ô] & CProduto & [Ô][ô])[Ô]

                Using UpCmd As New FbCommand(SqlUpDate, strConexao)
                    UpCmd.Parameters.Add([Ô]@DESCRICAO[Ô], FbDbType.VarChar).Value = Me.txt_DescProduto.Text
                    UpCmd.Parameters.Add([Ô]@MARCA_PRODUTO[Ô], FbDbType.VarChar).Value = Me.txt_DescMarca.Text
                    UpCmd.ExecuteNonQuery()
                    MsgBox([Ô]Cadastro alterado com sucesso[Ô], MsgBoxStyle.Information, [Ô]Alterado[Ô])
                End Using
GUIMORAES 06/05/2017 10:35:36
#473773
MOREIRA

Se você não utilizasse concatenação no seu código, isto não teria acontecido.
O que está acontecendo é que você esqueceu uma [ô] no final do seu código.

WHERE PCODIGO =[Ô] & CProduto & [Ô][ô]

Utilize o parâmetro para o código também.
ADILSOO 06/05/2017 17:04:06
#473776 
  ConectarBD()
                Dim SqlUpDate As String = [Ô]UPDATE PRODUTO SET (DESCRICAO = @DESCRICAO, [Ô] &
                                          [Ô]MARCA_PRODUTO = @MARCA_PRODUTO WHERE PCODIGO =[ô][Ô] & CProduto & [Ô][ô])[Ô]

                Using UpCmd As New FbCommand(SqlUpDate, strConexao)
                    UpCmd.Parameters.Add([Ô]@DESCRICAO[Ô], FbDbType.VarChar).Value = Me.txt_DescProduto.Text
                    UpCmd.Parameters.Add([Ô]@MARCA_PRODUTO[Ô], FbDbType.VarChar).Value = Me.txt_DescMarca.Text
                    UpCmd.ExecuteNonQuery()
                    MsgBox([Ô]Cadastro alterado com sucesso[Ô], MsgBoxStyle.Information, [Ô]Alterado[Ô])
                End Using
MOREIRA 06/05/2017 22:47:26
#473778
Citação:

:

  ConectarBD()
                Dim SqlUpDate As String = [Ô]UPDATE PRODUTO SET (DESCRICAO = @DESCRICAO, [Ô] &
                                          [Ô]MARCA_PRODUTO = @MARCA_PRODUTO WHERE PCODIGO =[ô][Ô] & CProduto & [Ô][ô])[Ô]

                Using UpCmd As New FbCommand(SqlUpDate, strConexao)
                    UpCmd.Parameters.Add([Ô]@DESCRICAO[Ô], FbDbType.VarChar).Value = Me.txt_DescProduto.Text
                    UpCmd.Parameters.Add([Ô]@MARCA_PRODUTO[Ô], FbDbType.VarChar).Value = Me.txt_DescMarca.Text
                    UpCmd.ExecuteNonQuery()
                    MsgBox([Ô]Cadastro alterado com sucesso[Ô], MsgBoxStyle.Information, [Ô]Alterado[Ô])
                End Using



Não deu certo
JABA 07/05/2017 01:46:20
#473780
1- Verifique se os campos da sql estão idênticos aos do banco, como tamanho de letra e acentuação, por exemplo.

2- Se o campo PCODIGO estiver declarado como número no banco, então retire as aspas simples, ficando assim:

WHERE PCODIGO = [Ô] & CProduto & [Ô] )[Ô]
MOREIRA 07/05/2017 10:38:23
#473782
Citação:

:
1- Verifique se os campos da sql estão idênticos aos do banco, como tamanho de letra e acentuação, por exemplo.

2- Se o campo PCODIGO estiver declarado como número no banco, então retire as aspas simples, ficando assim:

WHERE PCODIGO = [Ô] & CProduto & [Ô] )[Ô]


oLÁ, bom dia, também não deu certo.
OMAR2011 07/05/2017 10:40:01
#473783 Resposta escolhida
Coloque deste jeito.

Dim SqlUpDate As String = [Ô]UPDATE PRODUTO SET DESCRICAO = @DESCRICAO, [Ô] &
[Ô]MARCA_PRODUTO = @MARCA_PRODUTO WHERE PCODIGO =[Ô]& CProduto & [Ô][Ô]
MOREIRA 07/05/2017 10:40:25
#473784
Citação:

:
:
1- Verifique se os campos da sql estão idênticos aos do banco, como tamanho de letra e acentuação, por exemplo.

2- Se o campo PCODIGO estiver declarado como número no banco, então retire as aspas simples, ficando assim:

WHERE PCODIGO = [Ô] & CProduto & [Ô] )[Ô]

oLÁ, bom dia, também não deu certo.
MOREIRA 07/05/2017 10:45:12
#473785
Citação:

:
Coloque deste jeito.

Dim SqlUpDate As String = [Ô]UPDATE PRODUTO SET DESCRICAO = @DESCRICAO, [Ô] &
[Ô]MARCA_PRODUTO = @MARCA_PRODUTO WHERE PCODIGO =[Ô]& CProduto & [Ô][Ô]





ôpa, ... compartilhar conhecimento não tem preço
Tópico encerrado , respostas não são mais permitidas
Voltar