سلام دوست عزيز
روشي را كه من خودم معمولا بكار ميبرم بدينگونه است كه ابتدا محتويات فايل Excel را به يك DataGridView انتقال مي دهم و سپس از آن طريق در DataBase ذخيره ميكنم.
به هر حال اميدوارم اين كد مشكلت را حل كند
PrivateSub ExcelToGrid()
Dim conStr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0; EXTENDED PROPERTIES=EXCEL 8.0; DATA SOURCE= "
conStr += "D:\Test.xls; "
Dim _Str AsString = "SELECT * FROM[sheet1$]"
'Dim _Str = "SELECT F1,F2,F3 FROM[sheet1$] WHERE F1='Something'"
Dim olCon AsNew System.Data.OleDb.OleDbConnection(conStr)
Dim olDtAdp AsNew System.Data.OleDb.OleDbDataAdapter(_Str, olCon)
Dim dset AsNew System.Data.DataSet
Try
olDtAdp.TableMappings.Add("Table", "DataTable")
olDtAdp.Fill(dset)
DataGridView1.DataSource = dset.Tables("DataTable")
olCon.Dispose()
Catch ex As Exception
olCon.Close()
EndTry
EndSub