none
Erro: nenhum valor foi fornecido para um ou mais parâmetros necessários RRS feed

  • Pergunta

  • Estou novamente com problema com esse já olhei minha string update varias vezes, porém não encontrei erro algum. Alguém poderia me ajudar. 

    Código botão salvar update

     Private Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click
           
                Case "update"
    
                    chamado.pcodChamado = lblCodChamado.Text
                    chamado.pcodComputador = lblCodigoComputador.Text
                    chamado.pnumPatrimonio = txtPatrimonio.Text
                    chamado.pnumComputador = txtPcLaboratorio.Text
                    chamado.pSetor = txtSetor.Text
                    chamado.pdtEntrada = mskDataEntrada.Text
                    chamado.pdtSaida = mskDataSaida.Text
                    chamado.pprobApresentado = txtProblemaApresentado.Text
                    chamado.psolucaoEncontrado = txtSolucaoEncontrada.Text
    
                    codigo = Convert.ToInt32(lblCodChamado.Text)
    
                    Try
                        chamado.atualizar(codigo)
                    Catch ex As Exception
                        MessageBox.Show("Erro ao atualizar dados", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try
    
                    MessageBox.Show("Dados atualizados com sucesso", "Dados Atualizados", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    'carregarNomes()           
    
        End Sub

    Código da string na classe chamado:

    Public Sub atualizar(ByVal codigo As Integer)
    
            strComando = "Update Chamado Set dtSaida = '" & pdtSaida & "', " & _
                                             "probApresentado = '" & pprobApresentado & "', " & _
                                             "solucaoEncontrado = '" & psolucaoEncontrado & "' " & _
                                             "Where codChamado = " & codigo
    
            comando.executaComando(strComando)
    
        End Sub

    Acredito que o erro esteja no comando update.

    Obrigado.


    Programdor .Net iniciante.

    domingo, 19 de abril de 2015 04:19

Respostas

  • Consegui encontrar o erro. Estava na linha: codigo = Convert.ToInt32(lblCodChamado.Text) era só não converter o código deixando assim: codigo = lblCodChamado.Text.

    Programdor .Net iniciante.

    domingo, 19 de abril de 2015 14:40

Todas as Respostas