• 0
Sign in to follow this  
Bruno Pedrette

Dúvida com exportação de dados - LISTBOX

Question

Boa tarde pessoal,

Sou novo no forúm e necessito de uma pequena ajuda.

Estou com um pequeno problema em relação a exportação de alguns dados a partir de um LISTBOX.

Já consegui realizar a extração através de queries especificas, porém somente neste caso estou enfrentando um problema.

Preciso extrair as informação dos dados do banco a partir de itens do listbox,

necessito que ele selecione o primeiro item pegue no banco, grave e faça com o próximo a mesma coisa e assim sucessivamente até o final do array.

Segue código:

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Dim exportaDados, nome As String
        Dim array As Integer = 0
        Dim index As Integer

        While array <= Label4.Text

            index = ListBox1.SelectedIndex = -1
            nomeFundo = ListBox1.Items(array)

            'Inicia a conexão com o banco.
            conexao.Open()

            'Cria uma execução para esta conexão.
            Dim cmd As New OleDb.OleDbCommand("SELECT * FROM NOMETABELA WHERE (CAMPO LIKE '%" & nome & "%')", conexao)
           
            'Executa a consulta.
            Dim dr As OleDbDataReader = cmd.ExecuteReader()
            exportaDados = ("NOME") + (";") + ("CNPJ") + (";") + ("DATA_INIC") + (";") + ("DATA_TRANSF") + (";") + ("RESSALVA") + (";") + ("ENFASE") + (";") + ("NOME_GESTOR") + (";") + ("DATA_BASE") + (";") + ("ANO_" + TextBox1.Text)

            If dr.HasRows Then

                dr.Read()
                exportaDados = exportaDados + ("" & vbCrLf & "") + dr.Item("NOME") + (";") + dr.Item("CNPJ") + (";") + dr.Item("DATA_INIC") + (";") + dr.Item("DATA_TRANSF") + (";") + dr.Item("RESSALVA") + (";") + dr.Item("ENFASE") + (";") + dr.Item("NOME_GESTOR") + (";") + dr.Item("DATA_BASE") + (";") + dr.Item("ANO_" + TextBox1.Text)

            End If
            'Encerra a conexão com o banco.
            conexao.Close()

            array += 1

        End While

        SaveFileDialog1.ShowDialog()

        Dim Salvar As New IO.StreamWriter(SaveFileDialog1.FileName)
        Salvar.Write(exportaDados)
        SaveFileDialog1.FileName = " "
        Salvar.Close()

        MsgBox("Dados salvos com sucesso !")

    End Sub

Desde de já agradeço,

Bruno Pedrette

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this