Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Que erro é esse: Erro BD : Nenhum valor foi fornecido para


carolprogramadora

Pergunta

Olá pessoal, porque está dando esse erro?

minha codificação que ele acusa que está errado:

Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbType

Public Class frmConsultaAnoFactoring

    Private dv As DataView
    Private cm As CurrencyManager
    Dim ConnString As String = My.Settings.connString

    Sub Pesquisa()

        Dim Sql As String = "SELECT * FROM BDFACTORING WHERE ANO=@ANO ORDER BY Factoring"
        Dim conn As New OleDbConnection(ConnString)
        Dim cmd As New OleDbCommand(Sql, conn)
        Dim Ds As New DataSet

        Try

            conn.Open()

            cmd.Parameters.Add("ANO", VarChar).Value = cmbAno.Text
            Dim Da As New OleDbDataAdapter(cmd)
            Ds.EnforceConstraints = False
            Da.Fill(Ds)

        Catch EX As OleDbException

            Throw New Exception("Erro BD : " + EX.Message)

        Catch ex As Exception

            MsgBox(ex.Message)

        Finally

            conn.Close()
            conn.Dispose()
            cmd.Dispose()

        End Try

        DataGridView1.DataSource = Ds
        DataGridView1.DataMember = Ds.Tables(0).ToString

    End Sub

    Private Sub btnOk2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk2.Click

        If cmbAno.SelectedIndex = -1 Then

            Try

            Catch ex As OleDbException

                Throw New Exception("Erro Banco de Dados : " + ex.Message)

            Catch ex As Exception

                Throw New Exception("Erro Run Time : " + ex.Message)

            End Try

            Exit Sub

        End If

        If cmbAno.Text = "" Then

            MsgBox("Dados não encontrados !", MsgBoxStyle.Information, Me.Text)

        End If

        Call Pesquisa()

    End Sub

End Class

Se alguém puder me ajudar agradeço por demais!!!

Saudações a todos!!!

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

Pode ser também que o cmbAno.Text não tenha conteúdo ou tenha caracteres inválidos pra que tu possa fazer um select no teu campo ano.

O teu banco é SQL Server mesmo? Por que se for access por exemplo, tem que usar ? ao invés de @ano.

Editado por Gafanhoto
Link para o comentário
Compartilhar em outros sites

  • 0

Olá pessoal, então Kuroi desta vez não é porque eu procurei por todo o banco de dados acentos e tudo o mais, mas desta vez não é mesmo <_<

mas continua o mesmo erro...

então meu banco é access 2007 mesmo Gafanhoto, vou tentar com a ? então se de resultados volto a postar!

Muito obrigada!!!

Link para o comentário
Compartilhar em outros sites

  • 0

Então Gafanhoto, não deu certo mesmo... colocar o ? porque é estranho que outra janela d consulta minha deu certo a mesma codificação já essa não está dando e a ideia é a mesma, diz que o erro é no banco de dados, mas mesmo assim procuro pelo erro e não encontro...

vou programar mais um pouco e se eu obter resultados informo!

Obrigada!

Link para o comentário
Compartilhar em outros sites

  • 0

carol, você usa access né??

mas acho q o gafanhoto tem razao, teria q ser assim ó:

Dim Sql As String = "SELECT * FROM BDFACTORING WHERE ANO = ? ORDER BY Factoring"

o resto do codigo deve ta certo.

não funcionou assim?? continua a mesma mensagem de erro??

no outro form funcionou com @NOME??

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...