01.Imports System.Data.OleDb
02.
03.Public Class ImportOrderForm
04.
05.
06. Private Sub BrowseButt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseButt.Click
07. Try
08. DataGridView1.Rows.Clear()
09. Dim anydata As String()
10. Dim objDataAdapter As New OleDbDataAdapter()
11.
12. objDataAdapter.SelectCommand = ExcelConnection()
13.
14. Dim objDataSet As New DataSet()
15.
16. objDataAdapter.Fill(objDataSet)
17. For i As Integer = 0 To objDataSet.Tables(0).Rows.Count - 1
18.
19. anydata = New String() {(DateTimePicker1.Value.Date), _
20. objDataSet.Tables(0).Rows(i).Item(0).ToString, _
21. objDataSet.Tables(0).Rows(i).Item(1).ToString, _
22. objDataSet.Tables(0).Rows(i).Item(2).ToString, _
23. objDataSet.Tables(0).Rows(i).Item(3).ToString, _
24. objDataSet.Tables(0).Rows(i).Item(4).ToString, _
25. objDataSet.Tables(0).Rows(i).Item(5).ToString, _
26. objDataSet.Tables(0).Rows(i).Item(6).ToString, _
27. objDataSet.Tables(0).Rows(i).Item(7).ToString, _
28. objDataSet.Tables(0).Rows(i).Item(8).ToString}
29. DataGridView1.Rows.Add(anydata)
30.
31. Next
32. objDataSet.Clear()
33. Catch ex As Exception
34. MsgBox(ex.Message)
35. End Try
36. End Sub
37.
38. Protected Function ExcelConnection() As OleDbCommand
39. Dim OpenFileDialog1 As New OpenFileDialog
40. Dim ss As String
41. OpenFileDialog1.InitialDirectory = "c:\"
42. OpenFileDialog1.Filter = "Excel files (*.xls)|*.xls|All files (*.*)|*.*"
43. OpenFileDialog1.FilterIndex = 1
44. OpenFileDialog1.RestoreDirectory = True
45. If (OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
46. ss = OpenFileDialog1.FileName
47. txtBrowse.Text = ss
48. End If
49. Dim xConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ss & ";Extended Properties=Excel 8.0;"
50. Dim objXConn As New OleDbConnection(xConnStr)
51.
52. objXConn.Open()
53.
54. Dim objCommand As New OleDbCommand("SELECT * FROM [ItemMaster$]", objXConn)
55.
56. Return objCommand
57.
58. End Function
59.End Class
