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

Question

Ao clicar no botão "Próximo" aparece o seguinte erro:

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

Este erro está relacionado à linha em negrito abaixo. Alguém pode solucionar este problema?

Imports System.Data.OleDb

Public Class frmAgenda

    Private Sub frmAgenda_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"

        con.Open()

        Dim comando As New OleDbCommand

        comando.CommandText = "SELECT TOP 1 * FROM tb_dados ORDER BY Nome"

        comando.CommandType = CommandType.Text

        comando.Connection = con

        Dim leitor As OleDbDataReader

        leitor = comando.ExecuteReader()

        leitor.Read()

        Me.txtNome.Text = leitor("Nome").ToString

        Me.mskCelular.Text = leitor("Celular").ToString

        Me.mskTelefone.Text = leitor("Telefone").ToString

       

    End Sub

    Private Sub btnProximo_Click(sender As System.Object, e As System.EventArgs) Handles btnProximo.Click

        Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"

        Dim comando As New OleDbCommand

        comando.CommandText = "SELECT TOP 1 * FROM tb_dados WHERE Nome = @Nome ORDER BY id"

        comando.CommandType = CommandType.Text

        comando.Connection = con

        Dim param1 As New OleDbParameter("@Nome", OleDbType.VarChar)

        param1.Value = txtNome.Text

        comando.Parameters.Add(param1)

        Dim leitor As OleDbDataReader

        con.Open()

        leitor = comando.ExecuteReader()

        leitor.Read()

        con.Close()

    End Sub

    

End Class

Answer 1

Olá Anderson,

Tente fazer assim:

Dim con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"
Dim comando As New OleDbCommand
comando.CommandText = "SELECT TOP 1 * FROM tb_dados WHERE Nome = '" & txtNome.Text & "' ORDER BY id"
comando.CommandType = CommandType.Text
comando.Connection = con

Dim leitor As OleDbDataReader
con.Open()
leitor = comando.ExecuteReader()
leitor.Read()
con.Close()

Se o erro continuar provavelmente seu problema esta em algum dos nomes de alguma das colunas

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.wordpress.com/
Twitter: @ferhenrique

Answer 2

Continua o mesmo erro.

Notei que o formulário está sendo carregado com ordenação by Nome e botão Próximo  está ordenando by id. Há algum problema nesta diferença? 

 

Agora o meu código está assim:

 

Imports System.Data.OleDb

 

Public Class frmAgenda

 

    Private Sub frmAgenda_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"

        con.Open()

        Dim comando As New OleDbCommand

        comando.CommandText = "SELECT TOP 1 * FROM tb_dados ORDER BY Nome"

        comando.CommandType = CommandType.Text

        comando.Connection = con

 

        Dim leitor As OleDbDataReader

        leitor = comando.ExecuteReader()

        leitor.Read()

        Me.txtNome.Text = leitor("Nome").ToString

        Me.mskCelular.Text = leitor("Celular").ToString

        Me.mskTelefone.Text = leitor("Telefone").ToString

 

 

    End Sub

 

    Private Sub btnProximo_Click(sender As System.Object, e As System.EventArgs) Handles btnProximo.Click

 

        Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"

        Dim comando As New OleDbCommand

        comando.CommandText = "SELECT TOP 1 * FROM tb_dados WHERE Nome = '" & txtNome.Text & "' ORDER BY id"

        comando.CommandType = CommandType.Text

        comando.Connection = con

 

        Dim leitor As OleDbDataReader

        con.Open()

        leitor = comando.ExecuteReader()

        leitor.Read()

        con.Close()

 

    End Sub

 

 

End Class

Answer 3

Olá Anderson,

Diante disso, parece que existe algo errado em sua tabela ou com os nomes dos campos de sua tabela.

Vc realmente possui uma coluna chamada Id?

Não, o order by não influenciaria isso, a menos que estive com um nome errado de uma coluna atrelado a ele.

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.wordpress.com/
Twitter: @ferhenrique

Answer 4

Desculpe-me por todo esse transtorno, pois sou iniciante.

 

Eu não tinha atentado para este detalhe.

 

Pensei que "id" era alguma espécie de comando, não notei que era uma referência genérica.

 

O campo de numeração automática do meu banco de dados chama-se "Código".

 

Os outros campos são: "Nome", "Telefone" e "Celular". Como fica o código do botão "próximo" e do botão "anterior"?

 

Obrigado.

 

Tenha um ótimo final de ano.

Answer 5

Estou respondendo do celular,então não poderei posta todo o código, mas é só vc substituir no comando SQL o ORDER BY ID por ORDER BY CÓDIGO.

 

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.wordpress.com/
Twitter: @ferhenrique

Answer 6

 

Fiz a alteração. Parou de dar o erro. Mas, ao clicar no botão Próximo, não acontece nada, não mostra o próximo registro.Em relação ao botão anterior, como ficaria o código? Meu código está assim:

 

Imports System.Data.OleDb

 

