old Hippy
Gebruiker
- Lid geworden
- 24 mei 2008
- Berichten
- 911
Hi allemaal
ik inporteer van uit Excel mijn data op de volgende manier.
Alleen als ik in het Excel sheet de gegevens aanvul moet ik de gridview eerst legen voor ik de nieuwe inport kan doen.
ik zou graag de inport dan gewoon aankunnen vullen.
inportcode zo als ik die nu gebruik
ik inporteer van uit Excel mijn data op de volgende manier.
Alleen als ik in het Excel sheet de gegevens aanvul moet ik de gridview eerst legen voor ik de nieuwe inport kan doen.
ik zou graag de inport dan gewoon aankunnen vullen.
inportcode zo als ik die nu gebruik
Code:
Private Sub Load_Atrikelen()
Dim opendlg As New OpenFileDialog
opendlg.Filter = "Excel Files (*.xls)|*.xls|All Files (*.*)|*.*"
If opendlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim pathandfile As String = opendlg.FileName
Dim connection As OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;" & "data source=" & pathandfile & ";Extended Properties=Excel 8.0;")
Dim Command = New OleDb.OleDbCommand("select * from [Blad1$]", connection)
connection.Open()
Dim dr As Data.IDataReader = Command.ExecuteReader
Dim bulkCopy As SqlClient.SqlBulkCopy = New SqlClient.SqlBulkCopy("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\ArtikelSparklz.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
bulkCopy.DestinationTableName = "Artikelen"
bulkCopy.WriteToServer(dr)
Dim adapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [Blad1$]", connection)
adapter.Fill(Me.ArtikelimportDataSet1.Artikelen)
connection.Close()
End If
End Sub