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