IMPORTAR EXCEL

ALTAIR148 06/04/2011 08:45:43
#370573
Eu recebo uma planilha mensalmente de uma empresa, e nela vem um numero de identificação em cada linha chamado [Ô]GCA[Ô], eu gostaria de saber se tem como por exemplo eu digitar em um campo no meu form o código da GCA e ele importar apenas a linha da planilha que contém a gca. A importação pode ser apenas para mostrar nos textbox do form mesmo.
JONATHANSTECKER 06/04/2011 09:39:16
#370580 Resposta escolhida
Neste exemplo busco a linha em uma planilha de Excel onde o valor de uma célula na coluna ID seja igual a GCA e depois jogo essa linha em um DataGridView.
Basta você adaptar...
Imports System.Data.OleDb

        Dim Conexao As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=D:\Teste2.xls;Extended Properties=Excel 8.0;[Ô]
        Dim DA As OleDbDataAdapter = New OleDbDataAdapter([Ô]SELECT * FROM [Plan1$] WHERE ID = GCA[Ô], Conexao)
        Dim DT As DataTable = New DataTable
        DA.Fill(DT)
        dgvExcel.DataSource = DT.DefaultView

Fonte.: Importando dados de uma planilha Excel
ALTAIR148 06/04/2011 09:59:25
#370582

Dim Conexao As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=c:\1.xls;Extended Properties=Excel 8.0;[Ô]
Dim DA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter([Ô]SELECT * FROM [Plan1$] WHERE GCA-GC = GCA[Ô], Conexao)
Dim DT As DataTable = New DataTable
DA.Fill(DT)
DataGridView1.DataSource = DT.DefaultView

GCA = Campo Form
GCA-GC = Coluna da tabela.

Quando mando buscar aparece o seguinte erro:

Nenhum valor foi fornecido para um ou mais parâmetros necessários.
JONATHANSTECKER 06/04/2011 10:01:49
#370583
Você poderia encaminhar a planilha para eu poder dar uma olhada?
ALTAIR148 06/04/2011 10:03:16
#370584
[txt-color=#e80000]Anexo removido.[/txt-color]

Claro...
JONATHANSTECKER 06/04/2011 10:22:25
#370586
Tenta assim.:
        Dim Conexao As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=D:\1.xls;Extended Properties=Excel 8.0;[Ô]
        Dim DA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter([Ô]SELECT * FROM [Plan1$] WHERE [GCA-GC] = [Ô] & GCA.Text, Conexao)
        Dim DT As DataTable = New DataTable
        DA.Fill(DT)
        DataGridView1.DataSource = DT.DefaultView
ALTAIR148 06/04/2011 10:25:38
#370588
Jonathan Stecker, agora sim funcionou muito obrigado.
Ah uma pergunta, posso remover o anexo, são informações [Ô]meio que confidenciais[Ô]?
JONATHANSTECKER 06/04/2011 10:30:51
#370590
Sim, com certeza! Só solicitei a planilha para melhor entendimento.
ALTAIR148 06/04/2011 10:37:37
#370593
Muito obrigado...
Até a próxima.
Tópico encerrado , respostas não são mais permitidas
Voltar