Jump to content
Chamuanza

[Resolvido] Erro ao Retornar Consulta

Recommended Posts

Chamuanza

Um Bem Aja a Todos

Ao retornar a uma consulta surge este erro na linha - Me.DataGridView1.DataSource = MyData.Tables("DadosActuais")

"Additional information: A operação não é válida uma vez que resulta numa chamada reentrante para a função SetCurrentCellAddressCore."

Junto o código 

Agradeço uma dica sobre a causa

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


        Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\Justino\Documents\DespesasCaseiras\DespesasPessoaisFamiliares.mdb;")

        Dim Query As String = "SELECT Id,Data,Designacao,Despesa,Categoria,SubCategoria,Familiar FROM DadosActuais  Where Despesa > 0 Order By Id"


        'Dim command As New OleDbCommand(query, ConnectionString)
        '' Seleccionar os dados 
        'command.Parameters.Add("@Despesa", OleDbType.Decimal).Value = "0,00"

        Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString)
        Dim MyData As New DataSet
        DataAdapter.Fill(MyData, "DadosActuais")


        ' Neste caso utilizei uma datagridview para visualizar os dados
        Me.DataGridView1.DataSource = MyData.Tables("DadosActuais")


        'Conta as linhas da Grid e coloca na Label
        Label1.Text = "Este Filtro encontrou - " & Me.DataGridView1.RowCount - 1 & " Registos"

        Button2.Enabled = False

        Call ControlaGrid()

        Call SomarColunas()

        ConnectionString.Close()

    End Sub

 

Edited by Chamuanza
Resolvido

Share this post


Link to post
Share on other sites
Chamuanza

Um Bem Aja miglaranjeira

Agradeço desde já a atenção prestada. Testei a tua dica mas não resultou.

Share this post


Link to post
Share on other sites
Chamuanza

Um Bem Aja miglaranjeira

Acabei por resolver a situação com  "butSair.PerformClick()" 

pelo menos não tem aparecido o erro

 Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick

        Dim msg As String
        Dim title As String
        Dim style As MsgBoxStyle
        Dim response As MsgBoxResult
        msg = "Pretende Alterar Algum Valor da Linha"   ' Define message.
        style = MsgBoxStyle.DefaultButton2 Or _
           MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
        title = "Alterar Algum Valor da Linha"   ' Define title.
        ' Display message.
        response = MsgBox(msg, style, title)

        If response = MsgBoxResult.Yes Then
            'Obtem o valor de Id e coloca-o no Form1 BuscaTexto
            ' Form1.Label6.Text = (DataGridView1.Rows(e.RowIndex).Cells(0).Value)
            Form1.BuscaTexto.Text = (DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString)

        End If


        butSair.PerformClick()


    End Sub

 

  • Vote 1

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.