Tenho o seguinte bloco ...

Question

 

        Tenho o seguindo bloco de códigos mas esta dando um erro 

esse erro aqui: Nenhum valor foi fornecido para um ou mais parâmetros necessários.

 

 

 strSQL = "SELECT Produto, QtdeEstoque, DataUtimaCompra, PrecoDeCompra From Produto where CodProduto =" & Me.Produto.SelectedValue

 If Convert.ToString(Me.Produto.SelectedValue) <> "" Then
  da = New OleDbDataAdapter(strSQL, sqlconexao)
  da.Fill(ds, "Produto") <------ o erro da nesta linha
  Dim dt As New DataTable
  dt = ds.Tables("Produto")
  Dim dr As DataRow

 

Como elimino esse erro ?

Obrigado

---

Nikolas Palmeiras

Answer 1

Ola Pessoal

ja consegui resolver esse meu erro aqui 

tinha um campo no select que estava escrito de maneira errada 

Mas brigado mesmo assim.

---

Nikolas Palmeiras

Answer 2

Ola Nikolas, acredito que esta faltando o "L" no campo "DataUtimaCompra", ele deve ser "DataUltimaCompra" e é isto que esta dando esse erro.

 

Abraços,

Eduardo