none
Erro:No value given for one or more required parameters ao inserir dados em tabela de Access RRS feed

  • Pergunta

  • Boa tarde a todos.

    Tenho o seguinte código associado a um botão. A ideia é apagar os dados da tabela CENTRAL_TEMP e voltar a prenchê-la com dados da tabela CENTRAL_CONSUMOS. O código funciona bem para apagar os dados mas obtenho o erro que descrevi quando a linha populaTel.ExecuteNonQuery() é executada. Julgo que algo está mal com a definição/uso do parâmetro pois se o retirar do SQL INSERT não obtenho qualquer erro e a tabela CENTRAL_TEMP é populada.

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim ligaTel As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\boxus\Geral\Dados\UTLT.accdb;Persist Security Info=False")
            'preencher uma tabela temporária - apagar e preencher
            ligaTel.Open()
            Dim xP1 As New OleDbParameter
            Dim apagaTel As New OleDbCommand("DELETE FROM CENTRAL_TEMP", ligaTel)
            apagaTel.ExecuteNonQuery()
            Dim populaTel As New OleDbCommand("INSERT INTO CENTRAL_TEMP(TEMP_TELEFONE, TEMP_VALOR, TEMP_DESCRICAO, TEMP_CC) SELECT A.NRTELEFONE, ROUND(SUM(B.VALOR),3), B.DESCRICAO, A.CENTRO_CUSTO FROM CENTRAL_TELEFONES A, CENTRAL_CONSUMOS B WHERE A.NRTELEFONE = B.CHAMADOR AND B.FACTURA = ? GROUP BY A.NRTELEFONE, B.DESCRICAO, A.CENTRO_CUSTO", ligaTel)
            populaTel.Parameters.AddWithValue("xP1", Me.ComboBox1.Text)
            populaTel.ExecuteNonQuery()
            ligaTel.Close()
        End Sub

    Muito agradecido por qualquer ajuda.

    Octavio



    segunda-feira, 29 de outubro de 2012 16:27

Respostas

  • Respondendo a mim próprio.

    Tinha um erro no comando INSERT INTO. Não percebo como isso leva a esta mensagem de erro mas é assim...

    • Marcado como Resposta octeixeira segunda-feira, 29 de outubro de 2012 17:59
    segunda-feira, 29 de outubro de 2012 17:58