Erro: nenhum valor foi fornecido para um ou mais parâmetros necessário

[Korma Silser 0]

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 update:

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.

[Korma Silser 0]

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. :yes: :assobiando: