01.
Dim
excel
As
New
FileInfo(Server.MapPath(
"Xls/myData.xlsx"
))
02.
Using package =
New
ExcelPackage(excel)
03.
Dim
workbook = package.Workbook
04.
05.
06.
Dim
worksheet = workbook.Worksheets.First()
07.
08.
Dim
strConnString
As
String
=
"Server=localhost;UID=sa;PASSWORD=;database=mydatabase"
09.
Dim
objConn =
New
SqlConnection(strConnString)
10.
objConn.Open()
11.
12.
13.
Dim
totalRows
As
Integer
= worksheet.Dimension.[
End
].Row
14.
For
i
As
Integer
= 2
To
totalRows
15.
Dim
strSQL
As
String
=
"INSERT INTO myTable (Column1,Column2,Column3,Column4,Column5) "
&
16.
" VALUES ("
+
" '"
+ worksheet.Cells(i, 1).Text.ToString() +
"', "
&
17.
" '"
+ worksheet.Cells(i, 2).Text.ToString() +
"', "
&
18.
" '"
+ worksheet.Cells(i, 3).Text.ToString() +
"', "
&
19.
" '"
+ worksheet.Cells(i, 4).Text.ToString() +
"', "
&
20.
" '"
+ worksheet.Cells(i, 5).Text.ToString() +
"' "
+
")"
21.
Dim
objCmd =
New
SqlCommand(strSQL, objConn)
22.
objCmd.ExecuteNonQuery()
23.
Next
24.
25.
objConn.Close()
26.
End
Using