Boa noite pessoal!
Pelo nível da minha pergunta ficará claro que sou iniciante, por isso preciso de uma ajuda detalhada para resolver um procedimento básico, a seguir descrito:
Vasculhando os fóruns aqui, descobri uma maneira de importar os dados de uma planilha excel para um datagridviewer, até aí funciona perfeitamente, entretanto o código disponibilizado não descreveu como salvar as informações no bando de dados.
No meu caso, tenho um banco de dados "paddados.sdf", tendo uma tabela "PAD" localizado em "c:\dados" e utilizo o VISUAL BASIC 2012, já tentei adaptar inúmeras soluções apresentadas, mas sempre aparece um erro diferente o que
me impede de concluir o trabalho.
Pode parecer preguiça, pois poderia alimentar via projeto, haja vista que as rotinas de inserir, alterar e excluir estão todas implementadas. Acontece que são mais de 10.000 linhas, com 20 colunas cada no excel, levaria meses para fazer isso, correndo o
risco de cadastrar um processo errado.
Concluindo, como faço para implementar o código para salvar os dados na tabela PAD.
Grato!
Apresento a seguir o código até a fase de preenchimento do grid:
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class importaexcel
'Lê os dados do Arquivo Excel
Private Function LerExcel(arquivo As String, nomeAba As String) As DataSet
Dim dts As New DataSet
'String de Conexão
Dim conexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
arquivo & _
";Extended Properties=Excel 8.0;"
'Comando SQL
Dim sql As String = "select * from [" + nomeAba + "]"
Dim conn As OleDbConnection = Nothing
Try
conn = New OleDbConnection(conexao)
Dim cmd As New OleDbCommand(sql, conn)
Dim da As New OleDbDataAdapter(cmd)
'Aqui Preenchemos o DataSet
da.Fill(dts)
Catch ex As Exception
MessageBox.Show("Erro na Leitura do Arquivo.")
Finally
If conn IsNot Nothing AndAlso conn.State = ConnectionState.Open Then
conn.Close()
End If
End Try
Return dts
End Function
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim arquivo As New OpenFileDialog
'Abrimos a seleção do arquivo excel
If arquivo.ShowDialog = Windows.Forms.DialogResult.OK Then
End If
DGVEXCEL.DataSource = LerExcel(arquivo.FileName, "Plan1$").Tables(0)
dgvcopia.DataSource = DGVEXCEL.DataSource
End Sub
End Class