Public Class frmAgenda

 

    Private Sub frmAgenda_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"

        con.Open()

        Dim comando As New OleDbCommand

        comando.CommandText = "SELECT TOP 1 * FROM tb_dados ORDER BY Nome"

        comando.CommandType = CommandType.Text

        comando.Connection = con

 

        Dim leitor As OleDbDataReader

        leitor = comando.ExecuteReader()

        leitor.Read()

        Me.txtNome.Text = leitor("Nome").ToString

        Me.mskCelular.Text = leitor("Celular").ToString

        Me.mskTelefone.Text = leitor("Telefone").ToString

 

 

    End Sub

 

    Private Sub btnProximo_Click(sender As System.Object, e As System.EventArgs) Handles btnProximo.Click

 

        Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"

        Dim comando As New OleDbCommand

        comando.CommandText = "SELECT TOP 1 * FROM tb_dados WHERE Nome = '" & txtNome.Text & "' ORDER BY Código"

        comando.CommandType = CommandType.Text

        comando.Connection = con

 

        Dim leitor As OleDbDataReader

        con.Open()

        leitor = comando.ExecuteReader()

        leitor.Read()

        con.Close()

 

    End Sub

 

 

End Class

 

Answer 7

Faltou atribuir os valores ao campo:

        Dim con As New OleDbConnection
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"
        Dim comando As New OleDbCommand
        comando.CommandText = "SELECT TOP 1 * FROM tb_dados WHERE Nome = '" & txtNome.Text & "' ORDER BY Código"
        comando.CommandType = CommandType.Text
        comando.Connection = con
         Dim leitor As OleDbDataReader
        con.Open()
        leitor = comando.ExecuteReader()
        leitor.Read()

        con.Close()
        Me.txtNome.Text = leitor("Nome").ToString
        Me.mskCelular.Text = leitor("Celular").ToString
        Me.mskTelefone.Text = leitor("Telefone").ToString

Acredito que exista um outro tópico com esta mesma pergunta, não?

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.wordpress.com/
Twitter: @ferhenrique

Answer 8

Agora o erro é o seguinte:

No data exists for the row/column.

e remete para a linha em negrito a seguir:

 

 

Private Sub btnProximo_Click(sender As System.Object, e As System.EventArgs) Handles btnProximo.Click

 

        Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"

        Dim comando As New OleDbCommand

        comando.CommandText = "SELECT TOP 1 * FROM tb_dados WHERE Nome = '" & txtNome.Text & "' ORDER BY Código"

        comando.CommandType = CommandType.Text

        comando.Connection = con

        Dim leitor As OleDbDataReader

        con.Open()

        leitor = comando.ExecuteReader()

        leitor.Read()

 

        con.Close()

        Me.txtNome.Text = leitor("Nome").ToString

        Me.mskCelular.Text = leitor("Celular").ToString

        Me.mskTelefone.Text = leitor("Telefone").ToString

 

    End Sub

Answer 9

Olá Anderson,

Isso acontece quando a sua consulta não retorna nenhum registro e vc executa um comando de leitura do datareader.

Tente fazer assim:

Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Banco de Agenda.accdb'"

        Dim comando As New OleDbCommand

        comando.CommandText = "SELECT TOP 1 * FROM tb_dados WHERE Nome = '" & txtNome.Text & "' ORDER BY Código"

        comando.CommandType = CommandType.Text

        comando.Connection = con

        Dim leitor As OleDbDataReader

        con.Open()

        leitor = comando.ExecuteReader()

If (leitor.HasRows) Then
        leitor.Read() 
        Me.txtNome.Text = leitor("Nome").ToString
        Me.mskCelular.Text = leitor("Celular").ToString
        Me.mskTelefone.Text = leitor("Telefone").ToString
End If

con.Close()

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.wordpress.com/
Twitter: @ferhenrique

Answer 10

Parou de dar erro, mas, ao clicar no botão próximo, não acontece nada, não mostra o próximo registro.

Answer 11

Isso acontece pois nenhum registro esta sendo encontrado no banco devido o parâmetro que esta passando em sua consulta.

Acedito que vc deve rever a lógica de sua aplicação.

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.wordpress.com/
Twitter: @ferhenrique

Answer 12

Parou de dar erro, mas, ao clicar no botão próximo, não acontece nada, não mostra o próximo registro.

Se voce quer movimentar registo, nao podes usar apenas o datareader, este control nao tem propiedades movelast, movenext.

Nao como no Visual Basic. Exite um novo control Chamado, BindingSource. Este control permite movimentar registos como no antigo Visual Basic.

Dim Ligar_Text As New BindingSource.

 

---

One word frees us of all the weight and pain of life: that word is love.

Answer 13

Olá Anderson,

Veja o exemplo que coloquei neste link: https://skydrive.live.com/#cid=7DECE45BBF0DB70F&id=7DECE45BBF0DB70F!660

Ele se chama WindowsPreviousNext.zip

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.wordpress.com/
Twitter: @ferhenrique

Answer 14

Através da video aula 24 do curso Visual Basic Avançado da Treinamentos TI, aprendi que o código fica da seguinte forma:

 

 

 

Private Sub btnProximo_Click(sender As System.Object, e As System.EventArgs) Handles btnProximo.Click

        Me.Tb_dadosBindingSource.MoveNext()

    End Sub

    Private Sub btnAnterior_Click(sender As System.Object, e As System.EventArgs) Handles btnAnterior.Click

        Me.Tb_dadosBindingSource.MovePrevious()

    End Sub