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

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


Bruno Pedrette

Pergunta

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

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

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...