Array
(
)

Erro com passar parametro para componente

Facc
   - 14 nov 2008

Bom dia... estou com um probelmaço aki... estava funcionando perfeitamente na maquina desenvolvimento com dados locais... mas alterei o caminho dos dados jogando para o servidor e começou a dar esse erro:

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

Segue o código:
#Código Protected Sub btnPesquisa_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPesquisa.Click
Dim strSQL As String = "SELECT DESCRICAO_COMPLETA FROM PRODUTOS WHERE (PRODUTO_ID = @Produto) AND (MERCADOLOGICO3=12 OR MERCADOLOGICO3=13 OR MERCADOLOGICO3=14 OR MERCADOLOGICO=19)"
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\126.0.0.87\Pagina_ASP\Dados\databsp.mdb")
Dim cmd As New OleDbCommand(strSQL, conn)
Dim Leitor As OleDbDataReader

cmd.Parameters.Add(New OleDbParameter("@Produto", edtCodProduto.Text))

conn.Open()

Leitor = cmd.ExecuteReader <-- aki dá o erro

Leitor.Read()

If Leitor.HasRows Then
lblDescProd.Text = Leitor("DESCRICAO_COMPLETA")
Else
MsgBox("O valor digitado " + edtCodProduto.Text + " não é um código de celular válido.", MsgBoxStyle.OkOnly Or MsgBoxStyle.DefaultButton1 Or MsgBoxStyle.Exclamation, "Erro")
edtCodProduto.Text = ""
lblDescProd.Text = "O valor digitado " + edtCodProduto.Text + " não é um código de celular válido."
End If

Leitor.Close()
conn.Close()

End Sub


Não consegui identificar onde está o erro

Facc
   - 14 nov 2008


Citação:
Bom dia... estou com um probelmaço aki... estava funcionando perfeitamente na maquina desenvolvimento com dados locais... mas alterei o caminho dos dados jogando para o servidor e começou a dar esse erro:

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

Segue o código:
#Código Protected Sub btnPesquisa_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPesquisa.Click
Dim strSQL As String = "SELECT DESCRICAO_COMPLETA FROM PRODUTOS WHERE (PRODUTO_ID = @Produto) AND (MERCADOLOGICO3=12 OR MERCADOLOGICO3=13 OR MERCADOLOGICO3=14 OR MERCADOLOGICO=19)"
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\126.0.0.87\Pagina_ASP\Dados\databsp.mdb")
Dim cmd As New OleDbCommand(strSQL, conn)
Dim Leitor As OleDbDataReader

cmd.Parameters.Add(New OleDbParameter("@Produto", edtCodProduto.Text))

conn.Open()

Leitor = cmd.ExecuteReader <-- aki dá o erro

Leitor.Read()

If Leitor.HasRows Then
lblDescProd.Text = Leitor("DESCRICAO_COMPLETA")
Else
MsgBox("O valor digitado " + edtCodProduto.Text + " não é um código de celular válido.", MsgBoxStyle.OkOnly Or MsgBoxStyle.DefaultButton1 Or MsgBoxStyle.Exclamation, "Erro")
edtCodProduto.Text = ""
lblDescProd.Text = "O valor digitado " + edtCodProduto.Text + " não é um código de celular válido."
End If

Leitor.Close()
conn.Close()

End Sub


Não consegui identificar onde está o erro


resolvido