Jump to content
arned

erro nao foi fornecido nenhum valor para um ou mais parametros necessários (HELP

Recommended Posts

arned

Boas, tenho um codigo para pesquisar numa base de dados todos os idprodutos (codigoproduto) mas que esta a dar erro...

o codigo é o seguinte:

Public Sub preencherlistbox3(ByVal lst As ListBox, ByVal query3 As String)
        ListBox3.Items.Clear()
        '############## PREENCHER LISTBOX 3 (CODIGO PRODUTOS)
        Dim sql3 As String = " SELECT codigoproduto FROM Produtos"
        'Iniciar ligação a base de dados
        Using connection3 As New OleDb.OleDbConnection(Adicionar.conprovide)
            'Define o comando e os parametros
            Dim command3 As New OleDb.OleDbCommand(sql3, connection3)
            'abre conexção
            connection3.Open()
            'executa comando select
            Dim cmd3 As New OleDb.OleDbCommand(query3, connection3)
            'executa a consulta

            'erro aqui ###########################################################################
            Dim db_reader3 As OleDb.OleDbDataReader = cmd3.ExecuteReader(CommandBehavior.Default)

            'exibe os resultados
            Dim cod As Integer
            Dim i As Integer

            Do While db_reader3.Read
                cod = db_reader3.Item(0)
                For i = 1 To db_reader3.FieldCount - 1
                    cod &= vbTab & db_reader3.Item(i)
                Next
                ListBox3.Items.Add(cod)
            Loop
            'fecha conexao
            connection3.Close()
        End Using
    End Sub

Estou a imenso tempo e ainda nao consegui descubrir qual é o erro...

se alguem puder ajudar agradecia imenso :x

Share this post


Link to post
Share on other sites
Weasel

Dim cmd3 As New OleDb.OleDbCommand(query3, connection3)

De onde é que vem o query3 ??


Knowledge to the masses


Share this post


Link to post
Share on other sites
arned

query3 é o comando sql que é enviado quando carrego no butao de procurar

que neste caso é: "SELECT codigoproduto FROM Produtos"

Share this post


Link to post
Share on other sites
bioshock

Não será antes:

Dim cmd3 As New OleDb.OleDbCommand(sql3, connection3)

?

hmmm  🤔 :P

Que era ao que o Weasel se estava a referir.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.