EXCEL COM DATAGRIDVIEW
Amigos... alguem poderia medizer como faço para carregar uma planilha xls no datagridview...
gostaria de carregar os dados para depois gravar no banco de dados
exportar do excel para mdb
gostaria de carregar os dados para depois gravar no banco de dados
exportar do excel para mdb
amigos consegui resolver 75 %...
ja consigo carregar os dados no datagrid, porém agora eu quero que após selecionar o arquivo xls, num combobox mostre as abas do xls ...
para carregar no datargrid eu uso este codigo
Dim openFD As New OpenFileDialog()
With openFD
.Title = [Ô]Seleccionar archivos[Ô]
.Filter = [Ô]Todos los archivos (*.xls)|*.xls[Ô]
.Multiselect = False
.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
If .ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = .FileName
End If
End With
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
arquivos = TextBox1.Text
nomeaba = ComboBox1.Text
Dim _conn As String
_conn = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & [Ô]Data Source=[Ô] & arquivos & [Ô];[Ô] & [Ô]Extended Properties=Excel 8.0;[Ô]
Dim _connection As OleDbConnection = New OleDbConnection(_conn)
Dim da As OleDbDataAdapter = New OleDbDataAdapter()
Dim _command As OleDbCommand = New OleDbCommand()
_command.Connection = _connection
_command.CommandText = [Ô]SELECT * FROM [Planilha1$][Ô]
da.SelectCommand = _command
Try
da.Fill(ds1, [Ô]Planilha1[Ô])
Me.DataGridView1.DataSource = ds1
Me.DataGridView1.DataMember = [Ô]Planilha1[Ô]
Catch e1 As Exception
MessageBox.Show([Ô]Import Failed, correct Column name in the sheet![Ô])
End Try
End Sub
se olhar o codigo que carrego no datagrid, veram que no codigo eu tive que informar o nome da aba e nem sempre o xls estara com o mesmo nome
grato
ja consigo carregar os dados no datagrid, porém agora eu quero que após selecionar o arquivo xls, num combobox mostre as abas do xls ...
para carregar no datargrid eu uso este codigo
Dim openFD As New OpenFileDialog()
With openFD
.Title = [Ô]Seleccionar archivos[Ô]
.Filter = [Ô]Todos los archivos (*.xls)|*.xls[Ô]
.Multiselect = False
.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
If .ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = .FileName
End If
End With
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
arquivos = TextBox1.Text
nomeaba = ComboBox1.Text
Dim _conn As String
_conn = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & [Ô]Data Source=[Ô] & arquivos & [Ô];[Ô] & [Ô]Extended Properties=Excel 8.0;[Ô]
Dim _connection As OleDbConnection = New OleDbConnection(_conn)
Dim da As OleDbDataAdapter = New OleDbDataAdapter()
Dim _command As OleDbCommand = New OleDbCommand()
_command.Connection = _connection
_command.CommandText = [Ô]SELECT * FROM [Planilha1$][Ô]
da.SelectCommand = _command
Try
da.Fill(ds1, [Ô]Planilha1[Ô])
Me.DataGridView1.DataSource = ds1
Me.DataGridView1.DataMember = [Ô]Planilha1[Ô]
Catch e1 As Exception
MessageBox.Show([Ô]Import Failed, correct Column name in the sheet![Ô])
End Try
End Sub
se olhar o codigo que carrego no datagrid, veram que no codigo eu tive que informar o nome da aba e nem sempre o xls estara com o mesmo nome
grato
Tópico encerrado , respostas não são mais permitidas