AJUDA COM SELECT SHEET EXCEL

KURTGU 26/08/2015 09:46:42
#450509

Pessoal venho mais uma vez pedia a ajuda do pessoal do Fórum com este select que estou a fazer errado...

Tenho uma Planilha em excel que vem de outro sistema e ela vem cheio de fru fru e com muitas informacoes desnecessarias e assim nao atende a necessidade do pessoal da unidades, gostaria de uma ajuda faco um select normalmente mais sempre me traz duas colunas em branco se eu uso o select abaixo ele me retorna a imagem...

Dim MyDataAdapter As New OleDbDataAdapter([Ô]Select * from [[Ô] & ([Ô]Sheet[Ô] & DomainUpDown1.Text) & [Ô]$][Ô], conn)



________________________________________________________________________________________________________________________________________

Agora usando o codigo abaixo recebo este resultado

ListView1.Items.Clear()
Dim dt As New DataTable()
Dim dt2 As New DataTable()
Try
Dim pathconn As String = [Ô]Provider = Microsoft.ACE.OLEDB.12.0; Data source=[Ô] & Application.StartupPath & [Ô]\Equipe.xls[Ô] & [Ô];Extended Properties=[Ô][Ô]Excel 12.0;HDR= yes;[Ô][Ô];[Ô]
Dim conn As New OleDbConnection(pathconn)
Dim MyDataAdapter As New OleDbDataAdapter([Ô]Select * from [[Ô] & ([Ô]Sheet[Ô] & DomainUpDown1.Text) & [Ô]$A:B][Ô], conn)

MyDataAdapter.Fill(dt)

For Each dr As DataRow In dt.Rows
Dim lvi As New ListViewItem()
For i As Integer = 1 To dt.Columns.Count - 1
lvi.Text = dr(0).ToString()
lvi.SubItems.Add(dr(i).ToString())
Next
ListView1.Items.Add(lvi)
Next

Dim MyDataAdapter2 As New OleDbDataAdapter([Ô]Select * from [[Ô] & ([Ô]Sheet[Ô] & DomainUpDown1.Text) & [Ô]$C:F][Ô], conn)
MyDataAdapter2.Fill(dt2)
For Each dr2 As DataRow In dt2.Rows
Dim lvi As New ListViewItem()
For i2 As Integer = 1 To dt2.Columns.Count - 1
lvi.Text = dr2(0).ToString()
lvi.SubItems.Add(dr2(i2).ToString())
Next
ListView1.Items.Add(lvi)
Next


Catch ex As Exception
MsgBox(ex.Message)
End Try

limpar()