EXCEL DATAGRID
fala galerinha
alguem sabe como se carrega os dados de uma planilha excel no grid, (somente carregar)
e validar se este arquivo e xls, xlsx
OBs uso um opem file para escolher o arquivo a carregar
gostaria de escolher o arquivo e depois carregar validando
obrigado
alguem sabe como se carrega os dados de uma planilha excel no grid, (somente carregar)
e validar se este arquivo e xls, xlsx
OBs uso um opem file para escolher o arquivo a carregar
gostaria de escolher o arquivo e depois carregar validando
obrigado
Verifique se o link abaixo lhe ajuda.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=374288
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=374288
mais esse ja e pra gravar na base de dados nao e
Você carrega ele no datagrid e valida no datagrid.
apesar de estar dando errinho aqui so mais uma pergunta se depois eu quiser salvar ele em uma base de dados é somente dar um for no grid
isso, percorre ele e vai gravando.
usei a sua ideia deu certo expecificando um caminho, mais estou usando um textbox com open file e me traz este erro
Não é possÃvel atualizar. O banco de dados ou o objeto é somente leitura.
Dim Conexao As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=[Ô] & txtUpload.Text & [Ô]xlsx;Extended Properties=Excel 8.0;[Ô]
Dim DA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter([Ô]SELECT * FROM [GRADE$][Ô], Conexao)
Dim DT As DataTable = New DataTable
DA.Fill(DT)
DGRESTITUCAO.DataSource = DT.DefaultView
alguem tem alguma ideia
Não é possÃvel atualizar. O banco de dados ou o objeto é somente leitura.
Dim Conexao As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=[Ô] & txtUpload.Text & [Ô]xlsx;Extended Properties=Excel 8.0;[Ô]
Dim DA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter([Ô]SELECT * FROM [GRADE$][Ô], Conexao)
Dim DT As DataTable = New DataTable
DA.Fill(DT)
DGRESTITUCAO.DataSource = DT.DefaultView
alguem tem alguma ideia
Tente assim:
Você está colocando assim:
Assim dá errado, pq no final vc tá colocando a extensão *.xlsx, o open file já traz com a extensão, então não há necessidade de coloca-lá.
Dim Conexao As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=[Ô] & txtUpload.Text & [Ô];Extended Properties=Excel 8.0;[Ô]
Dim DA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter([Ô]SELECT * FROM [GRADE$][Ô], Conexao)
Dim DT As DataTable = New DataTable
DA.Fill(DT)
DGRESTITUCAO.DataSource = DT.DefaultView
Você está colocando assim:
....[Ô] & txtUpload.Text & [Ô]xlsx
Assim dá errado, pq no final vc tá colocando a extensão *.xlsx, o open file já traz com a extensão, então não há necessidade de coloca-lá.
Tópico encerrado , respostas não são mais permitidas